From 4a2e50a9e42d0a8fd8a7178a8e0ad7d11f67d7d3 Mon Sep 17 00:00:00 2001 From: Thanos Apollo Date: Thu, 9 Mar 2023 14:24:35 +0200 Subject: stumpwm: Add commands --- .config/stumpwm/commands.lisp | 29 +++++++++++++++++++++++++++++ 1 file changed, 29 insertions(+) create mode 100644 .config/stumpwm/commands.lisp (limited to '.config/stumpwm/commands.lisp') 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"))))) -- cgit v1.2.3