diff options
Diffstat (limited to '.stumpwm.d')
| -rw-r--r-- | .stumpwm.d/commands.lisp | 12 |
1 files changed, 0 insertions, 12 deletions
diff --git a/.stumpwm.d/commands.lisp b/.stumpwm.d/commands.lisp index e5c25b8..dc9204d 100644 --- a/.stumpwm.d/commands.lisp +++ b/.stumpwm.d/commands.lisp @@ -12,18 +12,6 @@ (cond ((equal (asdf:hostname) "zeus") (feh-set-wallpaper "anime-night-mountains.jpg")) ((equal (asdf:hostname) "hermes") (feh-set-wallpaper "library-old-house.jpg")))) -;; Web jump (works for DuckDuckGo) -(defmacro make-web-jump (name prefix) - `(defcommand ,(intern name) (search) ((:rest ,(concatenate 'string "Search with " name ": "))) - (nsubstitute #\+ #\Space search) - (run-shell-command (concatenate 'string ,prefix search)))) - -;; (defcommand nyxt () (search) ((:rest ,(concatenate 'string "Search with " name ": "))) -;; (nsubstitute #\+ #\Space search) -;; (run-shell-command (concatenate 'string "nyxt -r -e" "" search))) - -(make-web-jump "searxng" "nyxt https://search.thanosapollo.com/?q=") -(make-web-jump "Invidious" "firefox https://yewtu.be/search?q=") (defmacro defnyxt-search (name search-url command) `(stumpwm:defcommand ,(intern (concatenate 'string "nyxt-" name)) (query) |