Add stumpwm configuration

1 files changed, 30 insertions, 0 deletions

diff --git a/oni/home/services/stumpwm/config b/oni/home/services/stumpwm/config
new file mode 100644
index 0000000..170f0db
--- /dev/null
+++ b/oni/home/services/stumpwm/config
@@ -0,0 +1,30 @@
+;; -*- mode: lisp; -*-
+(in-package :stumpwm-user)
+
+(require 'swank)
+
+(set-prefix-key (kbd "s-x"))
+
+(defcommand raise-browser () ()
+  "Open or show my browser"
+  (run-or-raise "firefox" '(:class "firefox")))
+
+(defcommand raise-emacs () ()
+  "Open or show Emacs"
+  (run-or-raise "emacsclient -c" '(:class "Emacs")))
+
+(defcommand raise-terminal () ()
+  "Open or show my terminal"
+  (run-or-raise "kitty" '(:class "kitty")))
+
+(define-key *top-map* (kbd "s-b") "raise-browser")
+(define-key *top-map* (kbd "s-e") "raise-emacs")
+(define-key *top-map* (kbd "s-t") "raise-terminal")
+
+(define-remapped-keys
+    '(("teams-for-linux"
+       ("C-M-Break" . "C-S-m"))))
+
+(mode-line)
+(restore-from-file "default")
+(swank:create-server :dont-close t)