diff options
| author | jao <jao@gnu.org> | 2021-10-02 01:56:46 +0100 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2021-10-02 01:56:53 +0100 |
| commit | 78e9e7ca8199ba1341bea7e664678fa8d02f8402 (patch) | |
| tree | d5549ca9032e6bef7fec4a70c288c074dc387de8 | |
| parent | f89c57e5e2f3e2c25af6d279d0c3a9c3e2b1f259 (diff) | |
| download | elibs-78e9e7ca8199ba1341bea7e664678fa8d02f8402.tar.gz elibs-78e9e7ca8199ba1341bea7e664678fa8d02f8402.tar.bz2 | |
themes: ansi colors faces
| -rw-r--r-- | lib/themes/jao-light-theme.el | 14 | ||||
| -rw-r--r-- | lib/themes/jao-themes.el | 10 |
2 files changed, 14 insertions, 10 deletions
diff --git a/lib/themes/jao-light-theme.el b/lib/themes/jao-light-theme.el index 1ecff6a..60f5fc4 100644 --- a/lib/themes/jao-light-theme.el +++ b/lib/themes/jao-light-theme.el @@ -86,7 +86,19 @@ (mode-line-buffer-id (~ mode-line) nit) (mode-line-emphasis it) (mode-line-highlight (c green nil))) - (:x-faces (bold bf) + (:x-faces (ansi-color-bright-blue (c "steelblue3")) + (ansi-color-bright-cyan (c "cyan4")) + (ansi-color-bright-green (c "darkseagreen3")) + (ansi-color-bright-magenta (c "lightpink3")) + (ansi-color-bright-red (c "salmon3")) + (ansi-color-bright-yellow (c "lightyellow4")) + (ansi-color-blue (c "steelblue4")) + (ansi-color-cyan (c "cyan4")) + (ansi-color-green (c "darkseagreen4")) + (ansi-color-magenta (c "lightpink4")) + (ansi-color-red (c "salmon4")) + (ansi-color-yellow (c "lightgoldenrod3")) + (bold bf) (compilation-info (c "#223142" nil) nbf) (company-scrollbar-bg (c nil "grey95")) (company-scrollbar-fg (c nil "grey90")) diff --git a/lib/themes/jao-themes.el b/lib/themes/jao-themes.el index 96e8398..86273df 100644 --- a/lib/themes/jao-themes.el +++ b/lib/themes/jao-themes.el @@ -18,8 +18,6 @@ ;;; Code: -(require 'ansi-color) - ;;; palette (defvar jao-themes--face-family "Inconsolata") (defvar jao-themes--fg "black") @@ -1176,14 +1174,8 @@ (palette (cdr (assoc :palette args))) (faces (or (cdr (assoc :faces args)) (list))) (x-faces (cdr (assoc :x-faces args))) - (x-colors (cdr (assoc :x-colors args))) - (a-colors (cdr (assoc :ansi-colors args))) - (ansi-colors (when a-colors - (apply 'vector (butlast a-colors - (- (length a-colors) 8)))))) + (x-colors (cdr (assoc :x-colors args)))) `(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--color-names* ',(cdr (assoc :names args)))) |