stumpwm: Update keybindings and add invidious search

1 files changed, 5 insertions, 14 deletions

diff --git a/stumpwm.org b/stumpwm.org
index ea48a46..742b734 100644
--- a/stumpwm.org
+++ b/stumpwm.org
@@ -56,7 +56,7 @@
        (run-shell-command (concatenate 'string ,prefix search))))
 
   (make-web-jump "Duck" "firefox https://duckduckgo.com/?q=")
-
+  (make-web-jump "Invidious" "firefox https://yewtu.be/search?q=")
   (defcommand firefox () ()
     "Run or raise Firefox."
     (sb-thread:make-thread (lambda () (run-or-raise "firefox" '(:class "firefox") t nil))))
@@ -297,18 +297,8 @@
   (define-key *root-map* (kbd "f") "float-this")
   (define-key *root-map* (kbd "M-f") "fullscreen")
   (define-key *root-map* (kbd "C-f") "unfloat-this")
-  (define-key *root-map* (kbd "C-s") "hsplit-and-focus")
-  (define-key *root-map* (kbd "s") "hsplit-and-focus")
-  (define-key *root-map* (kbd "x") "delete-window-and-frame")
-
-  (define-key *root-map* (kbd "1") "select-window-by-number 0")
-  (define-key *root-map* (kbd "2") "select-window-by-number 1")
-  (define-key *root-map* (kbd "3") "select-window-by-number 2")
-  (define-key *root-map* (kbd "4") "select-window-by-number 3")
-  (define-key *root-map* (kbd "5") "select-window-by-number 4")
-  (define-key *root-map* (kbd "6") "select-window-by-number 5")
-  (define-key *root-map* (kbd "7") "select-window-by-number 6")
-  (define-key *root-map* (kbd "8") "select-window-by-number 7")
+  (define-key *root-map* (kbd "3") "hsplit-and-focus")
+  (define-key *root-map* (kbd "0") "delete-window-and-frame")
 
   (define-key *root-map* (kbd "e") "exec emacsclient -c")
 
@@ -354,5 +344,6 @@
   (define-key *root-map* (kbd "M-f") "move-focus right")
   (define-key *root-map* (kbd "M-n") "move-focus down")
 
-  (define-key *root-map* (kbd "M-s") "Duck")
+  (define-key *root-map* (kbd "s") "Duck")
+  (define-key *root-map* (kbd "v") "Invidious")
 #+end_src