diff options
| -rw-r--r-- | .config/stumpwm/commands.lisp | 29 |
1 files changed, 29 insertions, 0 deletions
diff --git a/.config/stumpwm/commands.lisp b/.config/stumpwm/commands.lisp new file mode 100644 index 0000000..a47040e --- /dev/null +++ b/.config/stumpwm/commands.lisp @@ -0,0 +1,29 @@ +;; Commands + +(defcommand firefox () () + "Run or raise Firefox." + (sb-thread:make-thread (lambda () (run-or-raise "firefox" '(:class "Firefox") t nil)))) + + +(defcommand delete-window-and-frame () () + "Delete the current frame with its window." + (delete-window) + (remove-split)) + +(defcommand hsplit-and-focus () () + "Create a new frame on the right and focus it." + (hsplit) + (move-focus :right)) + +(defcommand vsplit-and-focus () () + "Create a new frame below and move focus to it." + (vsplit) + (move-focus :down)) + +(defcommand term (&optional program) () + "Invoke a terminal, possibly with a @arg{program}." + (sb-thread:make-thread + (lambda () + (run-shell-command (if program + (format nil "kitty ~A" program) + "kitty"))))) |