emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

fix(input layout bepo): remap visual-line-mode-map (#5019)

Browse source 
* fix(input layout bepo): remap visual-line-mode-map

Fixes #5002

* TO SQUASH: map visual-line-mode-map

See comment for rationale. This is the only way to make the remapping work correctly.

`j` and `k` aren't remapped because `t` and `s` had no meaning at all on
`visual-line-mode-map` in `motion` state.

* TO SQUASH: sharpquote and align
This commit is contained in:
Gerry Agbobada 2021-05-10 10:57:06 +02:00 • committed by GitHub
parent d930b03fa4
commit cbbbf0de5c
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
1 changed files with 17 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

17
modules/input/layout/+bepo.el
View file

@ -73,6 +73,23 @@ In all cases, 'h' functions go to 'c' and 'l' ones go to 'r' so the navigation k
(+layout-bepo-rotate-ts-bare-keymap '(read-expression-map)) (+layout-bepo-rotate-ts-bare-keymap '(read-expression-map))
(+layout-bepo-rotate-bare-keymap '(evil-window-map) +layout-bepo-cr-rotation-style) (+layout-bepo-rotate-bare-keymap '(evil-window-map) +layout-bepo-cr-rotation-style)
(+layout-bepo-rotate-evil-keymap +layout-bepo-cr-rotation-style) (+layout-bepo-rotate-evil-keymap +layout-bepo-cr-rotation-style)
;; Remap the visual-mode-map bindings if necessary
;; See https://github.com/emacs-evil/evil/blob/7d00c23496c25a66f90ac7a6a354b1c7f9498162/evil-integration.el#L478-L501
;; Using +layout-bepo-rotate-keymaps is impossible because `evil-define-minor-mode-key' doesn't
;; provide an actual symbol to design the new keymap with, and instead stuff the keymap in
;; an auxiliary-auxiliary `minor-mode-map-alist'-like variable.
(after! evil-integration
(when evil-respect-visual-line-mode
(map! :map visual-line-mode-map
:m "t" #'evil-next-visual-line
;; _Not_ remapping gj and gk because they aren't remapped
;; consistently across all Emacs.
:m "s" #'evil-previous-visual-line
:m "È" #'evil-beginning-of-visual-line
:m "gÈ" #'evil-beginning-of-line
:m "$" #'evil-end-of-visual-line
:m "g$" #'evil-end-of-line
:m "V" #'evil-visual-screen-line)))
(map! :i "C-t" #'+default-newline (map! :i "C-t" #'+default-newline
(:when (featurep! :editor multiple-cursors) (:when (featurep! :editor multiple-cursors)