diff options
Diffstat (limited to 'emacs.d/lib/wabi-sabi-theme.el')
-rw-r--r-- | emacs.d/lib/wabi-sabi-theme.el | 63 |
1 files changed, 0 insertions, 63 deletions
diff --git a/emacs.d/lib/wabi-sabi-theme.el b/emacs.d/lib/wabi-sabi-theme.el deleted file mode 100644 index 986e266..0000000 --- a/emacs.d/lib/wabi-sabi-theme.el +++ /dev/null @@ -1,63 +0,0 @@ -;;; wabi-sabi-theme.el --- Black and light yellow theme without syntax highlighting - -;;; Code: - -(deftheme wabi-sabi - "Wabi Sabi.") - -(defvar wabi-sabi-faces - `(default - font-lock-builtin-face - font-lock-constant-face - font-lock-function-name-face - font-lock-keyword-face - font-lock-negation-char-face - font-lock-preprocessor-face - font-lock-regexp-grouping-backslash - font-lock-regexp-grouping-construct - font-lock-string-face - font-lock-type-face - font-lock-variable-name-face - font-lock-warning-face - fringe - sh-quoted-exec)) - -(let ((bg "#FFFFE5") - (bg-alt "#fffde7") - (fg "#000000") - (fg-alt "#000000") - (highlight "#c4c6c2") - (highlight-alt "#cccab5") - (modeline-fg "#ffffff") - (modeline-bg "#2D271F") - (modeline-bg-alt "#605C49") - (region "#eeed9d")) - - (apply 'custom-theme-set-faces 'wabi-sabi - `(default ((t (:foreground ,fg :background ,bg)))) - `(cursor ((t (:background ,fg :foreground "white smoke")))) - `(highlight ((t nil))) - - `(mode-line ((t (:foreground ,modeline-fg :background ,modeline-bg)))) - `(mode-line-inactive ((t (:foreground ,modeline-fg :background ,modeline-bg-alt)))) - - `(show-paren-match ((t (:background ,highlight-alt)))) - `(whitespace-indentation ((t (:background ,bg-alt :foreground ,fg-alt)))) - - `(font-lock-comment-face ((t (:foreground ,fg :weight bold)))) - `(font-lock-comment-delimiter-face ((t (:foreground ,fg :weight bold)))) - `(font-lock-doc-face ((t (:foreground ,fg :weight bold)))) - `(font-lock-doc-string-face ((t (:foreground ,fg :weight bold)))) - - `(region ((t (:background ,region :foreground ,fg)))) - - (mapcar (lambda (n) `(,n ((t (:background ,bg :foreground ,fg))))) wabi-sabi-faces))) - -;;;###autoload -(when load-file-name - (add-to-list 'custom-theme-load-path - (file-name-as-directory (file-name-directory load-file-name)))) - -(provide-theme 'wabi-sabi) - -;;; wabi-sabi-theme.el ends here |