stumpwm window manager

1 files changed, 38 insertions, 0 deletions

diff --git a/stumpwm/window.lisp b/stumpwm/window.lisp
new file mode 100644
index 0000000..daa3ffc
--- /dev/null
+++ b/stumpwm/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)))