Browse Source

Split some lines into dedicated theme file

master
Lucien Cartier-Tilet 10 months ago
parent
commit
0aa3a76656
Signed by: phundrak
GPG Key ID: BD7789E705CB8DCA
  1. 52
      init.lisp
  2. 51
      theme.lisp

52
init.lisp

@ -11,23 +11,6 @@ @@ -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 @@ @@ -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")

51
theme.lisp

@ -0,0 +1,51 @@ @@ -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))