cspark
/
Emacs-Configuration-Modern
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Set up global link hints

This commit is contained in:
Curt Spark 2026-04-16 13:28:41 +01:00
parent 3acdb14172
commit 90dab107d0
1 changed files with 16 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
init.el
View File

@ -1300,12 +1300,20 @@
(interactive) (interactive)
(ewm-switch-to-monitor "24B2W1G5"))) (ewm-switch-to-monitor "24B2W1G5")))
;;("M-f" . (lambda () ("M-f" . (lambda ()
;; (interactive) (interactive)
;; (start-process-shell-command (let ((proc (start-process-shell-command
;; "wlkbptr-process" "wlkbptr-process"
;; nil nil
;; "wl-kbptr -o modes=floating,click -o mode_floating.source=detect")) "wl-kbptr-ewm")))
; Absolutely ensures new overlay has focus
(while (not (process-live-p proc))
(accept-process-output proc 0.1))
(start-process-shell-command
"wlkbptr-focus-process"
nil
"ydotool mousemove --absolute 0 0 && ydotool click 0xC0"))))
("M-h" . tab-bar-switch-to-prev-tab) ("M-h" . tab-bar-switch-to-prev-tab)
("M-l" . tab-bar-switch-to-next-tab) ("M-l" . tab-bar-switch-to-next-tab)
@ -1319,6 +1327,7 @@
("M-j" . windmove-down)) ("M-j" . windmove-down))
:config :config
(add-to-list 'ewm-intercept-prefixes '("<Print>" :fullscreen)) (add-to-list 'ewm-intercept-prefixes '("<Print>" :fullscreen))
(add-to-list 'ewm-intercept-prefixes ?\M-f)
(add-to-list 'ewm-intercept-prefixes ?\M-d) (add-to-list 'ewm-intercept-prefixes ?\M-d)
(add-to-list 'ewm-intercept-prefixes ?\M-w) (add-to-list 'ewm-intercept-prefixes ?\M-w)
(add-to-list 'ewm-intercept-prefixes ?\M-o) (add-to-list 'ewm-intercept-prefixes ?\M-o)
@ -1336,6 +1345,7 @@
(advice-add 'delete-window :before-while #'delete-window-override)) (advice-add 'delete-window :before-while #'delete-window-override))
(with-eval-after-load 'ewm (with-eval-after-load 'ewm
;; Autostart ;; Autostart
(ewm-autostart-application "ydotoold")
(ewm-autostart-application "qpwgraph") (ewm-autostart-application "qpwgraph")
(ewm-autostart-application "kdeconnect-indicator") (ewm-autostart-application "kdeconnect-indicator")
(ewm-autostart-application "udiskie") (ewm-autostart-application "udiskie")