diff options
Diffstat (limited to '.stumpwm.d/commands.lisp')
| -rw-r--r-- | .stumpwm.d/commands.lisp | 14 |
1 files changed, 0 insertions, 14 deletions
diff --git a/.stumpwm.d/commands.lisp b/.stumpwm.d/commands.lisp index 5a87d6e..1ad62a5 100644 --- a/.stumpwm.d/commands.lisp +++ b/.stumpwm.d/commands.lisp @@ -1,17 +1,3 @@ -;; Functions - -(defun feh-set-wallpaper (wallpaper-name) - "Set wallpaper using feh" - (let ((wallpaper-dir "~/wallpapers/")) - (format t "Setting wallpaper: ~a~%" wallpaper-name) - (run-shell-command (format nil "feh --bg-scale ~a~a" wallpaper-dir wallpaper-name)))) - - -(defun thanos/set-wallpapers () - "Set wallpapers depending on hostname." - (cond ((equal (asdf:hostname) "zeus") (feh-set-wallpaper "anime-night-mountains.jpg")) - ((equal (asdf:hostname) "hermes") (feh-set-wallpaper "library-old-house.jpg")))) - (defmacro defnyxt-search (name search-url command) `(stumpwm:defcommand ,(intern (concatenate 'string "nyxt-" name)) (query) |