my-light-theme.el (1714B)
1 ;;; my-light-theme.el --- Light Theme -*- lexical-binding: t -*- 2 3 ;;; Commentary: 4 ;; A green light theme base on solarized-theme 5 6 ;;; Code: 7 8 (require 'my-theme) 9 10 (defvar my-light-core-palette 11 '("#000000" ; darkest-base 12 "#FFFFEA" ; brightest-base 13 "#785e18" ; yellow 14 "#893a19" ; orange 15 "#891e1c" ; red 16 "#87315a" ; magenta 17 "#525692" ; violet 18 "#1f416c" ; blue 19 "#245c59" ; cyan 20 "#295d26")) ; green 21 22 (defvar my-light-yellow-l "#f1f1a8") 23 (defvar my-light-blue-l "#eaffff") 24 25 (deftheme my-light "A light theme using Solarized framework.") 26 27 (defmacro my-light-theme--custom-faces () 28 ''((custom-theme-set-faces 29 theme-name 30 `(font-lock-keyword-face ((,class (:foreground ,cyan :weight normal)))) 31 `(font-lock-warning-face ((,class (:inherit error :weight normal)))) 32 `(font-lock-constant-face ((,class (:foreground ,blue :weight normal)))) 33 `(font-lock-builtin-face ((,class (:foreground ,base1 :weight normal)))) 34 `(elisp-shorthand-font-lock-face ((,class (:foreground ,yellow)))) 35 `(region ((,class (:background ,my-light-yellow-l :extend nil)))) 36 `(mode-line ((,class (:foreground ,base0 :background ,my-light-blue-l :box t)))) 37 `(mode-line-inactive ((,class (:background ,base03 :box t)))) 38 `(mode-line-highlight ((,class (:background ,my-light-yellow-l :box ,base0)))) 39 40 `(org-verbatim ((,class (:foreground ,yellow)))) 41 `(org-code ((,class (:foreground ,yellow))))))) 42 43 (solarized-with-color-variables-with-palette 44 'light 45 'my-light 46 my-light-core-palette 47 (append (my-themes--custom-faces) 48 (my-light-theme--custom-faces))) 49 50 (provide-theme 'my-light) 51 ;;; my-light-theme.el ends here