From: Francois Fleuret Date: Tue, 6 Mar 2012 08:00:00 +0000 (+0100) Subject: Update. X-Git-Url: https://fleuret.org/cgi-bin/gitweb/gitweb.cgi?a=commitdiff_plain;h=fa92bd172c30b8418108f86e08c12f01faf57398;p=elisp.git Update. --- diff --git a/emacs.el b/emacs.el index c708d87..3e49e71 100644 --- a/emacs.el +++ b/emacs.el @@ -49,6 +49,7 @@ ;; 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)) @@ -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") - (sh-heredoc :foreground "blue") - (sh-heredoc-face :foreground "blue") + (sh-heredoc :foreground "black" :background "#fff0f0") + (sh-heredoc-face :foreground "black" :background "#fff0f0") (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") + (sh-heredoc :foreground "black" :background "#fff0f0") + (sh-heredoc-face :foreground "black" :background "#fff0f0") (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") @@ -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) - (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) - (mode-line-inactive :background "#606080" :foreground "black" :box nil + (mode-line-inactive :background "#b0b0b0" :foreground "black" :box nil :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)) )) +;; 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 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; @@ -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) - (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) @@ -2294,6 +2306,7 @@ next one. With universal argument, kill all killable buffers." media/mplayer/args '( "-framedrop" "-zoom" + "-cache" "512" "-subfont-osd-scale" "3" ;; "-stop-xscreensaver" ;; "-osdlevel" "3" diff --git a/vm b/vm index f700c99..1c17c4e 100644 --- a/vm +++ b/vm @@ -27,8 +27,8 @@ (setq vm-auto-displayed-mime-content-types '( "text" - "image/jpeg" - "image/png" + ;; "image/jpeg" + ;; "image/png" "multipart" "message/rfc822" )) @@ -50,7 +50,8 @@ 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 "> " @@ -136,7 +137,7 @@ ) ;; 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") @@ -176,10 +177,10 @@ ;; "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" @@ -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) - (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) @@ -325,7 +328,8 @@ attachement from mail." ;; 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) @@ -541,6 +545,11 @@ an attachment") ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; 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)))