#+TITLE: StumpWM Configuration
#+AUTHOR: Thanos Apollo
#+PROPERTY: header-args :tangle ~/.stumpwm.d/init.lisp :mkdirp yes
#+auto_tangle: t
#+STARTUP: overview
* Load Modules
#+begin_src lisp

  (setf is-zeus (equal (asdf:hostname) "zeus"))
  (setf is-hermes (equal (asdf:hostname) "hermes"))

  (let ((quicklisp-init (merge-pathnames "quicklisp/setup.lisp"
					 (user-homedir-pathname))))
    (when (probe-file quicklisp-init)
      (load quicklisp-init)))

  (in-package :stumpwm)
  (setf *default-package* :stumpwm)
  (set-module-dir "~/.stumpwm.d/modules")

  (load-module "beckon")
  (load-module "end-session")
  (load-module "globalwindows")
  (load-module "mpd")
  (load-module "stump-backlight")
  (load-module "urgentwindows")
  (when is-zeus
    (load-module "pinentry"))

  (mpd:mpd-connect)
#+end_src
* Setup slynk
#+begin_src lisp
  (ql:quickload :slynk)


  (stumpwm:defcommand sly-start-server () ()
    "Start a slynk server for sly."
    (sb-thread:make-thread (lambda () (slynk:create-server :dont-close t))))

  (stumpwm:defcommand sly-stop-server () ()
    "Stop current slynk server for sly."
    (sb-thread:make-thread (lambda () (slynk:stop-server 4005))))

