From 0aa3a76656136269f7d726d99fe656059b37cf9c Mon Sep 17 00:00:00 2001
From: Lucien Cartier-Tilet <lucien@phundrak.com>
Date: Thu, 29 Jul 2021 19:34:18 +0200
Subject: [PATCH] Split some lines into dedicated theme file

---
 init.lisp  | 52 ++--------------------------------------------------
 theme.lisp | 51 +++++++++++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 53 insertions(+), 50 deletions(-)
 create mode 100644 theme.lisp

diff --git a/init.lisp b/init.lisp
index 5c1767d..19c3e4f 100644
--- a/init.lisp
+++ b/init.lisp
@@ -11,23 +11,6 @@
 ;; (set-module-dir (concatenate 'string (getenv "HOME") "/.stumpwm.d/modules"))
 (set-module-dir "/usr/share/stumpwm/contrib/util/")
 
-(defvar phundrak-nord0  "#2e3440")
-(defvar phundrak-nord1  "#3b4252")
-(defvar phundrak-nord2  "#434c5e")
-(defvar phundrak-nord3  "#4c566a")
-(defvar phundrak-nord4  "#d8dee9")
-(defvar phundrak-nord5  "#e5e9f0")
-(defvar phundrak-nord6  "#eceff4")
-(defvar phundrak-nord7  "#8fbcbb")
-(defvar phundrak-nord8  "#88c0d0")
-(defvar phundrak-nord9  "#81a1c1")
-(defvar phundrak-nord10 "#5e81ac")
-(defvar phundrak-nord11 "#bf616a")
-(defvar phundrak-nord12 "#d08770")
-(defvar phundrak-nord13 "#ebcb8b")
-(defvar phundrak-nord14 "#a3be8c")
-(defvar phundrak-nord15 "#b48ead")
-
 ;; startup
 (setf *startup-message* nil)
 
@@ -39,44 +22,13 @@
 ;;; load keybindings
 (load "~/.stumpwm.d/keybindings.lisp")
 
-;;; load ttf
-;; (require 'clx-truetype)
-;; (ql:quickload :truetype-clx)
-;; (load-module "ttf-fonts")
-;; (set-font (make-instance 'xft:font
-;;                          :family "DejaVu Sans Mono for Powerline"
-;;                          :subfamily "Regular"
-;;                          :size 7
-;;                          :antialias t))
-
-(set-border-color        phundrak-nord4)
-(set-focus-color         phundrak-nord15)
-(set-unfocus-color       phundrak-nord4)
-(set-float-focus-color   phundrak-nord15)
-(set-float-unfocus-color phundrak-nord4)
-(setf *normal-border-width* 3
-      *float-window-border* 3
-      *float-window-title-height* 15
-      *window-border-style* :thick)
+;;; load theme
+(load "~/.stumpwm.d/theme.lisp")
 
 ;; configs
 (setf *mouse-focus-policy* :click
       *float-window-modifier* :META)
 
-;; message and input bar
-(setf *input-window-gravity*     :top
-      *message-window-padding*   5
-      *message-window-y-padding* 5
-      *message-window-gravity*   :top)
-
-;;; gaps
-(load-module "swm-gaps")
-(setf swm-gaps:*head-gaps-size*  0
-      swm-gaps:*inner-gaps-size* 5
-      swm-gaps:*outer-gaps-size* 15)
-(when *initializing*
-  (swm-gaps:toggle-gaps))
-
 ;;; end session module
 (load-module "end-session")
 
diff --git a/theme.lisp b/theme.lisp
new file mode 100644
index 0000000..9a1d6d9
--- /dev/null
+++ b/theme.lisp
@@ -0,0 +1,51 @@
+(defvar phundrak-nord0  "#2e3440")
+(defvar phundrak-nord1  "#3b4252")
+(defvar phundrak-nord2  "#434c5e")
+(defvar phundrak-nord3  "#4c566a")
+(defvar phundrak-nord4  "#d8dee9")
+(defvar phundrak-nord5  "#e5e9f0")
+(defvar phundrak-nord6  "#eceff4")
+(defvar phundrak-nord7  "#8fbcbb")
+(defvar phundrak-nord8  "#88c0d0")
+(defvar phundrak-nord9  "#81a1c1")
+(defvar phundrak-nord10 "#5e81ac")
+(defvar phundrak-nord11 "#bf616a")
+(defvar phundrak-nord12 "#d08770")
+(defvar phundrak-nord13 "#ebcb8b")
+(defvar phundrak-nord14 "#a3be8c")
+(defvar phundrak-nord15 "#b48ead")
+
+;;; Font settings
+(require 'clx-truetype)
+(ql:quickload :truetype-clx)
+(load-module "ttf-fonts")
+(set-font (make-instance 'xft:font
+                         :family "DejaVu Sans"
+                         :subfamily "Book"
+                         :size 11
+                         :antialias t))
+
+;;; Colors
+(set-border-color                 phundrak-nord4)
+(set-focus-color                  phundrak-nord15)
+(set-unfocus-color                phundrak-nord4)
+(set-float-focus-color            phundrak-nord15)
+(set-float-unfocus-color          phundrak-nord4)
+(setf *normal-border-width*       3
+      *float-window-border*       3
+      *float-window-title-height* 15
+      *window-border-style*       :thick)
+
+;; message and input bar
+(setf *input-window-gravity*     :top
+      *message-window-padding*   5
+      *message-window-y-padding* 5
+      *message-window-gravity*   :top)
+
+;;; gaps
+(load-module "swm-gaps")
+(setf swm-gaps:*head-gaps-size*  0
+      swm-gaps:*inner-gaps-size* 5
+      swm-gaps:*outer-gaps-size* 15)
+(when *initializing*
+  (swm-gaps:toggle-gaps))