diff options
| -rw-r--r-- | emacs.d/init.el | 2 | ||||
| -rw-r--r-- | emacs.d/lib/wabi-sabi-theme.el | 62 |
2 files changed, 63 insertions, 1 deletions
diff --git a/emacs.d/init.el b/emacs.d/init.el index a1bccb8..d22df22 100644 --- a/emacs.d/init.el +++ b/emacs.d/init.el @@ -535,7 +535,7 @@ (use-package wabi-sabi-theme ;; this is my own custom theme. No syntax highlighting - :load-path (lambda () (expand-file-name "~/src/wabi-sabi-theme.el/")) + :load-path (lambda () (expand-file-name "lib" user-emacs-directory)) :config (load-theme 'wabi-sabi t)) diff --git a/emacs.d/lib/wabi-sabi-theme.el b/emacs.d/lib/wabi-sabi-theme.el new file mode 100644 index 0000000..1f424c7 --- /dev/null +++ b/emacs.d/lib/wabi-sabi-theme.el @@ -0,0 +1,62 @@ +;;; 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 "#fdfaf5") + (bg-alt "LightYellow") + (fg "#000000") + (fg-alt "lightgray") + (highlight "#D0DBC8") + (highlight-alt "#909C87") + (modeline-fg "#ffffff") + (modeline-bg "#2D271F") + (modeline-bg-alt "#605C49")) + + (apply 'custom-theme-set-faces 'wabi-sabi + `(default ((t (:foreground ,fg :background ,bg)))) + `(cursor ((t (:background ,fg :foreground ,bg)))) + `(highlight ((t (:background ,highlight)))) + + `(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 ,highlight :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 |