mdebray/tvl-depot
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Remove KBDs supporting undesired Ergodox configuration

Browse source 
I mistakenly mapped one of my dual-function keys on my Ergodox to send Shift+CMD
instead of CMD. When some of my Emacs keybindings weren't firing, I noticed that
the key event they received was some like `C-S-s-<char>` instead of say
`C-s-<char>`. As a quick fix, I duplicated each of my keybindings that relied on
the CMD key to support Shift+CMD as well until I remapped the key on my
Ergodox. This morning, I remapped the Shift+CMD key to CMD, so I'm bidding adieu
to this code.
This commit is contained in:
William Carroll 2020-02-03 10:54:15 +00:00
parent 916e46d7ce
commit cce926d60f
2 changed files with 1 additions and 15 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
emacs/.emacs.d/wpc/keybindings.el
View file

@ -41,10 +41,6 @@
(keybinding/exwm (kbd/raw 'x11 "s") #'scrot/select) (keybinding/exwm (kbd/raw 'x11 "s") #'scrot/select)
;; TODO: I need this because my Ergodox EZ sends super+shift instead of just
;; super. Remove this once I fix my Ergodox.
(keybinding/exwm "C-S-s-s" #'scrot/select)
(keybinding/exwm "<C-M-tab>" #'exwm/switch-to-exwm-buffer) (keybinding/exwm "<C-M-tab>" #'exwm/switch-to-exwm-buffer)
(general-define-key (kbd/raw 'x11 "t") #'ts/switch-to-terminal) (general-define-key (kbd/raw 'x11 "t") #'ts/switch-to-terminal)

12
emacs/.emacs.d/wpc/window-manager.el
View file

@ -210,13 +210,8 @@
;; Workspaces ;; Workspaces
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; NOTE: Here I need to generate lowercase and uppercase
;; variants of each because my Ergodox is sending capitalized
;; variants of the keycodes to EXWM.
(:key ,(kbd/raw 'workspace "l") :fn window-manager/logout) (:key ,(kbd/raw 'workspace "l") :fn window-manager/logout)
(:key ,(kbd/raw 'workspace "L") :fn window-manager/logout) (:key ,(kbd/raw 'workspace "i") :fn exwm/toggle-mode))))
(:key ,(kbd/raw 'workspace "i") :fn exwm/toggle-mode)
(:key ,(kbd/raw 'workspace "I") :fn exwm/toggle-mode))))
(setq exwm-input-global-keys (setq exwm-input-global-keys
(->> kbds (->> kbds
(-map (lambda (plist) (-map (lambda (plist)
@ -428,11 +423,6 @@ Currently using super- as the prefix for switching workspaces."
(key (exwm/named-workspace-kbd workspace))) (key (exwm/named-workspace-kbd workspace)))
(exwm-input-set-key (exwm-input-set-key
(kbd/for 'workspace key) (kbd/for 'workspace key)
handler)
;; Note: We need to capitalize the KBD here because of the signals that my
;; Ergodox is sending Emacs on my desktop.
(exwm-input-set-key
(kbd/for 'workspace (s-capitalize key))
handler))) handler)))
(defun exwm/change-workspace (workspace) (defun exwm/change-workspace (workspace)