projects
/
elisp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Update.
[elisp.git]
/
emacs.el
diff --git
a/emacs.el
b/emacs.el
index
9e94de6
..
69e002f
100644
(file)
--- a/
emacs.el
+++ b/
emacs.el
@@
-31,6
+31,11
@@
;; Xft.antialias: true
;; Xft.rgba: rgb
;; Xft.antialias: true
;; Xft.rgba: rgb
+;; This is where I put most of my emacs-related files
+(setq ff/emacs-dir "~/private/emacs")
+(unless (file-exists-p ff/emacs-dir)
+ (mkdir ff/emacs-dir t))
+
;; Give the focus to the emacs window if we are under a windowing
;; system
;; Give the focus to the emacs window if we are under a windowing
;; system
@@
-74,7
+79,7
@@
(iswitchb-mode 1)
;; Save the minibuffer history
(iswitchb-mode 1)
;; Save the minibuffer history
-(setq savehist-file
"~/private/emacs/savehist"
)
+(setq savehist-file
(concat ff/emacs-dir "/savehist")
)
(when (functionp 'savehist-mode) (savehist-mode 1))
;; And allow minibuffer recursion
(when (functionp 'savehist-mode) (savehist-mode 1))
;; And allow minibuffer recursion
@@
-385,8
+390,8
@@
load-warning buffer in case of failure."
(ff/configure-faces
'((italic :underline nil)
(info-title-2 :foreground "green")
(ff/configure-faces
'((italic :underline nil)
(info-title-2 :foreground "green")
- (font-lock-comment-delimiter-face :foreground "bl
ack
")
- (font-lock-comment-face :foreground "bl
ack
")
+ (font-lock-comment-delimiter-face :foreground "bl
ue
")
+ (font-lock-comment-face :foreground "bl
ue
")
(cperl-array-face :background "gray90" :foreground "blue" :weight 'bold)
(cperl-hash-face :background "gray90" :foreground "purple" :weight 'bold)
(diff-added :background "gray90" :foreground "green4" :weight 'bold)
(cperl-array-face :background "gray90" :foreground "blue" :weight 'bold)
(cperl-hash-face :background "gray90" :foreground "purple" :weight 'bold)
(diff-added :background "gray90" :foreground "green4" :weight 'bold)
@@
-424,11
+429,16
@@
load-warning buffer in case of failure."
:inverse-video nil)
(mode-line-inactive :background "gray60" :foreground "black" :box nil
:inverse-video nil)
:inverse-video nil)
(mode-line-inactive :background "gray60" :foreground "black" :box nil
:inverse-video nil)
- (region :background "
springgreen2
")
+ (region :background "
white" :foreground "black
")
(ff/date-info-face :foreground "white" :weight 'bold)
(ff/mail-alarm-face :foreground "red" :weight 'bold)
(ff/date-info-face :foreground "white" :weight 'bold)
(ff/mail-alarm-face :foreground "red" :weight 'bold)
+ (selector/selection :background "yellow")
(gui-button-face :background "green" :foreground "white")
(enotes/information-face :foreground "cyan")
(gui-button-face :background "green" :foreground "white")
(enotes/information-face :foreground "cyan")
+
+ (file-name-shadow :foreground "black")
+ (shadow :foreground "black")
+ (warning :foreground "black" :background "red")
))
)
))
)
@@
-2274,7
+2284,7
@@
next one. With universal argument, kill all killable buffers."
"\.bbl$" "\.aux$" "\.toc$"
))
recentf-max-saved-items 1000
"\.bbl$" "\.aux$" "\.toc$"
))
recentf-max-saved-items 1000
- recentf-save-file
"~/private/emacs/recentf"
+ recentf-save-file
(concat ff/emacs-dir "/recentf")
)
(when (boundp 'recentf-keep) (add-to-list 'recentf-keep 'file-remote-p))
)
(when (boundp 'recentf-keep) (add-to-list 'recentf-keep 'file-remote-p))
@@
-2310,7
+2320,7
@@
next one. With universal argument, kill all killable buffers."
media/add-current-song-to-interrupted-when-killing t
media/duration-to-history 30
media/history-size 1000
media/add-current-song-to-interrupted-when-killing t
media/duration-to-history 30
media/history-size 1000
- media/playlist-file
"~/private/emacs/media-playlists"
+ media/playlist-file
(concat ff/emacs-dir "/media-playlists")
media/mplayer/args '(
"-framedrop"
"-zoom"
media/mplayer/args '(
"-framedrop"
"-zoom"
@@
-2730,9
+2740,9
@@
With argument ARG, do this that many times."
;; Where to save the bookmarks and where is bbdb
;; Where to save the bookmarks and where is bbdb
-(setq bookmark-default-file
"~/private/emacs/bmk"
+(setq bookmark-default-file
(concat ff/emacs-dir "/bmk")
bbdb-file "~/private/bbdb"
bbdb-file "~/private/bbdb"
- custom-file
"~/private/emacs/custom"
)
+ custom-file
(concat ff/emacs-dir "/custom")
)
;; enotes.el is one of my own scripts, check my web page
;; enotes.el is one of my own scripts, check my web page