summaryrefslogtreecommitdiff
path: root/.config/emacs/modules/bd--exwm-windowing.el
diff options
context:
space:
mode:
Diffstat (limited to '.config/emacs/modules/bd--exwm-windowing.el')
-rw-r--r--.config/emacs/modules/bd--exwm-windowing.el117
1 files changed, 59 insertions, 58 deletions
diff --git a/.config/emacs/modules/bd--exwm-windowing.el b/.config/emacs/modules/bd--exwm-windowing.el
index 2825b1a..e5084bb 100644
--- a/.config/emacs/modules/bd--exwm-windowing.el
+++ b/.config/emacs/modules/bd--exwm-windowing.el
@@ -16,64 +16,65 @@ that buffer."
(define-key exwm-mode-map [?\C-q] 'exwm-input-send-next-key)
(exwm-enable)
(server-start)
- :custom
- (exwm-input-prefix-keys
- `(?\C-x
- ?\C-u
- ?\C-g
- ?\C-h
- ?\C-z
- ?\C-`
- ?\M-x
- ?\M-`
- ?\M-&
- ?\M-:
- ,@(mapcar (lambda (i)
- (kbd (concat "s-" (number-to-string i))))
- (number-sequence 0 9))))
- (exwm-input-global-keys
- '(([?\s-n] . other-window)
- ([?\s-p] . (lambda ()
- (interactive)
- (other-window -1)))
- ([?\s-L] . bd/lock)
- ([f2] . bd/toggle-mute)
- ([f5] . bd/decrement-volume)
- ([f6] . bd/increment-volume)
- ([f7] . bd/decrement-brightness)
- ([f8] . bd/increment-brightness)
- ([f9] . emms-previous)
- ([f10] . emms-next)
- ([print] . bd/shoot-part)
- ([S-print] . bd/shoot-full)
- ([?\s-O] . bd/visit-bookmark)
- ([?\s-P] . bd/password)
- ([?\s-r] . exwm-reset)
- ([?\s-d] . toggle-window-dedicated)
- ([?\s-q] . kill-current-buffer)
- ([?\s-x] . (lambda (command)
- (interactive (list (read-shell-command "s-x ")))
- (start-process-shell-command command nil command)))))
- (exwm-input-simulation-keys
- '(([?\C-b] . [left])
- ([?\C-f] . [right])
- ([?\C-p] . [up])
- ([?\C-n] . [down])
- ([?\C-a] . [home])
- ([?\C-e] . [end])
- ([?\M-v] . [prior])
- ([?\C-v] . [next])
- ([?\C-d] . [delete])
- ([?\C-k] . [S-end delete])
- ([?\M-w] . [C-c])
- ([?\C-y] . [C-v])
- ([?\C-s] . [C-g])
- ([?\C-r] . [C-S-g])
- ([?\M-d] . [C-delete])
- ([?\M-b] . [C-left])
- ([?\M-f] . [C-right])
- ([?\H-b] . [M-left])
- ([?\H-f] . [M-right]))))
+ (setopt exwm-input-prefix-keys
+ `(?\C-x
+ ?\C-u
+ ?\C-g
+ ?\C-h
+ ?\C-z
+ ?\C-`
+ ?\M-x
+ ?\M-`
+ ?\M-&
+ ?\M-:
+ ,@(mapcar (lambda (i)
+ (kbd (concat "s-" (number-to-string i))))
+ (number-sequence 0 9)))
+
+ exwm-input-global-keys
+ '(([?\s-n] . other-window)
+ ([?\s-p] . (lambda ()
+ (interactive)
+ (other-window -1)))
+ ([?\s-L] . bd/lock)
+ ([f2] . bd/toggle-mute)
+ ([f5] . bd/decrement-volume)
+ ([f6] . bd/increment-volume)
+ ([f7] . bd/decrement-brightness)
+ ([f8] . bd/increment-brightness)
+ ([f9] . emms-previous)
+ ([f10] . emms-next)
+ ([print] . bd/shoot-part)
+ ([S-print] . bd/shoot-full)
+ ([?\s-O] . bd/visit-bookmark)
+ ([?\s-P] . bd/password)
+ ([?\s-r] . exwm-reset)
+ ([?\s-d] . toggle-window-dedicated)
+ ([?\s-q] . kill-current-buffer)
+ ([?\s-x] . (lambda (command)
+ (interactive (list (read-shell-command "s-x ")))
+ (start-process-shell-command command nil command))))
+
+ exwm-input-simulation-keys
+ '(([?\C-b] . [left])
+ ([?\C-f] . [right])
+ ([?\C-p] . [up])
+ ([?\C-n] . [down])
+ ([?\C-a] . [home])
+ ([?\C-e] . [end])
+ ([?\M-v] . [prior])
+ ([?\C-v] . [next])
+ ([?\C-d] . [delete])
+ ([?\C-k] . [S-end delete])
+ ([?\M-w] . [C-c])
+ ([?\C-y] . [C-v])
+ ([?\C-s] . [C-g])
+ ([?\C-r] . [C-S-g])
+ ([?\M-d] . [C-delete])
+ ([?\M-b] . [C-left])
+ ([?\M-f] . [C-right])
+ ([?\H-b] . [M-left])
+ ([?\H-f] . [M-right]))))
(setopt tab-bar-select-tab-modifiers '(super))