From b99be3cc901bad25e988f2cbaa4192ce6b858afd Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Sat, 6 Jul 2024 21:45:31 -0500
Subject: Update for like, exwm stuff

---
 exwm | 43 ++++++++++++++++++++++++++-----------------
 1 file changed, 26 insertions(+), 17 deletions(-)

(limited to 'exwm')

diff --git a/exwm b/exwm
index 0b52846..08d410f 100644
--- a/exwm
+++ b/exwm
@@ -15,6 +15,17 @@
   (start-process-shell-command
    (format "<autostart> %s" command) " *autostart*" command))
 
+(defun run-or-raise (command &optional buffer-name)
+  "Raise BUFFER-NAME if it exists, else run COMMAND.
+BUFFER-NAME defaults to the first word of COMMAND."
+  (let ((buffer-name (or buffer-name (car (string-split command)))))
+    (if (buffer-live-p (get-buffer buffer-name))
+        (switch-to-buffer buffer-name)
+      (exwm-spawn command))))
+
+(defun ^run-or-raise (command)
+  (lambda () (interactive) (run-or-raise command)))
+
 ;; Wifi info
 (defun dBm->perc (dBm)
   (truncate (+ (- (/ (* dBm dBm) 105.0))
@@ -84,6 +95,11 @@
 (setopt display-time-format "%e %a %R")
 (setopt battery-mode-line-format "[🔋%b%p%]")
 
+(display-wifi-info-mode)
+(display-battery-mode)
+(display-time-mode)
+
+;; Must come after the above
 (setopt global-mode-string
         '("" jabber-activity-mode-string
           display-wifi-info-string
@@ -91,10 +107,6 @@
           " " (:propertize ("" display-time-string)
                            face tab-bar-tab)))
 
-(display-wifi-info-mode)
-(display-battery-mode)
-(display-time-mode)
-
 ;;; Window management
 
 (after exwm-update-class-hook
@@ -104,21 +116,15 @@
 
 (setopt exwm-input-global-keys
         `(;; Command shortcuts
-          ([?\s-p] . ,(^exwm-spawn "keepassxc"))
-          ([?\s-b] . ,(^exwm-spawn "firefox --new-tab"))
+          ([?\s-p] . ,(^run-or-raise "keepassxc"))
+          ([?\s-b] . ,(^run-or-raise "firefox"))
           ;; 's-r': Reset (to line-mode).
           ([?\s-r] . exwm-reset)
-          ;; 's-w': Switch workspace.
-          ([?\s-w] . exwm-workspace-switch)
+          ;; 's-w': Bury buffer (I honestly don't really use workspaces)
+          ([?\s-w] . bury-buffer)
+          ([?\s-o] . other-window-dwim)
           ;; 's-&': Launch application.
-          ([?\s-&] . exwm-spawn)
-          ;; 's-N': Switch to certain workspace.
-          ,@(mapcar (lambda (i)
-                      `(,(kbd (format "s-%d" i)) .
-                        (lambda ()
-                          (interactive)
-                          (exwm-workspace-switch-create ,i))))
-                    (number-sequence 1 9))))
+          ([?\s-&] . exwm-spawn)))
 
 (setopt exwm-input-simulation-keys
         '(([?\C-b] . [left])
@@ -130,7 +136,10 @@
           ([?\M-v] . [prior])
           ([?\C-v] . [next])
           ([?\C-d] . [delete])
-          ([?\C-k] . [S-end delete])))
+          ([?\C-k] . [S-end delete])
+          ([?\M-w] . [?\C-c])
+          ([?\C-w] . [?\C-x])
+          ([?\C-y] . [?\C-v])))
 
 ;;; Startup
 
-- 
cgit 1.4.1-21-gabe81