From 700a7e67cd58e0321facaa61f3f88f007b13145a Mon Sep 17 00:00:00 2001 From: Thanos Apollo Date: Sun, 26 Mar 2023 14:31:35 +0300 Subject: remove stumpwm and guix --- .config/stumpwm/commands.lisp | 29 ----------------------------- 1 file changed, 29 deletions(-) delete mode 100644 .config/stumpwm/commands.lisp (limited to '.config/stumpwm/commands.lisp') 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"))))) -- cgit v1.2.3