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

---
 stumpwm/window.lisp | 38 --------------------------------------
 1 file changed, 38 deletions(-)
 delete mode 100644 stumpwm/window.lisp

(limited to 'stumpwm/window.lisp')

diff --git a/stumpwm/window.lisp b/stumpwm/window.lisp
deleted file mode 100644
index daa3ffc..0000000
--- a/stumpwm/window.lisp
+++ /dev/null
@@ -1,38 +0,0 @@
-(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