summaryrefslogtreecommitdiff
path: root/.config/stumpwm/commands.lisp
diff options
context:
space:
mode:
authorThanos Apollo <[email protected]>2023-03-26 14:31:35 +0300
committerThanos Apollo <[email protected]>2023-03-26 14:31:35 +0300
commit700a7e67cd58e0321facaa61f3f88f007b13145a (patch)
treeb7849ab5ffc128d241ec0edececc152febf583fe /.config/stumpwm/commands.lisp
parentfbcd6ca6a6508750c55b950f5a151e709bf60fa7 (diff)
remove stumpwm and guix
Diffstat (limited to '.config/stumpwm/commands.lisp')
-rw-r--r--.config/stumpwm/commands.lisp29
1 files changed, 0 insertions, 29 deletions
diff --git a/.config/stumpwm/commands.lisp b/.config/stumpwm/commands.lisp
deleted file mode 100644
index a47040e..0000000
--- a/.config/stumpwm/commands.lisp
+++ /dev/null
@@ -1,29 +0,0 @@
-;; 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")))))