From 6f3378efdb467dda65f7cc6303b66be4dfb26d3c Mon Sep 17 00:00:00 2001 From: Thanos Apollo Date: Sat, 30 Sep 2023 06:36:43 +0300 Subject: stumpwm: Add nyxt-map keybindings --- .stumpwm.d/keybindings.lisp | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) (limited to '.stumpwm.d') diff --git a/.stumpwm.d/keybindings.lisp b/.stumpwm.d/keybindings.lisp index 9bc1a92..70d6ceb 100644 --- a/.stumpwm.d/keybindings.lisp +++ b/.stumpwm.d/keybindings.lisp @@ -76,9 +76,15 @@ (define-key *root-map* (kbd "M-f") "move-window right") (define-key *root-map* (kbd "M-n") "move-window down") ;; Nyxt -(define-key *root-map* (kbd "s") "nyxt-searxng") -(define-key *root-map* (kbd "M-s") "nyxt-searxng-newb") -(define-key *root-map* (kbd "C-s") "nyxt-http") +(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)) + +(define-key *root-map* (kbd "l") *nyxt-map*) + ;; Productivity (load-module "productivity") (define-key *top-map* (kbd "F7") "productivity-mode-toggle") -- cgit v1.2.3