diff options
| -rw-r--r-- | .stumpwm.d/commands.lisp | 8 | ||||
| -rw-r--r-- | .stumpwm.d/keybindings.lisp | 16 |
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") |