1 files changed, 93 insertions, 0 deletions
diff --git a/stumpwm/.stumpwm.d/style.lisp b/stumpwm/.stumpwm.d/style.lisp
new file mode 100644
index 0000000..a8154d9
--- /dev/null
+++ b/stumpwm/.stumpwm.d/style.lisp
@@ -0,0 +1,93 @@
+(in-package :stumpwm)
+
+(defparameter *reload-mode-line-p* nil)
+
+(defparameter *menu-prompt* "Select theme:")
+
+(defvar *themes* (make-hash-table :test 'equal))
+
+(defmacro define-theme (name &body body)
+  `(setf (gethash ,name *themes*) #'(lambda () ,@body)))
+
+(defun select-from-themes-menu ()
+  (when-let* ((items (hash-table-keys *themes*))
+              (item (select-from-menu (current-screen) items *menu-prompt*)))
+    (gethash (car item) *themes*)))
+
+(defun reloads ()
+  (update-color-map (current-screen))
+  (when *reload-mode-line-p*
+    (mode-line)
+    (mode-line)))
+
+(defun themes-menu ()
+  (when-let (theme (select-from-themes-menu))
+    (funcall theme)
+    (reloads)))
+
+(define-theme "Ef Autumn"
+  (set-fg-color "#cfbcba")
+  (set-bg-color "#0f0e06")
+  (set-focus-color "#692a12")
+  (set-unfocus-color "#36322f")
+  (setf *mode-line-background-color* "#0f0e06"
+        *mode-line-foreground-color* "#cfbcba")
+  )
+
+(define-theme "Ef Bio"
+
+  (set-fg-color "#cfdfd5")
+  (set-bg-color "#111111")
+  (set-focus-color "#00552f")
+  (set-unfocus-color "#2a3644")
+  (setf *mode-line-background-color* "#111111"
+        *mode-line-foreground-color* "#cfdfd5")
+  )
+
+(define-theme "Gruber Darker"
+
+  (set-fg-color "#e4e4e4")
+  (set-bg-color "#181818")
+  (set-focus-color "#cc8c3c")
+  (set-unfocus-color "#282828")
+  (setf *mode-line-background-color* "#181818"
+        *mode-line-foreground-color* "#e4e4e4")
+  )
+
+(define-theme "Gruvbox"
+
+  (set-fg-color "#ebdbb2")
+  (set-bg-color "#1d2021")
+  (set-focus-color "#b8bb26")
+  (set-unfocus-color "#83a598")
+  (setf *mode-line-background-color* "#1d2021"
+        *mode-line-foreground-color* "#ebdbb2")
+  )
+
+(defcommand theme () () (themes-menu))
+
+(setq *startup-message* (format nil "^bWelcome Home!!!"))
+
+(setf *message-window-padding* 4
+      *message-window-y-padding* 4
+      *message-window-gravity* :center)
+
+(setf *input-window-gravity* :center)
+
+;;;; Fonts
+(ql:quickload "clx-truetype")
+(pushnew (concat (getenv "HOME")
+                 "/.local/share/fonts/")
+         xft:*font-dirs* :test #'string=)
+(xft:cache-fonts)
+
+(let ((parent-font "Iosevka Comfy"))
+  (when (find parent-font (the list (clx-truetype:get-font-families))
+              :test #'string=)
+    (load-module "ttf-fonts")
+    (set-font `(,(make-instance 'xft:font
+                                :family "Iosevka Comfy"
+                                :subfamily "Regular"
+                                :size 12
+                                :antialias t)))
+    (mode-line)))