add stumpwm

stumpwm/.stumpwm.d/init.lisp

@@ -0,0 +1,119 @@
+(in-package :stumpwm)
+
+(set-prefix-key (kbd "s-s"))
+
+(set-font "-xos4-terminus-medium-r-normal--32-320-72-72-c-160-iso10646-1")
+
+(setf *mouse-focus-policy* :sloppy
+      *message-window-gravity* :center
+      *input-window-gravity* :center
+      *window-border-style* :thin
+      *time-modeline-string* "%k:%M"
+      *screen-mode-line-format* "[^B%n^b] %W^>%d")
+
+(when *initializing*
+  (setf (group-name (current-group)) "1")
+  (mapc #'gnewbg '("2" "3" "4" "5" "6" "7" "8" "9"))
+  (gnewbg-float "0"))
+
+(loop for name in  '("1" "2" "3" "4" "5" "6" "7" "8" "9" "0")
+      for shift in '("!" "@" "#" "$" "%" "^" "&" "*" "(" ")")
+      do (define-key *top-map* (kbd (concat "s-" name)) (concat "gselect " name))
+	 (define-key *top-map* (kbd (concat "s-" shift)) (concat "gmove " name)))
+
+(define-key *root-map* (kbd "c") "exec alacritty")
+(define-key *root-map* (kbd "V") "vsplit")
+(define-key *root-map* (kbd "e") "exec emacsclient -n -c -a ''")
+(define-key *root-map* (kbd "M-e") "emacs")
+(define-key *root-map* (kbd "s-l") "exec slock")
+
+(define-key *top-map* (kbd "s-q") "restart-soft")
+(define-key *top-map* (kbd "s-Q") "quit-confirm")
+(define-key *top-map* (kbd "s-S-RET") "exec alacritty")
+(define-key *top-map* (kbd "s-S-F6") "toggle-theme")
+(define-key *top-map* (kbd "s-a") "gother")
+(define-key *top-map* (kbd "s-b") "mode-line")
+(define-key *top-map* (kbd "s-f") "fullscreen")
+(define-key *top-map* (kbd "s-i") "gprev")
+(define-key *top-map* (kbd "s-o") "gnext")
+(define-key *top-map* (kbd "s-I") "gprev-with-window")
+(define-key *top-map* (kbd "s-O") "gnext-with-window")
+(define-key *top-map* (kbd "s-p") "exec")
+(define-key *top-map* (kbd "s-P") "exec rofi -theme Arc-Dark -show combi")
+
+(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-focus left")
+(define-key *top-map* (kbd "s-l") "move-focus 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-H") "move-window left")
+(define-key *top-map* (kbd "s-L") "move-window right")
+
+(define-key *top-map* (kbd "s-w") "select-head 0")
+(define-key *top-map* (kbd "s-e") "select-head 1")
+(define-key *top-map* (kbd "s-r") "select-head 2")
+
+(defpackage :my-stumpwm-config
+  (:use :cl))
+
+(in-package :my-stumpwm-config)
+
+(stumpwm:defcommand select-head (num) (:rest)
+  (let ((head (nth (parse-integer num) (stumpwm:screen-heads (stumpwm:current-screen)))))
+    (stumpwm::focus-frame (stumpwm:current-group)
+			  (car (stumpwm::head-frames (stumpwm:current-group) head)))))
+
+(load "~/quicklisp/setup.lisp")
+(ql:quickload :slynk)
+
+(stumpwm:defcommand slynk () ()
+  (let ((port 4005))
+    (slynk:create-server :dont-close t :port port)
+    (stumpwm:echo-string (stumpwm:current-screen) (format nil "Slynk started at port ~D" port))))
+
+(stumpwm:load-module :stumpwm-base16)
+(when stumpwm:*initializing*
+  (stumpwm-base16:load-theme "espresso"))
+
+(dolist (head (stumpwm:screen-heads (stumpwm:current-screen)))
+  (stumpwm:enable-mode-line (stumpwm:current-screen) head t))
+
+(defparameter *themes* '(:dark (:stumpwm "espresso"
+				:emacs "dark"
+				:alacritty "dark"
+				:gtk "Materia-dark")
+			 :light (:stumpwm "nova"
+				 :emacs "light"
+				 :alacritty "light"
+				 :gtk "Materia-light")))
+
+(defparameter *themes-order* '(:dark :light :light :dark))
+
+(defparameter *theme* :light)
+
+(stumpwm:defcommand toggle-theme () ()
+  (setf *theme* (getf *themes-order* *theme*))
+  (let ((theme (getf *themes* *theme*)))
+   (stumpwm-base16:load-theme (getf theme :stumpwm))
+   (dolist (head (stumpwm:screen-heads (stumpwm:current-screen)))
+     (stumpwm:toggle-mode-line (stumpwm:current-screen) head)
+     (stumpwm:toggle-mode-line (stumpwm:current-screen) head))
+   (mapc #'stumpwm:run-shell-command
+	 (list (concatenate 'string
+			    "sed -i -E 's#Net/ThemeName .*#Net/ThemeName \""
+			    (getf theme :gtk)
+			    "\"#' ~/.config/xsettingsd/xsettingsd.conf")
+	       "pkill -HUP -x xsettingsd; "
+	       (concatenate 'string
+			    "sed -i 's/^colors: [*].*/colors: *"
+			    (getf theme :alacritty)
+			    "/' ~/.config/alacritty/alacritty.yml; ")
+	       (concatenate 'string
+			    "emacsclient --eval \"(my-select-theme '"
+			    (getf theme :emacs)
+			    ")\"")))))
+
+(if stumpwm:*initializing*
+    (toggle-theme))