#+TITLE: StumpWM Configuration
#+PROPERTY: header-args:lisp :tangle ~/Dotfiles/.config/stumpwm/config :mkdirp yes

In my quest to make my computer a Lisp machine in its own right, I am using StumpWM as my window manager.

* Init
#+begin_src lisp
(in-package :stumpwm)
;; (defvar *sbcl-path* "~/.guix-home/profile/share/common-lisp/sbcl/")

;; StumpWM Modules
;; (stumpwm:add-to-load-path "~/.guix-home/profile/share/common-lisp/sbcl/stumpwm-swm-gaps")
;; (stumpwm:add-to-load-path "~/.guix-home/profile/share/common-lisp/sbcl/stumpwm-ttf-fonts")
;; (stumpwm:add-to-load-path "~/.guix-home/profile/share/common-lisp/sbcl/stumpwm-stumptray")
;; (stumpwm:add-to-load-path "~/.guix-home/profile/share/common-lisp/sbcl/stumpwm-kbd-layouts")
#+end_src

* Environment
** Workspaces
#+begin_src lisp
(run-commands
 "gnewbg I"
 "gnew II"
 "gnewbg III"
 "gnewbg IV"
 "gnewbg V"
 "gnewbg-float F")
#+end_src

** Set Prefix
#+begin_src lisp
;; (set-prefix-key (kbd "s-d"))
#+end_src

** Focus window with mouth
#+begin_src lisp
;; (setf *mouse-focus-policy* :click)
#+end_src

** Messages
#+begin_src lisp
(setq *message-window-gravity* :top)
(setq *message-window-padding* 10)
: (setq *message-window-y-padding 10)
#+end_src

** Command Window
#+begin_src lisp
;; (setq *input-window-gravity* :center)
#+end_src
* Keyboard
** Load Keyboard Layout Module
#+begin_src lisp
;; (load-module "kbd-layouts")
#+end_src
** Remap Caps Lock
#+begin_src lisp :tangle yes
  ;; (setf kbd-layouts:*caps-lock-behavior* :esc)
#+end_src
** Xmodmap
#+begin_src lisp
;; (run-shell-command "xmodmap ~/Dotfiles/.config/Xmodmap")
#+end_src

** Keybinds
#+begin_src lisp
;; Set some super key bindings
(define-key *top-map* (kbd "s-h") "move-focus left")
(define-key *top-map* (kbd "s-l") "move-focus right")
(define-key *top-map* (kbd "s-j") "move-focus down")
(define-key *top-map* (kbd "s-k") "move-focus up")

(define-key *top-map* (kbd "s-H") "move-window left")
(define-key *top-map* (kbd "s-L") "move-window right")
(define-key *top-map* (kbd "s-J") "move-window down")
(define-key *top-map* (kbd "s-K") "move-window up")

(define-key *top-map* (kbd "s-f") "fullscreen")
(define-key *top-map* (kbd "s-r") "iresize")
(define-key *top-map* (kbd "s-Q") "delete")
(define-key *top-map* (kbd "s-SPC") "run-shell-command emacsclient -e \"(call-interactively #'app-launcher-run-app)\"")
(define-key *top-map* (kbd "s-L") "run-shell-command slock")
(define-key *top-map* (kbd "s-RET") "run-shell-command alacritty")
(define-key *top-map* (kbd "s-E") "run-shell-command emacs")
(define-key *top-map* (kbd "s-W") "run-shell-command firefox")

(define-key *top-map* (kbd "s-TAB") "next-in-frame")
(define-key *top-map* (kbd "s-S-TAB") "prev-in-frame")

(define-key *top-map* (kbd "s-1") "gselect I")
(define-key *top-map* (kbd "s-2") "gselect II")
(define-key *top-map* (kbd "s-3") "gselect III")
(define-key *top-map* (kbd "s-4") "gselect IV")
(define-key *top-map* (kbd "s-5") "gselect V")

(define-key *top-map* (kbd "s-!") "gmove I")
(define-key *top-map* (kbd "s-@") "gmove II")
(define-key *top-map* (kbd "s-#") "gmove III")
(define-key *top-map* (kbd "s-$") "gmove IV")
(define-key *top-map* (kbd "s-%") "gmove V")

;; Brightness and volume
;; (define-key *top-map* (kbd "XF86MonBrightnessDown") "run-shell-command brightnessctl set 5%-")
;; (define-key *top-map* (kbd "XF86MonBrightnessUp") "run-shell-command brightnessctl set +5%")
;; (define-key *top-map* (kbd "XF86AudioLowerVolume") "run-shell-command amixer set Master 3%- unmute")
;; (define-key *top-map* (kbd "XF86AudioRaiseVolume") "run-shell-command amixer set Master 3%+ unmute")
;; (define-key *top-map* (kbd "XF86AudioMute") "run-shell-command amixer set Master toggle")
#+end_src

* UI
** Colors
#+begin_src lisp
;; Set UI colors
(set-border-color "#c792ea")
(set-bg-color "#232635")
(set-fg-color "#A6Accd")
;; (set-msg-border-width 2)
#+end_src
** Gaps
#+begin_src lisp
  ;; (load-module "swm-gaps")
  ;; (setf swm-gaps:*inner-gaps-size* 3)
  ;; (run-commands "toggle-gaps-on")
#+end_src
** Fonts
#+begin_src lisp
;; Enable TTF fonts
;; (load-module "ttf-fonts")
;; (setf xft:*font-dirs* '("/home/opal/.guix-home/profile/share/fonts/"))
;; (setf clx-truetype:+font-cache-filename+ "/home/daviwil/.local/share/fonts/font-cache.sexp")
;; (xft:cache-fonts)

;; (set-font (make-instance 'xft:font :family "Fira Mono" :subfamily "Regular" :size 16))

#+end_src
** Mode-Line
#+begin_src lisp
  ;; ;; Set mode line colors
  ;; (setf *mode-line-background-color* "#232635")
  ;; (setf *mode-line-foreground-color* "#A6Accd")

  ;; ;; Set the mode line format
  ;; (setf *screen-mode-line-format* "[^B%n^b] %W ^>%d")
  ;; (run-commands "mode-line" "mode-line")

  ;; ;; Start the mode line
  ;; (run-commands "mode-line")
#+end_src

** System tray
#+begin_src lisp
  ;; ;; Add the system tray module
  ;; (load-module "stumptray")
  ;; (stumptray:stumptray)
#+end_src

* Applications
#+begin_src lisp 
(run-shell-command "feh --bg-scale ~/.dotfiles/backgrounds/samuel-ferrara-uOi3lg8fGl4-unsplash.jpg")
;; (run-shell-command "dunst")
;; (run-shell-command "nm-applet")
;; (run-shell-command "syncthing-gtk --minimized")
;; (run-shell-command "redshift -l 37.983810:23.727539 -t 6500:3500")
(run-shell-command "emacs")
#+end_src

* Repl Start
#+begin_src lisp 
(require :slynk)
(slynk:create-server :dont-close t)
#+end_src

* Reference
- https://github.com/daviwil/dotfiles/blob/guix-home/Stump.org
- https://github.com/alezost/stumpwm-config
- https://github.com/herbertjones/my-stumpwm-config
- https://github.com/Phundrak/dotfiles/blob/master/org/config/stumpwm.org