diff options
Diffstat (limited to 'themes/jao-themes.el')
-rw-r--r-- | themes/jao-themes.el | 25 |
1 files changed, 17 insertions, 8 deletions
diff --git a/themes/jao-themes.el b/themes/jao-themes.el index 043b99e..6182a2a 100644 --- a/themes/jao-themes.el +++ b/themes/jao-themes.el @@ -206,6 +206,9 @@ (compilation-error nbf (p error) nul) (compilation-info nbf (p f02) nul) (compilation-line-number (p f01) nul) + (compilation-mode-line-fail (~ error)) + (compilation-mode-line-exit (p f01) nbf) + (compilation-mode-line-run (~ warning)) (compilation-warning nbf (p warning) nul) (completions-common-part nbf :width normal) (completions-first-difference bf dfg dbg) @@ -308,9 +311,11 @@ (erc-action-face (p f02)) (erc-button (p link)) (erc-current-nick-face (p error)) + (erc-direct-msg-face (p warning)) (erc-error-face (p error)) (erc-header-line (~ header)) - (erc-input-face (p warning)) + (erc-input-face (p f01)) + (erc-my-nick-face (p warning)) (erc-nick-default-face (p f11)) (erc-nick-msg-face (p warning)) (erc-notice-face (p dimm)) @@ -744,14 +749,18 @@ (assq-delete-all kind window-system-default-frame-alist))))) (defmacro jao-define-custom-theme (name &rest args) - (let ((t-faces (make-symbol "t-faces")) - (xfaces (make-symbol "xfaces")) - (tx-faces (make-symbol "tx-faces")) - (palette (cdr (assoc :palette args))) - (faces (cdr (assoc :faces args))) - (x-faces (cdr (assoc :x-faces args))) - (x-colors (cdr (assoc :x-colors args)))) + (let* ((t-faces (make-symbol "t-faces")) + (xfaces (make-symbol "xfaces")) + (tx-faces (make-symbol "tx-faces")) + (palette (cdr (assoc :palette args))) + (faces (cdr (assoc :faces args))) + (x-faces (cdr (assoc :x-faces args))) + (x-colors (cdr (assoc :x-colors args))) + (ansi-colors (apply 'vector (butlast x-colors + (- (length x-colors) 8))))) `(progn + (setq ansi-color-names-vector ,ansi-colors) + (ansi-color-map-update 'ansi-color-names-vector ,ansi-colors) (custom-make-theme-feature ',name) (deftheme ,name) (let* ,(jao-themes--let-palette palette nil) |