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

Compare commits

base: cspark:0edb7ab98f98c67f90222d22f7da21656124b4d1
Branches Tags
cspark:main
..
compare: cspark:90dab107d0805d01ee6515f58a432e4a56f78f70
Branches Tags
cspark:main

2 Commits
0edb7ab98f ... 90dab107d0

Author SHA1 Message Date
Curt Spark 90dab107d0 Set up global link hints 2026-04-16 13:28:41 +01:00
Curt Spark 3acdb14172 Unbind stubborn eshell bindings 2026-04-16 13:28:19 +01:00
1 changed files with 18 additions and 6 deletions
Show Stats Expand all files Collapse all files

24
init.el
View File

@ -474,6 +474,8 @@
; Unbind stubborn eshell bindings ; Unbind stubborn eshell bindings
(define-key eshell-mode-map (kbd "M-o") nil) (define-key eshell-mode-map (kbd "M-o") nil)
(define-key eshell-mode-map (kbd "M-p") nil) (define-key eshell-mode-map (kbd "M-p") nil)
(define-key eshell-mode-map (kbd "M-h") nil)
(define-key eshell-mode-map (kbd "M-l") nil)
(evil-define-key* '(normal) eshell-mode-map (kbd "M-o") nil) (evil-define-key* '(normal) eshell-mode-map (kbd "M-o") nil)
(evil-define-key* '(normal) eshell-mode-map (kbd "M-p") nil) (evil-define-key* '(normal) eshell-mode-map (kbd "M-p") nil)
(evil-define-key* '(normal) eshell-mode-map (kbd "M-h") nil) (evil-define-key* '(normal) eshell-mode-map (kbd "M-h") nil)
@ -1298,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)
@ -1317,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)
@ -1334,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")