Fix several keybindings in wm library

This commit is contained in:
Sameer Rahmani 2020-04-10 10:41:21 +01:00
parent 126089a48e
commit 53c4c7da1e
1 changed files with 24 additions and 25 deletions

View File

@ -19,8 +19,8 @@
(defun disable-nlinum () (defun disable-nlinum ()
"Disables nlinum and fringe-mode." "Disable nlinum and fringe-mode."
(fringe-mode 1) (fringe-mode -1)
(nlinum-mode -1)) (nlinum-mode -1))
@ -106,38 +106,37 @@
;; `exwm-mode-map'. The following example shortens 'C-c q' to 'C-q'. ;; `exwm-mode-map'. The following example shortens 'C-c q' to 'C-q'.
(define-key exwm-mode-map [?\C-q] #'exwm-input-send-next-key) (define-key exwm-mode-map [?\C-q] #'exwm-input-send-next-key)
(push ?\C-c exwm-input-prefix-keys)
;; The following example demonstrates how to use simulation keys to mimic ;; The following example demonstrates how to use simulation keys to mimic
;; the behavior of Emacs. The value of `exwm-input-simulation-keys` is a ;; the behavior of Emacs. The value of `exwm-input-simulation-keys` is a
;; list of cons cells (SRC . DEST), where SRC is the key sequence you press ;; list of cons cells (SRC . DEST), where SRC is the key sequence you press
;; and DEST is what EXWM actually sends to application. Note that both SRC ;; and DEST is what EXWM actually sends to application. Note that both SRC
;; and DEST should be key sequences (vector or string). ;; and DEST should be key sequences (vector or string).
(setq exwm-input-simulation-keys (setq exwm-input-simulation-keys
'( `(
;; movement ;; movement
([?\C-b] . [left]) (,(kbd "C-b") . left)
([?\M-b] . [C-left]) (,(kbd "M-b") . ,(kbd "C-<left>"))
([?\C-f] . [right]) (,(kbd "C-f") . right)
([?\M-f] . [C-right]) (,(kbd "M-f") . ,(kbd "C-<right>"))
([?\C-p] . [up]) (,(kbd "C-p") . up)
([?\C-n] . [down]) (,(kbd "C-n") . down)
([?\C-a] . [home]) (,(kbd "C-a") . home)
([?\C-e] . [end]) (,(kbd "C-e") . end)
([?\M-v] . [prior]) (,(kbd "M-v") . prior)
([?\C-v] . [next]) (,(kbd "C-v") . next)
([?\C-d] . [delete]) (,(kbd "C-d") . delete)
([?\C-k] . [S-end delete]) ;;(,(kbs "C-k") . [S-end delete])
;; navigation ;; navigation
([?\C-c b] . [\M-left]) (,(kbd "C-c b") . ,(kbd "M-<left>"))
([?\C-c f] . [\M-right]) (,(kbd "C-c f") . ,(kbd "M-<right>"))
(,(kbd "C-c w") . ,(kbd "C-w"))
;; Actions (,(kbd "C-w") . ,(kbd "C-x"))
([?\C-c w] . [\C-w]) (,(kbd "M-w") . ,(kbd "C-c"))
;; cut/paste. (,(kbd "C-y") . ,(kbd "C-v"))
([?\C-w] . [?\C-x])
([?\M-w] . [?\C-c])
([?\C-y] . [?\C-v])
;; search ;; search
([?\C-s] . [?\C-f]))) (,(kbd "C-s") . ,(kbd "C-f"))))
;; You can hide the minibuffer and echo area when they're not used, by ;; You can hide the minibuffer and echo area when they're not used, by
;; uncommenting the following line. ;; uncommenting the following line.