From d8094dbd63717e1d122f3ca7e1998e9f251057c8 Mon Sep 17 00:00:00 2001
From: Tom Willemse
Date: Thu, 16 Mar 2023 16:35:06 -0700
Subject: Add stumpwm configuration

---
 oni/home/services/stumpwm/config | 30 ++++++++++++++++++++++++++++++
 1 file changed, 30 insertions(+)
 create mode 100644 oni/home/services/stumpwm/config

(limited to 'oni/home/services/stumpwm')

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)
-- 
cgit v1.2.3-54-g00ecf