sqrtminusone/dotfiles
1
0
Fork 0
mirror of https://github.com/SqrtMinusOne/dotfiles.git synced 2025-12-10 19:23:03 +03:00
Code Issues Projects Releases Packages Wiki Activity Actions

uconsole: more keybindings

Browse source
This commit is contained in:
Pavel Korytov 2025-03-13 14:18:08 +03:00
parent 8a6e444470
commit d17e6c9ef6
2 changed files with 64 additions and 22 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

43
.emacs.d/desktop.el
View file

@ -572,7 +572,9 @@ _d_: Discord
(equal (system-name) "amaranth"))
(my/run-in-background "set_layout"))
(add-hook 'exwm-workspace-switch-hook
#'my/exwm-store-last-workspace))
#'my/exwm-store-last-workspace)
(when my/is-uconsole
(set-face-attribute 'default nil :height 140)))
(defun my/exwm-update-class ()
(exwm-workspace-rename-buffer (format "EXWM :: %s" exwm-class-name)))
@ -712,16 +714,35 @@ _d_: Discord
(y-or-n-p (format "Create workspace %d" ,i)))
(exwm-workspace-switch-create ,i) ))))
(number-sequence 0 9))
,@(mapcar (lambda (i)
(when (= i 0)
(setq i 10))
`(,(kbd (format "s-<f%d>" i)) .
(lambda ()
(interactive)
(when (or (< ,i (exwm-workspace--count))
(y-or-n-p (format "Create workspace %d" ,i)))
(exwm-workspace-switch-create ,i) ))))
(number-sequence 0 9))))
,@(when my/is-uconsole
`(
,@(mapcar (lambda (i)
(when (= i 0)
(setq i 10))
`(,(kbd (format "s-<f%d>" i)) .
(lambda ()
(interactive)
(when (or (< ,i (exwm-workspace--count))
(y-or-n-p (format "Create workspace %d" ,i)))
(exwm-workspace-switch-create ,i) ))))
(number-sequence 0 9))
(,(kbd "M-<left>") . (lambda () (interactive) (my/exwm-windmove 'left)))
(,(kbd "M-<right>") . (lambda () (interactive) (my/exwm-windmove 'right)))
(,(kbd "M-<up>") . (lambda () (interactive) (my/exwm-windmove 'up)))
(,(kbd "M-<down>") . (lambda () (interactive) (my/exwm-windmove 'down)))
(,(kbd "M-,") . persp-prev)
(,(kbd "M-.") . persp-next)
(,(kbd "M-r") . my/exwm-resize-hydra/body)
(,(kbd "M-p") . app-launcher-run-app)
(,(kbd "M-P") . async-shell-command)
(,(kbd "M-;") . my/exwm-apps-hydra/body)
(,(kbd "M--") . password-store-completion)
))))
(defun exwm-input--fake-last-command ()
"Fool some packages into thinking there is a change in the buffer."

43
Desktop.org
View file

@ -937,16 +937,35 @@ And keybindings that are available in both =char-mode= and =line-mode=:
(y-or-n-p (format "Create workspace %d" ,i)))
(exwm-workspace-switch-create ,i) ))))
(number-sequence 0 9))
,@(mapcar (lambda (i)
(when (= i 0)
(setq i 10))
`(,(kbd (format "s-<f%d>" i)) .
(lambda ()
(interactive)
(when (or (< ,i (exwm-workspace--count))
(y-or-n-p (format "Create workspace %d" ,i)))
(exwm-workspace-switch-create ,i) ))))
(number-sequence 0 9))))
,@(when my/is-uconsole
`(
,@(mapcar (lambda (i)
(when (= i 0)
(setq i 10))
`(,(kbd (format "s-<f%d>" i)) .
(lambda ()
(interactive)
(when (or (< ,i (exwm-workspace--count))
(y-or-n-p (format "Create workspace %d" ,i)))
(exwm-workspace-switch-create ,i) ))))
(number-sequence 0 9))
(,(kbd "M-<left>") . (lambda () (interactive) (my/exwm-windmove 'left)))
(,(kbd "M-<right>") . (lambda () (interactive) (my/exwm-windmove 'right)))
(,(kbd "M-<up>") . (lambda () (interactive) (my/exwm-windmove 'up)))
(,(kbd "M-<down>") . (lambda () (interactive) (my/exwm-windmove 'down)))
(,(kbd "M-,") . persp-prev)
(,(kbd "M-.") . persp-next)
(,(kbd "M-r") . my/exwm-resize-hydra/body)
(,(kbd "M-p") . app-launcher-run-app)
(,(kbd "M-P") . async-shell-command)
(,(kbd "M-;") . my/exwm-apps-hydra/body)
(,(kbd "M--") . password-store-completion)
))))
#+end_src
A function to apply changes to =exwm-input-global-keys=.
@ -1229,7 +1248,9 @@ And the EXWM config itself.
(equal (system-name) "amaranth"))
(my/run-in-background "set_layout"))
(add-hook 'exwm-workspace-switch-hook
#'my/exwm-store-last-workspace))
#'my/exwm-store-last-workspace)
(when my/is-uconsole
(set-face-attribute 'default nil :height 140)))
(defun my/exwm-update-class ()
(exwm-workspace-rename-buffer (format "EXWM :: %s" exwm-class-name)))