summaryrefslogtreecommitdiff
path: root/.stumpwm.d/commands.lisp
diff options
context:
space:
mode:
Diffstat (limited to '.stumpwm.d/commands.lisp')
-rw-r--r--.stumpwm.d/commands.lisp12
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)