keybindings.lisp (1649 bytes)
1 (in-package #:stumpwm-init) 2 3 (define-key *top-map* (kbd "M-`") "show-menu") 4 5 (define-key *root-map* (kbd "c") "xterm") 6 (define-key *root-map* (kbd "C-c") "xterm") 7 (define-key *root-map* (kbd "E") "emacs") 8 (define-key *root-map* (kbd "d") "poison") 9 (define-key *root-map* (kbd "B") "browse") 10 (define-key *root-map* (kbd "C-y") "show-clipboard-history") 11 12 (defvar *movement* 13 '(("C-j" . "Down") 14 ("C-k" . "Up") 15 ("C-b" . "S-SPC") 16 ("C-f" . "SPC")) 17 "Basic movement bindings.") 18 (defvar *search* 19 '(("C-s" . "C-f") 20 ("C-n" . "F3") 21 ("C-n" . "S-F3")) 22 "Emacs-like searching.") 23 (defvar *firefox* 24 ;; navigation 25 (append 26 *movement* 27 *search* 28 '(("M-<" . "Home") ; to top/botom 29 ("M->" . "End") 30 ("C-y" . "C-v") ;paste 31 ("C-g" . "ESC") 32 ("M-x" . "C-j") ; search bar focus 33 ;; find search 34 ;; other useful ones: 35 ;; C-pgup/c-pgdown cycle tabs 36 ;; C-w kill tab 37 ("C-w" . "C-w"))) 38 "Keybindings for firefox.") 39 (define-remapped-keys 40 `(("Firefox" ,@*firefox*))) 41 (define-remapped-keys 42 ;; A branding-free name for firefox 43 `(("Nightly" ,@*firefox*))) 44 45 (define-remapped-keys 46 `(("Tor" ,@*firefox*))) 47 48 (define-remapped-keys 49 `(("okular" 50 ,@(append *movement* 51 *search* 52 '(("C-j" . "Down") 53 ("C-k" . "Up") 54 ("C-b" . "S-SPC") 55 ("C-f" . "SPC") 56 ("C-s" . "C-f") 57 ("M-w" . "C-c") 58 ("C-y" . "C-v") 59 ("M->" . ("C" "End")) 60 ("M-<" . ("C" "Home")))))))