diff options
| author | Thanos Apollo <[email protected]> | 2024-05-13 08:42:44 +0300 |
|---|---|---|
| committer | Thanos Apollo <[email protected]> | 2024-05-13 08:42:44 +0300 |
| commit | 2e74d58a4f675b5301e69cae105503198d7ff846 (patch) | |
| tree | e92cca5c6406898e9ac1eae08653d894c24e3acf /.stumpwm.d/commands.lisp | |
| parent | b6d164b032b255767b04a73e8ac0e04b61991048 (diff) | |
| parent | 5d6840de02f01c017cc1ce99238d6962331087da (diff) | |
Merge branch 'guix-config'
Diffstat (limited to '.stumpwm.d/commands.lisp')
| -rw-r--r-- | .stumpwm.d/commands.lisp | 60 |
1 files changed, 0 insertions, 60 deletions
diff --git a/.stumpwm.d/commands.lisp b/.stumpwm.d/commands.lisp deleted file mode 100644 index 1ad62a5..0000000 --- a/.stumpwm.d/commands.lisp +++ /dev/null @@ -1,60 +0,0 @@ - -(defmacro defnyxt-search (name search-url command) - `(stumpwm:defcommand ,(intern (concatenate 'string "nyxt-" name)) (query) - ((:string "Search: ")) - (stumpwm:run-shell-command - (concatenate 'string "nyxt -r -e '(" ,command "\"" ,search-url query "\"" ")'")))) - -(defvar duckduckgo "https://duckduckgo.com/?q=") -(defvar github "https://github.com/search?q=") - -(defnyxt-search "duck" duckduckgo "buffer-load") -(defnyxt-search "duck-newb" duckduckgo "set-url-new-buffer :url") -(defnyxt-search "http" "http://" "buffer-load") -(defnyxt-search "gh" github "buffer-load") - -;; Sly setup -(ql:quickload :slynk) - -(defcommand sly-start-server () () - "Start a slynk server for sly." - (sb-thread:make-thread (lambda () (slynk:create-server :dont-close t)))) - -(defcommand sly-stop-server () () - "Stop current slynk server for sly." - (sb-thread:make-thread (lambda () (slynk:stop-server 4005)))) - - -(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"))))) - -(when *initializing* - (mapc #'run-shell-command - '("picom" - "transmission-daemon" - "xsetroot -cursor_name left_ptr")) - (thanos/set-wallpapers)) |