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