From 78441a99ebc93d8f284a6a64c98fae5ef847184d Mon Sep 17 00:00:00 2001
From: BardofSprites <bard>
Date: Thu, 25 Sep 2025 16:54:17 -0400
Subject: renamed

---
 stumpwm/.stumpwm.d/window.lisp | 38 ++++++++++++++++++++++++++++++++++++++
 1 file changed, 38 insertions(+)
 create mode 100644 stumpwm/.stumpwm.d/window.lisp

(limited to 'stumpwm/.stumpwm.d/window.lisp')

diff --git a/stumpwm/.stumpwm.d/window.lisp b/stumpwm/.stumpwm.d/window.lisp
new file mode 100644
index 0000000..daa3ffc
--- /dev/null
+++ b/stumpwm/.stumpwm.d/window.lisp
@@ -0,0 +1,38 @@
+(in-package :stumpwm)
+
+;;;; Groups
+(grename "home")
+(gnew "alt")
+
+;;;; Window Format
+(setf *window-format* "%s%n%30t"
+      *window-border-style* :tight
+      *normal-border-width* 5
+      *maxsize-border-width* 5
+      )
+
+;;;; Gaps
+(load-module "swm-gaps")
+(setq swm-gaps:*gaps-on* t)
+
+;;; Focus
+(load-module "beckon")
+(defmacro with-focus-lost (&body body)
+  "Make sure WIN is on the top level while the body is running and
+restore it's always-on-top state afterwords"
+  `(progn (banish)
+          ,@body
+          (when (current-window)
+            (beckon:beckon))))
+;;; Splits
+(defcommand hsplit-and-focus () ()
+  "create a new frame on the right and focus it."
+  (with-focus-lost
+      (hsplit)
+    (move-focus :right)))
+
+(defcommand vsplit-and-focus () ()
+  "create a new frame below and focus it."
+  (with-focus-lost
+      (vsplit)
+    (move-focus :down)))
-- 
cgit v1.2.3