projects
/
elisp.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
ebe1f23
)
Updated the flyspell face handling. No idea why I have to set them through a hook.
author
Francois Fleuret
<francois@fleuret.org>
Fri, 8 Nov 2013 07:34:41 +0000
(08:34 +0100)
committer
Francois Fleuret
<francois@fleuret.org>
Fri, 8 Nov 2013 07:34:41 +0000
(08:34 +0100)
emacs.el
patch
|
blob
|
history
diff --git
a/emacs.el
b/emacs.el
index
7687fbc
..
a9f982f
100644
(file)
--- a/
emacs.el
+++ b/
emacs.el
@@
-50,7
+50,7
@@
;; Nor fringes
;; (when (functionp 'fringe-mode) (fringe-mode '(0 . 0)))
;; (when (functionp 'fringe-mode) (fringe-mode '(0 . 1)))
;; Nor fringes
;; (when (functionp 'fringe-mode) (fringe-mode '(0 . 0)))
;; (when (functionp 'fringe-mode) (fringe-mode '(0 . 1)))
-(when (functionp 'fringe-mode) (fringe-mode
'(12 . 12)
))
+(when (functionp 'fringe-mode) (fringe-mode
10
))
;; 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))
@@
-400,11
+400,10
@@
load-warning buffer in case of failure."
(font-lock-string-face :foreground "green")
(font-lock-variable-name-face :foreground "blue")
(font-lock-constant-face :foreground "blue")
(font-lock-string-face :foreground "green")
(font-lock-variable-name-face :foreground "blue")
(font-lock-constant-face :foreground "blue")
- (font-lock-function-name-face :foreground "blue")
(font-lock-preprocessor-face :foreground "green")
(font-lock-function-name-face :foreground "cyan")
(font-lock-preprocessor-face :foreground "green")
(font-lock-function-name-face :foreground "cyan")
- (flyspell-incorrect
-face
:foreground "red2")
- (flyspell-duplicate
-face
:foreground "OrangeRed2")
+ (flyspell-incorrect :foreground "red2")
+ (flyspell-duplicate :foreground "OrangeRed2")
(hl-line :background "white")
(sh-heredoc :foreground "black" :background "#fff0f0")
(sh-heredoc-face :foreground "black" :background "#fff0f0")
(hl-line :background "white")
(sh-heredoc :foreground "black" :background "#fff0f0")
(sh-heredoc-face :foreground "black" :background "#fff0f0")
@@
-459,11
+458,12
@@
load-warning buffer in case of failure."
(font-lock-builtin-face :foreground "deeppink3")
(font-lock-string-face :foreground "dark olive green")
(font-lock-variable-name-face :foreground "sienna")
(font-lock-builtin-face :foreground "deeppink3")
(font-lock-string-face :foreground "dark olive green")
(font-lock-variable-name-face :foreground "sienna")
- (font-lock-function-name-face :foreground "blue4" :weight 'bold)
+ ;; (font-lock-function-name-face :foreground "blue" :weight 'bold)
+ (font-lock-function-name-face :foreground "blue")
;; (font-lock-comment-delimiter-face :foreground "dark violet")
;; (font-lock-comment-face :foreground "dark violet")
;; (font-lock-comment-delimiter-face :foreground "dark violet")
;; (font-lock-comment-face :foreground "dark violet")
- (flyspell-incorrect
-face :foreground "red2
")
- (flyspell-duplicate
-face :foreground "OrangeRed2
")
+ (flyspell-incorrect
:background "#ff0000" :foreground "black
")
+ (flyspell-duplicate
:background "#ff9000" :foreground "black
")
(hl-line :background "white")
(sh-heredoc :foreground "black" :background "#fff0f0")
(sh-heredoc-face :foreground "black" :background "#fff0f0")
(hl-line :background "white")
(sh-heredoc :foreground "black" :background "#fff0f0")
(sh-heredoc-face :foreground "black" :background "#fff0f0")
@@
-490,6
+490,7
@@
load-warning buffer in case of failure."
(ff/date-info-face :foreground "white" :weight 'bold)
(ff/mail-alarm-face :foreground "white" :background "red2")
;; (alarm-vc-face :foreground "black" :background "yellow" :weight 'normal)
(ff/date-info-face :foreground "white" :weight 'bold)
(ff/mail-alarm-face :foreground "white" :background "red2")
;; (alarm-vc-face :foreground "black" :background "yellow" :weight 'normal)
+ (gui-button-face :background "green" :foreground "black")
))
)
))
)
@@
-1187,9
+1188,9
@@
ff/known-address-face is used."
)
(ff/configure-faces '((ff/robot-address-face :foreground "green4")
)
(ff/configure-faces '((ff/robot-address-face :foreground "green4")
- (ff/personal-address-face :foreground "
dark magenta"
- :weight 'bold)
-
(ff/important-address-face
:foreground "blue2"
+ (ff/personal-address-face :foreground "
blue2" :weight 'bold)
+ (ff/important-address-face :foreground "red3"
+
;;
:foreground "blue2"
;; :underline t
;; :background "white"
;; :foreground "green4"
;; :underline t
;; :background "white"
;; :foreground "green4"
@@
-1961,6
+1962,17
@@
a file in /tmp"
;; (when (ff/load-or-alert "flyspell-timer" t)
;; (add-hook 'flyspell-mode-hook 'flyspell-timer-ensure-idle-timer))
;; (when (ff/load-or-alert "flyspell-timer" t)
;; (add-hook 'flyspell-mode-hook 'flyspell-timer-ensure-idle-timer))
+(defun ff/start-flyspell () (interactive)
+ (ff/configure-faces
+ '(
+ (flyspell-incorrect :background "#ff0000" :foreground "black")
+ (flyspell-duplicate :background "#ff9000" :foreground "black")
+ ))
+ (flyspell-buffer)
+ )
+
+(add-hook 'flyspell-mode-hook 'ff/start-flyspell)
+
(defun ff/pick-dictionnary () (interactive)
(when (and (boundp 'flyspell-mode) flyspell-mode)
(if (and current-input-method (string-match "latin" current-input-method))
(defun ff/pick-dictionnary () (interactive)
(when (and (boundp 'flyspell-mode) flyspell-mode)
(if (and current-input-method (string-match "latin" current-input-method))
@@
-2477,7
+2489,9
@@
with a time tag, and save this file"
(setq ff/map (make-sparse-keymap))
(define-key global-map [(control \`)] ff/map)
(setq ff/map (make-sparse-keymap))
(define-key global-map [(control \`)] ff/map)
-;;(define-key global-map [(control @)] ff/map)
+
+(unless window-system
+ (define-key global-map [(control @)] ff/map))
(define-key esc-map "`" ff/map)
(define-key esc-map "`" ff/map)