From 26b8d14b304457cec620626b1b40a129187a2434 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?=C5=81ukasz=20Pankowski?= <lukpank@o2.pl>
Date: Mon, 30 Dec 2019 10:39:18 +0100
Subject: [PATCH] switch to stumpwm

---
 .config/stumpwm/config | 80 ++++++++++++++++++++++++++++++++++++++++++
 .xsession              | 10 ++++--
 2 files changed, 88 insertions(+), 2 deletions(-)
 create mode 100644 .config/stumpwm/config

diff --git a/.config/stumpwm/config b/.config/stumpwm/config
new file mode 100644
index 0000000..fefc3be
--- /dev/null
+++ b/.config/stumpwm/config
@@ -0,0 +1,80 @@
+;; -*- lisp -*-
+
+(in-package :stumpwm)
+
+(set-prefix-key (kbd "s-;"))
+(set-font "terminus-32")
+(set-focus-color "gray50")
+(setf *screen-mode-line-format* "[^B%n^b] %W^>%d")
+(setf *mode-line-timeout* 5)
+(setf *message-window-gravity* :center)
+(setf *input-window-gravity* :center)
+(setf *mouse-focus-policy* :click)
+
+(define-key *root-map* (kbd ";") "colon")
+(define-key *root-map* (kbd "c") "exec st -e /usr/bin/fish")
+(define-key *root-map* (kbd "C-c") "exec st -e /usr/bin/fish")
+(define-key *root-map* (kbd "s-TAB") "gother")
+(define-key *root-map* (kbd "L") "exec slock-suspend")
+(define-key *root-map* (kbd "F") "exec firefox")
+
+(define-key *top-map* (kbd "s-1") "gselect 1")
+(define-key *top-map* (kbd "s-2") "gselect 2")
+(define-key *top-map* (kbd "s-3") "gselect 3")
+(define-key *top-map* (kbd "s-4") "gselect 4")
+(define-key *top-map* (kbd "s-5") "gselect 5")
+(define-key *top-map* (kbd "s-6") "gselect 6")
+(define-key *top-map* (kbd "s-7") "gselect 7")
+(define-key *top-map* (kbd "s-8") "gselect 8")
+(define-key *top-map* (kbd "s-9") "gselect 9")
+(define-key *top-map* (kbd "s-0") "gselect 0")
+(define-key *top-map* (kbd "s-!") "gmove 1")
+(define-key *top-map* (kbd "s-@") "gmove 2")
+(define-key *top-map* (kbd "s-#") "gmove 3")
+(define-key *top-map* (kbd "s-$") "gmove 4")
+(define-key *top-map* (kbd "s-%") "gmove 5")
+(define-key *top-map* (kbd "s-^") "gmove 6")
+(define-key *top-map* (kbd "s-&") "gmove 7")
+(define-key *top-map* (kbd "s-*") "gmove 8")
+(define-key *top-map* (kbd "s-(") "gmove 9")
+(define-key *top-map* (kbd "s-)") "gmove 0")
+
+(define-key *top-map* (kbd "s-e") "exec emacsclient -c")
+(define-key *top-map* (kbd "s-p") "run-shell-command")
+(define-key *top-map* (kbd "s-S-RET") "exec emacsclient -c -e '(vterm)'")
+
+(define-key *top-map* (kbd "s-TAB") "gother")
+(define-key *top-map* (kbd "s-h") "move-focus left")
+(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-l") "move-focus right")
+(define-key *top-map* (kbd "s-H") "move-window left")
+(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-L") "move-window right")
+
+(define-key *top-map* (kbd "XF86AudioMute") "exec amixer set Master toggle")
+(define-key *top-map* (kbd "XF86AudioLowerVolume") "exec amixer set Master 5-")
+(define-key *top-map* (kbd "XF86AudioRaiseVolume") "exec amixer set Master 5+")
+
+(when (and (= 1 (group-number (current-group)))
+	   (string= "Default" (group-name (current-group))))
+  (grename "1")
+  (dolist (name '("2" "3" "4" "5" "6" "7" "8" "9"))
+    (gnewbg name))
+  (let ((widths (mapcar #'head-width (screen-heads (current-screen)))))
+    (if (and (= (length widths) 2) (< (car widths) (cadr widths)))
+	(mapc #'focus-next-frame (screen-groups (current-screen)))))
+  (gnewbg-float "Float"))
+
+(let ((scr (current-screen)))
+  (dolist (head (screen-heads scr))
+    (enable-mode-line scr head t)))
+
+(require :swank)
+
+(defcommand swank () ()
+  "Start swank server"
+  (swank:create-server :port 4004
+                       :style swank:*communication-style*
+                       :dont-close t))
diff --git a/.xsession b/.xsession
index f63d26f..c946289 100644
--- a/.xsession
+++ b/.xsession
@@ -11,8 +11,14 @@ xmodmap ~/.xmodmaprc
 xsetroot -cursor_name left_ptr
 export EDITOR=emacsclient
 export VISUAL=emacsclient
-export MY_USE_EXWM=t
-exec emacs
+
+if which stumpwm > /dev/null; then
+    emacsclient --eval nil || emacs --daemon
+    exec stumpwm
+fi
+
+#export MY_USE_EXWM=t
+#exec emacs
 
 dwm-clock &
 exec /usr/local/bin/dwm