123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222 |
- (in-package :stumpwm)
- (defcommand s-I () ()
- "Open YouTube if free-time? is nil or mjru-servers."
- (if (free-time?)
- (youtube)
- (mjru-servers)))
- (defcommand kbd-C-s-a () ()
- "Workaround for SVEN KB-C3800W."
- (xmodmap)
- (mjru-pass-route))
- (defun bind-super ()
- (define-key *top-map* (kbd "C-s-e") "editor")
- (define-key *top-map* (kbd "C-s-w") "chromium")
- (define-key *top-map* (kbd "C-s-W") "chromium-new-window")
- (define-key *top-map* (kbd "C-S-s-RET") "rofi-mycli")
- (define-key *top-map* (kbd "C-s-s") "only")
- (define-key *top-map* (kbd "s-+") "pavucontrol")
- (define-key *top-map* (kbd "s-_") "volume-toggle")
- (define-key *top-map* (kbd "s-r") "keybinding-s-r")
- (define-key *top-map* (kbd "M-s-r") "repl-ghci")
- (define-key *top-map* (kbd "s-R") "repl-guix")
- (define-key *top-map* (kbd "C-s-r") "repl-python")
- (define-key *top-map* (kbd "C-M-s-RET") "repl-r")
- (define-key *top-map* (kbd "C-s-R") "repl-nix")
- (define-key *top-map* (kbd "C-M-s-R") "repl-node")
- (define-key *top-map* (kbd "s-f") "fullscreen")
- (define-key *top-map* (kbd "s-D") "mjru-docker-pull")
- (define-key *top-map* (kbd "s-H") "glances")
- (define-key *top-map* (kbd "s-l") "looking-glass-client")
- (define-key *top-map* (kbd "s-t") "top")
- (define-key *top-map* (kbd "s-T") "tometips")
- (define-key *top-map* (kbd "s-h") "monitoring")
- (define-key *top-map* (kbd "C-s-C") "rofi-drun")
- (define-key *top-map* (kbd "S-s-RET") "rofi-ssh")
- (define-key *top-map* (kbd "s-\"") "global-windowlist")
- (define-key *top-map* (kbd "s-quoteright") "global-windowlist-custom")
- (define-key *top-map* (kbd "XF86AudioMute") "volume-toggle")
- (define-key *top-map* (kbd "XF86AudioLowerVolume") "volume-decrease")
- (define-key *top-map* (kbd "XF86AudioRaiseVolume") "volume-increase")
- (define-key *top-map* (kbd "s--") "keybinding-s--")
- (define-key *top-map* (kbd "s-=") "keybinding-s-=")
- (define-key *top-map* (kbd "s-KP_Add") "volume-increase")
- (define-key *top-map* (kbd "s-KP_Subtract") "volume-decrease")
- (define-key *top-map* (kbd "s-RET") "run-terminal")
- (define-key *top-map* (kbd "s-e") "emacsclient")
- (define-key *top-map* (kbd "s-E") "emacsclient-new")
- (define-key *top-map* (kbd "s-m") "mode-line")
- (define-key *top-map* (kbd "s-M") "music-mpv")
- (define-key *top-map* (kbd "s-N") "next-in-frame-custom")
- (define-key *top-map* (kbd "s-P") "prev-in-frame-custom")
- (define-key *top-map* (kbd "s-w") "firefox")
- (define-key *top-map* (kbd "s-W") "firefox-new-window")
- (define-key *top-map* (kbd "M-s-w") "firefox-temp-profile-new-window")
- (define-key *top-map* (kbd "s-q") "delete-window!")
- (define-key *top-map* (kbd "s-Q") "remove")
- (define-key *top-map* (kbd "s-quoteleft") "emacs-vterm")
- (define-key *top-map* (kbd "s-~") "display-0-keys")
- (define-key *top-map* (kbd "s-o") "keybinding-s-o")
- (define-key *top-map* (kbd "s-j") "run-or-raise-xterm")
- (define-key *top-map* (kbd "M-s-j") "run-xterm-light")
- (define-key *top-map* (kbd "s-J") "jenkins")
- (define-key *top-map* (kbd "s-g") "gnus")
- (define-key *top-map* (kbd "s-G") "notmuch")
- (define-key *top-map* (kbd "s-C") "org")
- (define-key *top-map* (kbd "C-s-c") "org-agenda")
- (define-key *top-map* (kbd "s-x") "keybinding-s-x")
- (define-key *top-map* (kbd "s-X") "wi-project-ivy")
- (define-key *top-map* (kbd "s-i") "shop-food")
- (mapcar #'(lambda (pair)
- (let ((command (concat "gmove-and-follow " (write-to-string (car pair))))
- (key (concat "s-" (string (cdr pair)))))
- (define-key *top-map* (kbd key) command)))
- '((1 . #\!) (2 . #\@) (3 . #\#)
- (4 . #\$) (5 . #\%) (6 . #\^)
- (7 . #\&) (8 . #\*) (9 . #\()
- (0 . #\))))
- (define-key *top-map* (kbd "s-KP_Enter") "run-or-raise-xterm")
- (define-key *top-map* (kbd "s-k") "delete-window-or-remove-split")
- (define-key *top-map* (kbd "s-K") "delete-window!")
- (define-key *top-map* (kbd "s-ESC") "keybinding-s-k")
- (define-key *top-map* (kbd "s-Right") "move-focus right")
- (define-key *top-map* (kbd "s-Left") "move-focus left")
- (define-key *top-map* (kbd "s-Up") "move-focus up")
- (define-key *top-map* (kbd "s-Down") "move-focus down")
- (define-key *top-map* (kbd "s-Tab") "other-in-frame-or-fother")
- (define-key *top-map* (kbd "C-s-Tab") "fother")
- (define-key *top-map* (kbd "s-ISO_Left_Tab") "fother")
- (define-key *top-map* (kbd "s-ISO_Next_Group") "espanso-daemon")
- (define-key *top-map* (kbd "S-s-Right") "move-window right")
- (define-key *top-map* (kbd "S-s-Left") "move-window left")
- (define-key *top-map* (kbd "S-s-Up") "move-window up")
- (define-key *top-map* (kbd "S-s-Down") "move-window down")
- (define-key *top-map* (kbd "s-v") "virt-manager")
- (define-key *top-map* (kbd "s-V") "pulsemixer")
- (define-key *top-map* (kbd "s-c") "run-or-raise-terminal")
- (define-key *top-map* (kbd "s-F") "move-focus right")
- (define-key *top-map* (kbd "s-B") "move-focus left")
- (define-key *top-map* (kbd "s-p") "prev-in-frame")
- (define-key *top-map* (kbd "s-n") "next-in-frame")
- (define-key *top-map* (kbd "C-s-p") "gprev")
- (define-key *top-map* (kbd "C-s-n") "gnext")
- (define-key *top-map* (kbd "s-S") "passmenu")
- (define-key *top-map* (kbd "s-s") "hsplit")
- (define-key *top-map* (kbd "s-d") "bemenu-run")
- (define-key *top-map* (kbd "s-;") "colon")
- (define-key *top-map* (kbd "s-[") "place-existing-windows")
- (define-key *top-map* (kbd "C-s-h") "sampler")
- (define-key *top-map* (kbd "C-M-S-s-RET") "xterm-dark-no-scrollbar")
- (define-key *top-map* (kbd "s-SunPrint_Screen") "zoom")
- (define-key *top-map* (kbd "s-b") "qbittorrent")
- (define-key *top-map* (kbd "C-s-Right") "window-resize-by-half-horizontal")
- (define-key *top-map* (kbd "C-s-Left") "window-resize-by-half-vertical")
- (define-key *top-map* (kbd "C-M-s-S") "suspend")
- (define-key *top-map* (kbd "C-s-=") "volume-increase")
- (define-key *top-map* (kbd "C-s--") "volume-decrease")
- (define-key *top-map* (kbd "C-s-RET") "st")
- (define-key *top-map* (kbd "M-s-RET") "xfce-terminal")
- (define-key *top-map* (kbd "M-s-n") "mpv-next")
- (define-key *top-map* (kbd "M-s-p") "mpv-previous")
- (define-key *top-map* (kbd "M-s-e") "emacs-guix-edit")
- (define-key *top-map* (kbd "C-s-Up") "next-in-frame")
- (define-key *top-map* (kbd "C-s-Down") "prev-in-frame")
- (define-key *top-map* (kbd "M-s-d") "repology-guix-outdated")
- (define-key *top-map* (kbd "M-s-g") "ci-guix")
- (define-key *top-map* (kbd "SunPrint_Screen") "xfce-screenshooter")
- ;; Majordomo
- (define-key *top-map* (kbd "s-a") "mjru-pass-gitlab-ssh")
- (define-key *top-map* (kbd "s-A") "mjru-pass-eng")
- (define-key *top-map* (kbd "C-s-a") "kbd-C-s-a")
- (define-key *top-map* (kbd "s-u") "place-existing-windows")
- (define-key *top-map* (kbd "s-U") "mjru-cerb")
- (define-key *top-map* (kbd "M-s-u") "mjru-grafana-upstream-interfaces")
- (define-key *top-map* (kbd "C-s-u") "mjru-grafana-netflow")
- (define-key *top-map* (kbd "s-y") "greenclip")
- (define-key *top-map* (kbd "s-I") "s-I")
- ;; Rebind groups to PREFIX-NUMBER.
- (mapcar #'(lambda (x)
- ;; (define-key *top-map* (kbd (concat "s-" (write-to-string x)))
- ;; (format nil "gselect ~D" x))
- (define-key *top-map* (kbd (concat "M-s-" (write-to-string x)))
- (format nil "group-~D-start-programs" x))
- (define-key *top-map* (kbd (concat "C-s-" (write-to-string x)))
- (format nil "~A ~D" "select-window-by-number" x)))
- (range 10 :min 0 :step 1))
- (define-key *top-map* (kbd (concat "s-1")) "group-1-start-programs")
- (define-key *top-map* (kbd (concat "s-2")) "group-2-start-programs")
- (define-key *top-map* (kbd (concat "s-3")) "group-3-start-programs")
- (define-key *top-map* (kbd (concat "s-4")) "group-4-start-programs")
- (define-key *top-map* (kbd (concat "s-5")) "group-5-start-programs")
- (define-key *top-map* (kbd (concat "s-6")) "group-6-start-programs")
- (define-key *top-map* (kbd (concat "s-7")) "group-7-start-programs")
- (define-key *top-map* (kbd (concat "s-8")) "group-8-start-programs")
- (define-key *top-map* (kbd (concat "s-9")) "group-9-start-programs")
- (define-key *top-map* (kbd (concat "s-0")) "gselect 0")
- (define-key *top-map* (kbd (concat "M-s-1")) "group-1-restart-programs")
- (define-key *top-map* (kbd (concat "s-Menu")) "xmenu"))
- (define-key *root-map* (kbd "C-i") "set-prefix-key C-i")
- (define-key *root-map* (kbd "C-t") "set-prefix-key C-t")
- (define-key *root-map* (kbd "C-M-c") "run-or-raise-xterm")
- (define-key *root-map* (kbd "C-c") "run-or-raise-xterm")
- (define-key *root-map* (kbd "C-y") "greenclip")
- (define-key *root-map* (kbd "Y") "xclip-kdeconnect-handler")
- (define-key *root-map* (kbd "c") "run-or-raise-xterm")
- (define-key *root-map* (kbd "e") "emacsclient")
- (define-key *root-map* (kbd "quoteleft") "display-0-keys")
- (define-key *root-map* (kbd "y") "greenclip")
- (define-key *root-map* (kbd "j") "turn-screen-off")
- (define-key *root-map* (kbd "J") "suspend")
- (defcommand sxhkd-restart () ()
- (run-shell-command "sxhkd"))
- (define-remapped-keys
- '(("(Nightly|Chrome)"
- ("C-n" . "Down")
- ("C-p" . "Up")
- ("M-r" . "Up")
- ;; ("C-f" . "Right")
- ;; ("C-b" . "Left")
- ;; ("C-v" . "Next")
- ;; ("M-v" . "Prior")
- ;; ("M-w" . "C-c")
- ;; ("C-w" . "C-x")
- ;; ("C-y" . "C-v")
- ;; ("M-<" . "Home")
- ;; ("M->" . "End")
- ;; ("C-M-b" . "M-Left")
- ;; ("C-M-f" . "M-Right")
- ;; ("C-k" . ("C-S-End" "C-x"))
- )))
- (defcommand toggle-bind-delete-window-or-remove-split () ()
- (if (lookup-key-sequence *top-map* (list (kbd "s-k")))
- (define-key *top-map* (kbd "s-k") nil)
- (define-key *top-map* (kbd "s-k") "delete-window-or-remove-split")))
- (defcommand toggle-bind-gnext () ()
- (if (lookup-key-sequence *top-map* (list (kbd "C-s-n")))
- (define-key *top-map* (kbd "C-s-n") nil)
- (define-key *top-map* (kbd "C-s-n") "gnext")))
- (defcommand toggle-bind-gprev () ()
- (if (lookup-key-sequence *top-map* (list (kbd "C-s-p")))
- (define-key *top-map* (kbd "C-s-p") nil)
- (define-key *top-map* (kbd "C-s-p") "gprev")))
|