my-dark-theme.el (1214B)
1 ;;; my-dark-theme.el --- Dark Theme -*- lexical-binding: t -*- 2 3 ;;; Commentary: 4 ;; A green dark theme base on solarized-theme 5 6 ;;; Code: 7 8 (require 'my-theme) 9 10 (defvar my-dark-core-palette 11 '("#062624" ; darkest-base 12 "#E3FCFB" ; brightest-base 13 "#A87C04" ; yellow 14 "#C24713" ; orange 15 "#CE2825" ; red 16 "#d33682" ; magenta 17 "#6c71c4" ; violet 18 "#2570CD" ; blue 19 "#01928D" ; cyan 20 "#3A9C36")) ; green 21 22 (deftheme my-dark "A dark theme using Solarized framework.") 23 24 (defmacro my-dark-theme--custom-faces () 25 ''((custom-theme-set-faces 26 theme-name 27 `(font-lock-keyword-face ((,class (:foreground ,cyan :weight bold)))) 28 `(elisp-shorthand-font-lock-face ((,class (:foreground ,yellow :weight bold)))) 29 `(mode-line ((,class (:foreground ,base0 :background ,base02)))) 30 `(mode-line-inactive ((,class (:foreground ,base01 :background ,base03)))) 31 `(mode-line-highlight ((,class (:background ,green-d :box ,base0))))))) 32 33 (solarized-with-color-variables-with-palette 34 'dark 35 'my-dark 36 my-dark-core-palette 37 (append (my-themes--custom-faces) 38 (my-dark-theme--custom-faces))) 39 40 (provide-theme 'my-dark) 41 ;;; my-dark-theme.el ends here