#+end_src
* Autostart
#+begin_src lisp
  (setf *wallpapers* "~/wallpapers/")


  (defun feh-set-wallpaper (wallpaper-name)
    (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))))

  (cond (is-zeus (feh-set-wallpaper "eris-chocolates.jpg"))
	(is-hermes (feh-set-wallpaper "library-old-house.jpg")))

  (when *initializing*
    (stumpwm:run-shell-command
      "emacs --daemon &
       picom &
       setxkbmap -layout us,gr,my-bg -option 'ctrl:swapcaps' -option 'grp:alt_space_toggle'"))

  (setf *startup-message* "Welcome back, Thanos")
#+end_src
* Functions
#+begin_src lisp
  ;; Web jump (works for DuckDuckGo)
  (defmacro make-web-jump (name prefix)
    `(defcommand ,(intern name) (search) ((:rest ,(concatenate 'string "Ask the " name ": ")))
       (nsubstitute #\+ #\Space search)
       (run-shell-command (concatenate 'string ,prefix search))))

  (make-web-jump "Duck" "firefox https://duckduckgo.com/?q=")
  (make-web-jump "Invidious" "firefox https://yewtu.be/search?q=")
  (defcommand firefox () ()
    "Run or raise Firefox."
    (sb-thread:make-thread (lambda () (run-or-raise "firefox" '(:class "firefox") t nil))))

  (defcommand delete-window-and-frame () ()
    "Delete the current frame with its window."
    (delete-window)
    (remove-split))

  (defcommand hsplit-and-focus () ()
    "Create a new frame on the right and focus it."
    (hsplit)
    (move-focus :right))

  (defcommand vsplit-and-focus () ()
    "Create a new frame below and move focus to it."
    (vsplit)
    (move-focus :down))

  (defcommand term (&optional program) ()
    "Invoke a terminal, possibly with a @arg{program}."
    (sb-thread:make-thread
     (lambda ()
       (run-shell-command (if program
			      (format nil "kitty ~A" program)
			      "kitty")))))

  (defvar *my/desktop-dump-file* "~/.cache/stump-at-work"
    "Where my desktop dump should go and be loaded from.")

  (defcommand dump-work () ()
    "Save desktop layout when at work."
    (dump-desktop-to-file *my/desktop-dump-file*))

  (defcommand at-work () ()
    "Restore desktop layout when at work."
    (restore-from-file *my/desktop-dump-file*)
    (run-shell-command "gpclient")
    (run-shell-command "bluetoothctl power on && bluetoothctl connect 14:3F:A6:6D:E3:D9"))
#+end_src
* UI
** Frames
#+begin_src 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)
#+end_src
** Theme
#+begin_src lisp
  (defvar thanos-nord0 "#2e3440")
  (defvar thanos-nord1 "#3b4252")
  (defvar thanos-nord2 "#434c5e")
  (defvar thanos-nord3 "#4c566a")
  (defvar thanos-nord4 "#d8dee9")
  (defvar thanos-nord5 "#e5e9f0")
  (defvar thanos-nord6 "#eceff4")
  (defvar thanos-nord7 "#8fbcbb")
  (defvar thanos-nord8 "#88c0d0")
  (defvar thanos-nord9 "#81a1c1")
  (defvar thanos-nord10 "#5e81ac")
  (defvar thanos-nord11 "#bf616a")
  (defvar thanos-nord12 "#d08770")
  (defvar thanos-nord13 "#ebcb8b")
  (defvar thanos-nord14 "#a3be8c")
  (defvar thanos-nord15 "#b48ead")

  (defvar thanos-hope "#1c1d20")
  (defvar thanos-hope-alt "#151619")
  (defvar thanos-hope0      "#1B2229")
  (defvar thanos-hope1      "#1c1f24")
  (defvar thanos-hope2      "#202328")
  (defvar thanos-hope3      "#23272e")
  (defvar thanos-hope4      "#3f444a")
  (defvar thanos-hope5      "#5B6268")
  (defvar thanos-hope6      "#686b78")
  (defvar thanos-hope7      "#9ca0a4")
  (defvar thanos-hope8      "#DFDFDF")
  (defvar thanos-hope-fg       "#cbccd1")
  (defvar thanos-hope-alt   "#5B6268")

  (setq *colors*
	`(,thanos-nord0   ;; 0 black
	  ,thanos-nord11  ;; 1 red
	  ,thanos-nord14  ;; 2 green
	  ,thanos-nord13  ;; 3 yellow
	  ,thanos-nord10  ;; 4 blue
	  ,thanos-nord14  ;; 5 magenta
	  ,thanos-nord8  ;; 6 cyan
	  ,thanos-nord5)) ;; 7 white
  (setq *colors*
	`(,thanos-hope      "#1c1d20"
	  ,thanos-hope-alt   "#151619"
	  ,thanos-hope0      "#1B2229"
	  ,thanos-hope1      "#1c1f24"
	  ,thanos-hope2      "#202328"
	  ,thanos-hope3      "#23272e"
	  ,thanos-hope4      "#3f444a"
	  ,thanos-hope5      "#5B6268"
	  ,thanos-hope6      "#686b78"
	  ,thanos-hope7      "#9ca0a4"
	  ,thanos-hope8      "#DFDFDF"
	  ,thanos-hope-fg    "#cbccd1"
	  ,thanos-hope-alt   "#5B6268"))

  (when *initializing*
    (update-color-map (current-screen)))

  (load-module "swm-gaps")
  (setf swm-gaps:*head-gaps-size*  0
	swm-gaps:*inner-gaps-size* 2
	swm-gaps:*outer-gaps-size* 4)

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

  (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)
#+end_src
** Fonts
#+begin_src lisp
  (ql:quickload :clx-truetype)
  (load-module "ttf-fonts")

  (set-font `(,(make-instance 'xft:font :family "JetBrains Mono" :subfamily "Regular" :size 12 :antialias t)
	      ;; ,(make-instance 'xft:font :family "DejaVu Sans Mono for Powerline" :subfamily "Book" :size 8.5 :antialias t)
	      ;; ,(make-instance 'xft:font :family "siji" :subfamily "Medium" :size 10 :antialias t)
	      ;; ,(make-instance 'xft:font :family "FantasqueSansMono Nerd Font Mono" :subfamily "Regular" :size 9.5 :antialias t)
	      )
	    )
#+end_src
* Modeline
#+begin_src lisp
  (load-module "battery-portable")

  (setf *mode-line-timeout* 2)
  (setf *group-format* "%t")
  (setf *window-format* "%n: %30t")

  ;; set modeline colors and highlight
  (setf *mode-line-background-color* thanos-hope
	,*mode-line-foreground-color* thanos-hope-fg
	stumpwm:*mode-line-border-color* thanos-hope
	stumpwm:*mode-line-highlight-template* "«~A»")


  (setf *mode-line-border-color* thanos-hope1
	,*mode-line-border-width* 2)

  (when *initializing*
    (grename "[ALPHA]")
    (gnewbg "[BETA]")
    (gnewbg "[GAMMA]")
    (gnewbg "[DELTA]")
    (gnewbg "[LAMBDA]"))
  (clear-window-placement-rules)
  (setf *dynamic-group-master-split-ratio* 1/2)

  (setf *time-modeline-string* "%a %d/%m/%Y | %H:%M")

  (setf stumpwm:*screen-mode-line-format*
	(list "%g ^>"
	      "RAM:"
	      '(:eval (string-trim '(#\Newline)
		       (stumpwm:run-shell-command
			"free | awk '/Mem/ { printf(\"%.2f%\"), $3/$2 * 100.0 }'" t)))
	      "% | CPU:"
	      '(:eval (string-trim '(#\Newline)
		       (stumpwm:run-shell-command
			"grep 'cpu ' /proc/stat | awk '{usage=($2+$4)*100/($2+$4+$5)} END {printf(\"%.2f\", usage)}'" t)))
	      "% | VOL:"
	      '(:eval (string-trim '(#\Newline)
		       (stumpwm:run-shell-command "pamixer --get-volume" t)))
	      "% | "
	      ;; Check when hermes(laptop) t display battery
	      (when is-hermes
		"BAT:%B |")
	      "%d"))

  (when stumpwm:*initializing*
    (mode-line))
#+end_src
/Note: to trim new line when using shell commands for mode-line use something like this:/
#+begin_src emacs-lisp :tangle nil
  (setf *screen-mode-line-format*
	(list
	'(:eval (string-trim '(#\Newline)
		  (run-shell-command "date" t)))
	'(:eval (run-shell-command "date" t))))
#+end_src
* Keybindings
#+begin_src lisp
  (defcommand colon1 (&optional (initial "")) (:rest)
    (let ((cmd (read-one-line (current-screen) ": " :initial-input initial)))
      (when cmd
	(eval-command cmd t))))

  ;; Run rofi
  (define-key *root-map* (kbd "C-r") "exec emacsclient -e '(thanos/app-launcher\)'")
  (define-key *root-map* (kbd ",") "exec flameshot gui")
  (define-key *root-map* (kbd "C-R") "restart-soft")
  (define-key *root-map* (kbd "M-r") "restart-hard")
  (define-key *root-map* (kbd "p") "exec emacsclient -e '(thanos/pass-launcher)'")
  (define-key *root-map* (kbd "f") "float-this")
  (define-key *root-map* (kbd "b") "windowlist")
  (define-key *root-map* (kbd "d") "delete-window")
  (define-key *root-map* (kbd "D") "delete-window-and-frame")

  (define-key *root-map* (kbd "C-f") "unfloat-this")

  (defvar *thanos-buffers-map*
    (let ((m (make-sparse-keymap)))
      (define-key m (kbd "0") "delete-window-and-frame")
      (define-key m (kbd "3") "hsplit-and-focus")
      m ; NOTE: this is important
    ))

  (define-key *root-map* (kbd "x") *thanos-buffers-map*)

  (define-key *root-map* (kbd "e") "exec emacsclient -c")

  (define-key *root-map* (kbd "C-e") "exec emacs --daemon")

  ;; Ssh somewhere
  (define-key *root-map* (kbd "C-S") "colon1 exec xterm -e ssh ")

  ;; Lock screen
  (define-key *root-map* (kbd "C-l") "exec ~/Developer/scripts/lock.sh")

  (define-key *top-map* (kbd "F11") "fullscreen")
  ;; Audio
  (define-key *top-map* (kbd "XF86AudioLowerVolume") "exec pamixer -d 5")
  (define-key *top-map* (kbd "XF86AudioRaiseVolume") "exec pamixer -i 5")

  ;;Keyboard-light
  (define-key *top-map* (kbd "XF86Explorer") "exec brightnessctl --device='tpacpi::kbd_backlight' set +1")
  (define-key *top-map* (kbd "XF86LaunchA") "exec brightnessctl --device='tpacpi::kbd_backlight' set 1-")

  ;; Keyboard layout
  (define-key *top-map* (kbd "F1") "exec setxkbmap us -option ctrl:swapcaps")
  (define-key *top-map* (kbd "F2") "exec setxkbmap gr -option ctrl:swapcaps")

    ;;; Groups
  ;; Switch to group
  (define-key *root-map* (kbd "M-1") "gselect 1")
  (define-key *root-map* (kbd "M-2") "gselect 2")
  (define-key *root-map* (kbd "M-3") "gselect 3")
  (define-key *root-map* (kbd "M-4") "gselect 4")
  (define-key *root-map* (kbd "M-5") "gselect 5")
  (define-key *root-map* (kbd "M-6") "gselect 6")
  (define-key *root-map* (kbd "M-7") "gselect 7")
  (define-key *root-map* (kbd "M-0") "gselect 5")
  (define-key *root-map* (kbd "M-9") "gselect")
  ;; Move window to group
  (define-key *root-map* (kbd "M-!") "gmove 1")
  (define-key *root-map* (kbd "M-@") "gmove 2")
  (define-key *root-map* (kbd "M-#") "gmove 3")
  (define-key *root-map* (kbd "M-$") "gmove 4")
  (define-key *root-map* (kbd "M-%") "gmove 5")
  (define-key *root-map* (kbd "M-^") "gmove 6")
  (define-key *root-map* (kbd "M-)") "gmove 5")
  (define-key *root-map* (kbd "M-(") "gmove")
  ;; Focus
  (define-key *root-map* (kbd "M-b") "move-focus left")
  (define-key *root-map* (kbd "M-f") "move-focus right")
  (define-key *root-map* (kbd "M-n") "move-focus down")

  (define-key *root-map* (kbd "s") "Duck")
  ;(define-key *root-map* (kbd "v") "Invidious")
#+end_src