better custom theme loading

1 files changed, 101 insertions, 0 deletions

diff --git a/bard-elisp/bard-theme.el b/bard-elisp/bard-theme.el
new file mode 100644
index 0000000..fb90c85
--- /dev/null
+++ b/bard-elisp/bard-theme.el
@@ -0,0 +1,101 @@
+(setq fontaine-presets
+        '((default
+           :default-height 160
+           :default-family "Iosevka Comfy"
+           :variable-pitch-family "Iosevka Comfy Motion"
+           :variable-pitch-height 1.0
+           :fixed-pitch-family "Iosevka Comfy"
+           :fixed-pitch-height 1.0
+           :bold-weight bold
+           :mode-line-active-family "Iosevka Comfy Motion"
+           :mode-line-inactive-family "Iosevka Comfy Motion"
+           :mode-line-active-height 160
+           :mode-line-inactive-height 160
+           )
+          (mixed
+           :inherit default
+           :variable-pitch-family "Iosevka Comfy Wide Motion Duo")
+          (wide
+           :inherit default
+           :default-height 150
+           :default-family "Iosevka Comfy Wide"
+           :fixed-pitch-family "Iosevka Comfy Wide"
+           :mode-line-active-family "Iosevka Comfy Wide Motion Duo"
+           :mode-line-inactive-family "Iosevka Comfy Wide Motion Duo"
+           :variable-pitch-family "Iosevka Comfy Wide Motion Duo"
+           :mode-line-active-height 150
+           :mode-line-inactive-height 150)
+          (large
+           :inherit default
+           :variable-pitch-family "Iosevka Comfy Wide Motion"
+           :default-height 170
+           :mode-line-active-height 150
+           :mode-line-inactive-height 150
+           )
+          (huge
+           :inherit default
+           :variable-pitch-family "Iosevka Comfy Wide Motion"
+           :default-height 200
+           :mode-line-active-height 170
+           :mode-line-inactive-height 170
+           )
+          (comic
+           :inherit default
+           :default-family "Comic Code"
+           :variable-pitch-family "Comic Code"
+           :fixed-pitch-family "Comic Code"
+           :mode-line-active-family "Comic Code"
+           :mode-line-inactive-family "Comic Code"
+           )
+          (writing
+           :inherit default
+           :variable-pitch-family "Lora")
+          (bit
+           :inherit default
+           :default-height 180
+           :mode-line-active-height 180
+           :mode-line-inactive-height 180
+           :default-family "Terminus"
+           :variable-pitch-family "Terminus"
+           :fixed-pitch-family "Terminus"
+           :mode-line-active-family "Terminus"
+           :mode-line-inactive-family "Terminus"
+           )
+          (t
+           :default-family "Monospace"
+           )))
+
+;; Switching themes
+(defun bard/disable-all-themes ()
+  "disable all active themes."
+  (interactive)
+  (dolist (i custom-enabled-themes)
+    (disable-theme i)))
+
+(defvar bard/after-theme-load-hook nil
+  "Hook that runs after a new theme is loaded using `bard/select-theme`.")
+
+(dolist (hook '(enable-theme-hook))
+  (add-hook hook #'fontaine-apply-current-preset)
+  (add-hook hook #'logos-update-fringe-in-buffers))
+
+(add-to-list 'enable-theme-functions #'logos-update-fringe-in-buffers)
+
+(add-to-list 'enable-theme-functions #'fontaine-apply-current-preset)
+
+(defun bard/select-theme ()
+  "Prompt the user to select a theme from all available custom themes and enable it."
+  (interactive)
+  (let* ((theme (completing-read "Select theme: " (mapcar 'symbol-name (custom-available-themes))))
+         (theme-symbol (intern theme))
+         (theme-name (if (string-suffix-p "-theme" theme)
+                         (substring theme 0 -6)
+                       theme))
+         (colored-theme-name (propertize theme-name 'face '(:weight bold))))
+    (bard/disable-all-themes)
+    (load-theme theme-symbol t)
+    (message "Loaded the %s theme" colored-theme-name)
+    (run-hooks 'after-theme-load-hook)))
+
+
+(provide 'bard-theme)