summary refs log tree commit diff
path: root/emacs.d/lib/wabi-sabi-theme.el
diff options
context:
space:
mode:
Diffstat (limited to 'emacs.d/lib/wabi-sabi-theme.el')
-rw-r--r--emacs.d/lib/wabi-sabi-theme.el63
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