stumpwm: Update search functions & keybindings

2 files changed, 14 insertions, 10 deletions

diff --git a/.stumpwm.d/commands.lisp b/.stumpwm.d/commands.lisp
index dc9204d..5a87d6e 100644
--- a/.stumpwm.d/commands.lisp
+++ b/.stumpwm.d/commands.lisp
@@ -19,11 +19,13 @@
      (stumpwm:run-shell-command
       (concatenate 'string "nyxt -r -e '(" ,command "\"" ,search-url query "\"" ")'"))))
 
-(defvar thanos-searxng "https://search.thanosapollo.com/?q=")
+(defvar duckduckgo "https://duckduckgo.com/?q=")
+(defvar github "https://github.com/search?q=")
 
-(defnyxt-search "searxng" thanos-searxng "buffer-load")
-(defnyxt-search "searxng-newb" thanos-searxng "set-url-new-buffer :url")
+(defnyxt-search "duck" duckduckgo "buffer-load")
+(defnyxt-search "duck-newb" duckduckgo "set-url-new-buffer :url")
 (defnyxt-search "http" "http://" "buffer-load")
+(defnyxt-search "gh" github "buffer-load")
 
 ;; Sly setup
 (ql:quickload :slynk)
diff --git a/.stumpwm.d/keybindings.lisp b/.stumpwm.d/keybindings.lisp
index 70d6ceb..801947f 100644
--- a/.stumpwm.d/keybindings.lisp
+++ b/.stumpwm.d/keybindings.lisp
@@ -75,15 +75,17 @@
 (define-key *root-map* (kbd "M-b") "move-window left")
 (define-key *root-map* (kbd "M-f") "move-window right")
 (define-key *root-map* (kbd "M-n") "move-window down")
+
 ;; Nyxt
-(defvar *nyxt-map*
-  (let ((m (make-sparse-keymap)))
-    (define-key m (kbd "k") "nyxt-searxng")
-    (define-key m (kbd "M-l") "nyxt-searxng-newb")
-    (define-key m (kbd "l") "nyxt-http")
-    m))
+(defvar *nyxt-map* (make-sparse-keymap))
+(define-key *root-map* (kbd "s") *nyxt-map*)
+
+(define-key *nyxt-map* (kbd "M-d") "nyxt-duck-newb")
+(define-key *nyxt-map* (kbd "h") "nyxt-http")
+(define-key *nyxt-map* (kbd "d") "nyxt-duck")
+(define-key *nyxt-map* (kbd "g") "nyxt-gh")
+
 
-(define-key *root-map* (kbd "l") *nyxt-map*)
 
 ;; Productivity
 (load-module "productivity")