From 1a0b078fadc5686fd5f0f8ef837b3fa29e72feea Mon Sep 17 00:00:00 2001
From: Christian Cunningham <cc@localhost>
Date: Thu, 20 Jun 2024 14:10:36 -0700
Subject: Create Dark Mode

---
 elchemy-package-base16-theme.el |  4 ++++
 elchemy-packages.el             |  2 ++
 elchemy-personal.el             | 16 ++++++++--------
 elchemy-user.el                 |  3 ++-
 elchemy-util.el                 |  2 ++
 5 files changed, 18 insertions(+), 9 deletions(-)
 create mode 100644 elchemy-package-base16-theme.el

diff --git a/elchemy-package-base16-theme.el b/elchemy-package-base16-theme.el
new file mode 100644
index 0000000..81a25c9
--- /dev/null
+++ b/elchemy-package-base16-theme.el
@@ -0,0 +1,4 @@
+(use-package base16-theme
+  :ensure t)
+
+(provide 'elchemy-package-base16-theme)
diff --git a/elchemy-packages.el b/elchemy-packages.el
index 207a6eb..c07a74a 100644
--- a/elchemy-packages.el
+++ b/elchemy-packages.el
@@ -2,6 +2,8 @@
 (require 'elchemy-package-auto-package-update)
 ;; Org Mode
 (require 'elchemy-package-org)
+;; Base16 Colors
+(require 'elchemy-package-base16-theme)
 ;; Remove Minor Modes from Modeline
 (require 'elchemy-package-diminish)
 ;; Flyspell Autocorrect
diff --git a/elchemy-personal.el b/elchemy-personal.el
index a945041..6a74800 100644
--- a/elchemy-personal.el
+++ b/elchemy-personal.el
@@ -41,13 +41,13 @@
   (elchemy/create-dashboard))
 
 ;; Face Color Customizations
-(add-hook 'minibuffer-setup-hook
-          (lambda ()
-            (make-local-variable 'face-remapping-alist)
-            (add-to-list 'face-remapping-alist '(default (:background "gray90")))))
-(custom-set-faces
- '(mode-line ((t (:background "grey95" :foreground "gray20"))))
- '(org-document-info-keyword ((t (:foreground "gray100" :height 0.1)))))
-
+(unless elchemy/user/dark-theme
+  (add-hook 'minibuffer-setup-hook
+            (lambda ()
+              (make-local-variable 'face-remapping-alist)
+              (add-to-list 'face-remapping-alist '(default (:background "gray90")))))
+  (custom-set-faces
+   '(mode-line ((t (:background "grey95" :foreground "gray20"))))
+   '(org-document-info-keyword ((t (:foreground "gray100" :height 0.1))))))
 
 (provide 'elchemy-personal)
diff --git a/elchemy-user.el b/elchemy-user.el
index 9e9899d..2f32392 100644
--- a/elchemy-user.el
+++ b/elchemy-user.el
@@ -22,7 +22,8 @@
 (setq completion-at-point-functions '(elisp-completion-at-point comint-dynamic-complete-filename t))
 
 ;; User Options
-(setq elchemy/user/latex-compiler "lualatex"
+(setq elchemy/user/dark-theme t
+      elchemy/user/latex-compiler "lualatex"
       elchemy/user/org-directory "~/org/"
       elchemy/user/org-todo-file-name "todo.org"
       elchemy/user/org-notes-file-name "notes.org"
diff --git a/elchemy-util.el b/elchemy-util.el
index 832d039..ee9fdd9 100644
--- a/elchemy-util.el
+++ b/elchemy-util.el
@@ -41,6 +41,8 @@
      ((find-font (font-spec :name "FixedrSys Light 2x"))
       (set-frame-font "FixederSys Light 2x-14:antialias=none")))
     (set-face-attribute 'default nil :height 100)
+    (when elchemy/user/dark-theme
+      (load-theme 'base16-gruvbox-dark-pale t))
     (if (get-buffer "*Dashboard*")
 	(switch-to-buffer "*Dashboard*"))))
 
-- 
cgit v1.2.1