;; Startup message

(setf *startup-message* "Welcome back, Thanos")
(stumpwm:load-module "swm-gaps")
;; Colors
(stumpwm:load-module "ttf-fonts")
(load "~/.stumpwm.d/colors.lisp")


;; Wallpaper
(defun feh-set-wallpaper (wallpaper-name)
  "Set wallpaper using feh"
  (let ((wallpaper-dir "~/wallpapers/"))
    (format t "Setting wallpaper: ~a~%" wallpaper-name)
    (run-shell-command (format nil "feh --bg-scale ~a~a" wallpaper-dir wallpaper-name))))

(defun thanos/set-wallpapers ()
  "Set wallpapers depending on hostname."
  (cond ((equal (asdf:hostname) "zeus") (feh-set-wallpaper "winter-dragons.jpg"))
	((equal (asdf:hostname) "hermes") (feh-set-wallpaper "cyberpunk-wallpaper2.jpg"))))


(when *initializing*
    (thanos/set-wallpapers))

(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)
   ))