Mirrors/exwm
2
0
Fork 0
mirror of https://github.com/ch11ng/exwm.git synced 2024-11-27 13:07:59 +01:00
Code Issues Projects Releases Packages Wiki Activity

Do the same for `exwm-input-global-keys'

Browse source
This commit is contained in:
Chris Feng 2019-02-06 00:00:00 +00:00
parent ec108a61dc
commit 97b1fb7c13
1 changed files with 19 additions and 15 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

34
exwm-config.el
View file

@ -37,21 +37,25 @@
(add-hook 'exwm-update-class-hook (add-hook 'exwm-update-class-hook
(lambda () (lambda ()
(exwm-workspace-rename-buffer exwm-class-name))) (exwm-workspace-rename-buffer exwm-class-name)))
;; 's-r': Reset ;; Global keybindings.
(exwm-input-set-key (kbd "s-r") #'exwm-reset) (unless (get 'exwm-input-global-keys 'saved-value)
;; 's-w': Switch workspace (setq exwm-input-global-keys
(exwm-input-set-key (kbd "s-w") #'exwm-workspace-switch) `(
;; 's-N': Switch to certain workspace ;; 's-r': Reset (to line-mode).
(dotimes (i 10) ([?\s-r] . exwm-reset)
(exwm-input-set-key (kbd (format "s-%d" i)) ;; 's-w': Switch workspace.
`(lambda () ([?\s-w] . exwm-workspace-switch)
(interactive) ;; 's-&': Launch application.
(exwm-workspace-switch-create ,i)))) ([?\s-&] . (lambda (command)
;; 's-&': Launch application (interactive (list (read-shell-command "$ ")))
(exwm-input-set-key (kbd "s-&") (start-process-shell-command command nil command)))
(lambda (command) ;; 's-N': Switch to certain workspace.
(interactive (list (read-shell-command "$ "))) ,@(mapcar (lambda (i)
(start-process-shell-command command nil command))) `(,(kbd (format "s-%d" i)) .
(lambda ()
(interactive)
(exwm-workspace-switch-create ,i))))
(number-sequence 0 9)))))
;; Line-editing shortcuts ;; Line-editing shortcuts
(unless (get 'exwm-input-simulation-keys 'saved-value) (unless (get 'exwm-input-simulation-keys 'saved-value)
(setq exwm-input-simulation-keys (setq exwm-input-simulation-keys