diff options
| author | BardofSprites <bard> | 2025-09-25 16:54:17 -0400 |
|---|---|---|
| committer | BardofSprites <bard> | 2025-09-25 16:54:17 -0400 |
| commit | 78441a99ebc93d8f284a6a64c98fae5ef847184d (patch) | |
| tree | 27cfc5fb695c8096d15a577a2fea07c36d601616 /stumpwm/window.lisp | |
| parent | d0e9b38db5cdbba8c29f730f1c2eb5eb478fa776 (diff) | |
renamed
Diffstat (limited to 'stumpwm/window.lisp')
| -rw-r--r-- | stumpwm/window.lisp | 38 |
1 files changed, 0 insertions, 38 deletions
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))) |
