projects
/
elisp.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
e5be068
)
Update.
author
Francois Fleuret
<francois@fleuret.org>
Tue, 6 Mar 2012 08:00:00 +0000
(09:00 +0100)
committer
Francois Fleuret
<francois@fleuret.org>
Tue, 6 Mar 2012 08:00:00 +0000
(09:00 +0100)
emacs.el
patch
|
blob
|
history
vm
patch
|
blob
|
history
diff --git
a/emacs.el
b/emacs.el
index
c708d87
..
3e49e71
100644
(file)
--- a/
emacs.el
+++ b/
emacs.el
@@
-49,6
+49,7
@@
;; Nor fringes
(when (functionp 'fringe-mode) (fringe-mode '(0 . 0)))
;; Nor fringes
(when (functionp 'fringe-mode) (fringe-mode '(0 . 0)))
+;; (when (functionp 'fringe-mode) (fringe-mode '(0 . 1)))
;; And I do not like scrollbar neither
(when (functionp 'scroll-bar-mode) (scroll-bar-mode -1))
;; And I do not like scrollbar neither
(when (functionp 'scroll-bar-mode) (scroll-bar-mode -1))
@@
-392,8
+393,8
@@
load-warning buffer in case of failure."
(flyspell-incorrect-face :foreground "red2")
(flyspell-duplicate-face :foreground "OrangeRed2")
(hl-line :background "white")
(flyspell-incorrect-face :foreground "red2")
(flyspell-duplicate-face :foreground "OrangeRed2")
(hl-line :background "white")
- (sh-heredoc :foreground "bl
ue
")
- (sh-heredoc-face :foreground "bl
ue
")
+ (sh-heredoc :foreground "bl
ack" :background "#fff0f0
")
+ (sh-heredoc-face :foreground "bl
ack" :background "#fff0f0
")
(font-lock-keyword-face :foreground "blue")
(highlight :background "darkseagreen3")
(isearch :background "orange" :foreground "black")
(font-lock-keyword-face :foreground "blue")
(highlight :background "darkseagreen3")
(isearch :background "orange" :foreground "black")
@@
-449,9
+450,9
@@
load-warning buffer in case of failure."
(flyspell-incorrect-face :foreground "red2")
(flyspell-duplicate-face :foreground "OrangeRed2")
(hl-line :background "white")
(flyspell-incorrect-face :foreground "red2")
(flyspell-duplicate-face :foreground "OrangeRed2")
(hl-line :background "white")
+ (sh-heredoc :foreground "black" :background "#fff0f0")
+ (sh-heredoc-face :foreground "black" :background "#fff0f0")
(header-line :background "gray65")
(header-line :background "gray65")
- (sh-heredoc :foreground "darkorange3")
- (sh-heredoc-face :foreground "darkorange3")
(highlight :background "turquoise")
(message-cited-text-face :foreground "firebrick")
(isearch :background "yellow" :foreground "black")
(highlight :background "turquoise")
(message-cited-text-face :foreground "firebrick")
(isearch :background "yellow" :foreground "black")
@@
-463,11
+464,11
@@
load-warning buffer in case of failure."
(trailing-whitespace :background "gray65")
(cursor :inverse-video t)
(enotes/list-title-face :foreground "blue" :weight 'bold)
(trailing-whitespace :background "gray65")
(cursor :inverse-video t)
(enotes/list-title-face :foreground "blue" :weight 'bold)
- (mode-line :background "#
9090f0
" :foreground "black" :box nil
+ (mode-line :background "#
b0b0ff
" :foreground "black" :box nil
:inverse-video nil)
(header-line :background "cornflowerblue" :foreground "black" :box nil
:inverse-video nil)
:inverse-video nil)
(header-line :background "cornflowerblue" :foreground "black" :box nil
:inverse-video nil)
- (mode-line-inactive :background "#
60608
0" :foreground "black" :box nil
+ (mode-line-inactive :background "#
b0b0b
0" :foreground "black" :box nil
:inverse-video nil)
;; (fringe :background "black" :foreground "gray90")
(fringe :background "gray65")
:inverse-video nil)
;; (fringe :background "black" :foreground "gray90")
(fringe :background "gray65")
@@
-486,6
+487,17
@@
load-warning buffer in case of failure."
:inverse-video nil))
))
:inverse-video nil))
))
+;; Why should I have to do this?
+(add-hook 'sh-mode-hook
+ (lambda ()
+ (set-face-attribute 'sh-heredoc nil
+ :foreground "black"
+ :background "#fff0f0")
+ (set-face-attribute 'sh-heredoc-face nil
+ :foreground "black"
+ :background "#fff0f0")
+ ))
+
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Move the window on the buffer without moving the cursor
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Move the window on the buffer without moving the cursor
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@
-1207,7
+1219,7
@@
ff/known-address-face is used."
"The face to display the dates in the modeline.")
(defun ff/secure-note-add () (interactive)
"The face to display the dates in the modeline.")
(defun ff/secure-note-add () (interactive)
- (find-file
"~/private/secure-notes.gpg"
)
+ (find-file
ff/secure-note-file
)
;; Adds a new entry (i.e. date and a bunch of empty lines)
;; Adds a new entry (i.e. date and a bunch of empty lines)
@@
-2294,6
+2306,7
@@
next one. With universal argument, kill all killable buffers."
media/mplayer/args '(
"-framedrop"
"-zoom"
media/mplayer/args '(
"-framedrop"
"-zoom"
+ "-cache" "512"
"-subfont-osd-scale" "3"
;; "-stop-xscreensaver"
;; "-osdlevel" "3"
"-subfont-osd-scale" "3"
;; "-stop-xscreensaver"
;; "-osdlevel" "3"
diff --git
a/vm
b/vm
index
f700c99
..
1c17c4e
100644
(file)
--- a/
vm
+++ b/
vm
@@
-27,8
+27,8
@@
(setq vm-auto-displayed-mime-content-types '(
"text"
(setq vm-auto-displayed-mime-content-types '(
"text"
- "image/jpeg"
- "image/png"
+
;;
"image/jpeg"
+
;;
"image/png"
"multipart"
"message/rfc822"
))
"multipart"
"message/rfc822"
))
@@
-50,7
+50,8
@@
vm-mutable-frames nil
vm-summary-thread-indent-level 1
;; vm-summary-uninteresting-senders-arrow "->"
vm-mutable-frames nil
vm-summary-thread-indent-level 1
;; vm-summary-uninteresting-senders-arrow "->"
- vm-summary-uninteresting-senders-arrow "►"
+ ;; vm-summary-uninteresting-senders-arrow "►"
+ vm-summary-uninteresting-senders-arrow ">"
;; vm-summary-uninteresting-senders-arrow "➔"
;; vm-summary-uninteresting-senders-arrow "➤"
vm-summary-arrow "> "
;; vm-summary-uninteresting-senders-arrow "➔"
;; vm-summary-uninteresting-senders-arrow "➤"
vm-summary-arrow "> "
@@
-136,7
+137,7
@@
)
;; To force it to be converted to plain text
)
;; To force it to be converted to plain text
- vm-mime-internal-content-type-exceptions '("text/html")
+
;;
vm-mime-internal-content-type-exceptions '("text/html")
vm-mime-external-content-types-alist '(
("application/x-dvi" "xdvi")
vm-mime-external-content-types-alist '(
("application/x-dvi" "xdvi")
@@
-176,10
+177,10
@@
;; "html2text -style pretty -nobs"
;; ))
;; "html2text -style pretty -nobs"
;; ))
-(add-to-list 'vm-mime-type-converter-alist
- '("text/html" "text/plain"
- "html2text.sh"
- ))
+
;;
(add-to-list 'vm-mime-type-converter-alist
+
;;
'("text/html" "text/plain"
+
;;
"html2text.sh"
+
;;
))
(add-to-list 'vm-mime-type-converter-alist
'("image" "image/xpm"
(add-to-list 'vm-mime-type-converter-alist
'("image" "image/xpm"
@@
-275,7
+276,9
@@
attachement from mail."
(defun vm-summary-function-S (&optional message)
(let ((s (string-to-int (vm-su-byte-count message))))
(if (> s 32768)
(defun vm-summary-function-S (&optional message)
(let ((s (string-to-int (vm-su-byte-count message))))
(if (> s 32768)
- (propertize (concat (int-to-string (/ s 1024)) "k") 'face 'bold)
+ (propertize (concat (int-to-string (/ s 1024)) "k")
+ 'face 'italic
+ )
"")))
(defun ff/vm-delete-and-go-down () (interactive)
"")))
(defun ff/vm-delete-and-go-down () (interactive)
@@
-325,7
+328,8
@@
attachement from mail."
;; To have a slightly darker background for headers
(ff/configure-faces
;; To have a slightly darker background for headers
(ff/configure-faces
- '((ff/mail-header-face :background "#c8c8ff"))
+ ;; '((ff/mail-header-face :background "#c8c8ff"))
+ '((ff/mail-header-face :foreground "blue4"))
)
(defun ff/colorize-headers () (interactive)
)
(defun ff/colorize-headers () (interactive)
@@
-541,6
+545,11
@@
an attachment")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; If we can, encrypt!
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; If we can, encrypt!
+(add-hook 'vm-mode-hook 'mc-install-read-mode)
+(add-hook 'vm-summary-mode-hook 'mc-install-read-mode)
+(add-hook 'vm-virtual-mode-hook 'mc-install-read-mode)
+(add-hook 'vm-mail-mode-hook 'mc-install-write-mode)
+
;; (defun ff/encrypt-mail-if-possible () (interactive)
;; (condition-case nil (mc-encrypt)
;; (error nil)))
;; (defun ff/encrypt-mail-if-possible () (interactive)
;; (condition-case nil (mc-encrypt)
;; (error nil)))