diff options
| author | Thanos Apollo <[email protected]> | 2023-09-30 06:36:29 +0300 |
|---|---|---|
| committer | Thanos Apollo <[email protected]> | 2023-09-30 06:36:29 +0300 |
| commit | 3219d766f6ed3e839e418bc58f5c8e08eaaf5b13 (patch) | |
| tree | 0bc670ad8726d5f27caea7f22c958a45c37b7e75 | |
| parent | 2301fc1e6671b3c46eb5cb107beb841e6abe8a5e (diff) | |
stumpwm: remove obsolete commands
| -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) |