;; Startup message

(setf *startup-message* "Welcome back, Thanos")
(stumpwm:load-module "swm-gaps")
;; Colors
(stumpwm: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*  6
      swm-gaps:*inner-gaps-size* 6
      swm-gaps:*outer-gaps-size* 6)

(when stumpwm:*initializing*
  (swm-gaps:toggle-gaps-on))

(ql:quickload :clx-truetype)

(stumpwm:set-font
 `(,(make-instance 'xft:font
		   :family "JetBrains Mono"
		   :subfamily "Regular"
		   :size 12
		   :antialias t)
   ,(make-instance 'xft:font
		   :family "Hack"
		   :subfamily "Regular"
		   :size 12)
   ,(make-instance 'xft:font
		   :family "Fira Code"
		   :subfamily "Regular"
		   :size 12)
   ))