diff options
| author | Thanos Apollo <[email protected]> | 2023-10-09 21:25:25 +0300 |
|---|---|---|
| committer | Thanos Apollo <[email protected]> | 2023-10-09 21:25:25 +0300 |
| commit | 5846a987be26cb481f0f2f5aa7a770c4681982b2 (patch) | |
| tree | 599bec73107acf202b3461df2f83747bb914e4cb /.stumpwm.d/commands.lisp | |
| parent | 7a89fc919671e5319b7f9b39464f8df5e25686bb (diff) | |
stumpwm:(theming) Update colors & wallpapers
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) |