From 3219d766f6ed3e839e418bc58f5c8e08eaaf5b13 Mon Sep 17 00:00:00 2001 From: Thanos Apollo Date: Sat, 30 Sep 2023 06:36:29 +0300 Subject: stumpwm: remove obsolete commands --- .stumpwm.d/commands.lisp | 12 ------------ 1 file changed, 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) -- cgit v1.2.3