TakeV/spacemacs
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

color layer: colorize keywords and function name face

Browse source 
Can be customized with `rainbow-identifiers-faces-to-override`
This commit is contained in:
syl20bnr 2015-04-18 22:52:23 -04:00
parent 2bec380d68
commit 14f33332a8
1 changed files with 11 additions and 35 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

46
contrib/colors/packages.el
View file

@ -36,40 +36,18 @@ which require an initialization must be listed explicitly in the list.")
rainbow-identifiers-cie-l*a*b*-lightness 40
;; override theme faces
rainbow-identifiers-faces-to-override '(highlight-quoted-symbol
font-lock-keyword-face
font-lock-function-name-face
font-lock-variable-name-face))
(defun colors/toggle-rainbow-indentifiers ()
"Toggle rainbow identifiers."
(interactive)
(if (and (boundp 'rainbow-identifiers-mode)
(symbol-value rainbow-identifiers-mode))
(progn
(colors//tweak-theme-colors-font-lock t)
(rainbow-identifiers-mode -1))
(colors//tweak-theme-colors-font-lock)
(rainbow-identifiers-mode)))
(evil-leader/set-key "tCi" 'colors/toggle-rainbow-indentifiers)
(spacemacs|add-toggle rainbow-identifier-globally
:status rainbow-identifiers-mode
:on (rainbow-identifiers-mode)
:off (rainbow-identifiers-mode -1)
:documentation "Colorize identifiers globally."
:evil-leader "tCi")
(add-to-hooks 'rainbow-identifiers-mode '(prog-mode-hook
erlang-mode-hook))
(defun colors//tweak-theme-colors-font-lock (&optional restore)
"Nilify some font locks. If RESTORE in non nil the font locks are
restored."
(unless (eq 'spacemacs-mode major-mode)
;; To make the variables stand out, keyword coloring is disabled
(cond
(restore
(set-attributes-from-alist
'font-lock-function-name-face original-font-lock-function-name-face-attributes)
(set-attributes-from-alist
'font-lock-keyword-face original-font-lock-keyword-face-attributes))
(t
(set-face-attribute 'font-lock-function-name-face nil
:foreground nil :slant 'normal :weight 'normal)
(set-face-attribute 'font-lock-keyword-face nil
:foreground nil :slant 'normal :weight 'bold)))
(font-lock-fontify-buffer)))
(add-hook 'prog-mode-hook 'rainbow-identifiers-mode)
(defun colors//tweak-theme-colors (theme)
"Tweak color themes by adjusting rainbow-identifiers colors settings an by
@ -98,9 +76,7 @@ disabling some faces in order to make colored identifiers stand out."
(setq original-font-lock-function-name-face-attributes
(face-all-attributes font-lock-function-name-face frame))
(setq original-font-lock-keyword-face-attributes
(face-all-attributes font-lock-keyword-face frame)))
;; tweak the font locks
(colors//tweak-theme-colors-font-lock)))
(face-all-attributes font-lock-keyword-face frame)))))
(colors//tweak-theme-colors spacemacs--cur-theme)
(defadvice spacemacs/post-theme-init (after colors/post-theme-init activate)
@ -133,7 +109,7 @@ Press any other key to exit." component (eval var) component component)))
(define-key map (kbd "-") down-func)
(define-key map (kbd "=") reset-func)
map) t)
(colors//change-color-mini-mode-doc component))
(colors//change-color-mini-mode-doc component))
(defun colors/start-change-color-saturation ()
"Initiate the overlay map to change the saturation."