diff options
author | Thanos Apollo <[email protected]> | 2023-03-26 14:31:35 +0300 |
---|---|---|
committer | Thanos Apollo <[email protected]> | 2023-03-26 14:31:35 +0300 |
commit | 700a7e67cd58e0321facaa61f3f88f007b13145a (patch) | |
tree | b7849ab5ffc128d241ec0edececc152febf583fe /.config/stumpwm/commands.lisp | |
parent | fbcd6ca6a6508750c55b950f5a151e709bf60fa7 (diff) |
remove stumpwm and guix
Diffstat (limited to '.config/stumpwm/commands.lisp')
-rw-r--r-- | .config/stumpwm/commands.lisp | 29 |
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"))))) |