[Emacs] Move wabi-sabi theme inside this repo.

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