From f7c3db0c688b9b98762464cc9e4cc7c87a9dbe96 Mon Sep 17 00:00:00 2001
From: Thanos Apollo <public@thanosapollo.com>
Date: Sun, 3 Sep 2023 15:30:20 +0300
Subject: stumpwm: modularize

---
 .stumpwm.d/theme.lisp | 43 +++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 43 insertions(+)
 create mode 100644 .stumpwm.d/theme.lisp

(limited to '.stumpwm.d/theme.lisp')

diff --git a/.stumpwm.d/theme.lisp b/.stumpwm.d/theme.lisp
new file mode 100644
index 0000000..acd876a
--- /dev/null
+++ b/.stumpwm.d/theme.lisp
@@ -0,0 +1,43 @@
+;; Startup message
+
+(setf *startup-message* "Welcome back, Thanos")
+
+;; Colors
+(load-module "ttf-fonts")
+(load "~/.stumpwm.d/colors.lisp")
+
+(setf *message-window-gravity* :center
+      *input-window-gravity* :center
+      *window-border-style :thin
+      *mouse-focus-policy* :click
+      *float-window-modifier* :META
+      *transient-border-width* 2
+      *normal-size-border-width* 2
+      *message-window-padding*   10
+      *message-window-y-padding* 10)
+  
+(when *initializing*
+  (update-color-map (current-screen)))
+
+
+
+(set-border-color        thanos-hope)
+(set-focus-color         thanos-hope)
+(set-unfocus-color       thanos-hope-alt)
+(set-float-focus-color   thanos-hope1)
+(set-float-unfocus-color thanos-hope3)
+
+(set-fg-color thanos-hope-fg)
+(set-bg-color thanos-hope-alt)
+
+(setf swm-gaps:*head-gaps-size*  0
+      swm-gaps:*inner-gaps-size* 5
+      swm-gaps:*outer-gaps-size* 5)
+
+(when *initializing*
+  (swm-gaps:toggle-gaps-on))
+
+(ql:quickload :clx-truetype)
+
+(set-font
+ `(,(make-instance 'xft:font :family "JetBrains Mono" :subfamily "Regular" :size 12 :antialias t)))
-- 
cgit v1.2.3