This commit is contained in:
Gerry Agbobada 2020-09-21 10:14:33 +02:00
parent 727f6afc2b
commit b452585da7
No known key found for this signature in database
GPG key ID: BE26DBAFD866BE34

View file

@ -13,22 +13,22 @@
"J" "T" "J" "T"
"k" "s" "k" "s"
"K" "S" "K" "S"
(kbd "C-t") (kbd "C-j") (kbd "C-t") (kbd "C-j")
(kbd "C-s") (kbd "C-k") (kbd "C-s") (kbd "C-k")
(kbd "C-j") (kbd "C-t") (kbd "C-j") (kbd "C-t")
(kbd "C-k") (kbd "C-s") (kbd "C-k") (kbd "C-s")
(kbd "M-t") (kbd "M-j") (kbd "M-t") (kbd "M-j")
(kbd "M-s") (kbd "M-k") (kbd "M-s") (kbd "M-k")
(kbd "M-j") (kbd "M-t") (kbd "M-j") (kbd "M-t")
(kbd "M-k") (kbd "M-s") (kbd "M-k") (kbd "M-s")
(kbd "C-S-t") (kbd "C-S-j") (kbd "C-S-t") (kbd "C-S-j")
(kbd "C-S-s") (kbd "C-S-k") (kbd "C-S-s") (kbd "C-S-k")
(kbd "C-S-j") (kbd "C-S-t") (kbd "C-S-j") (kbd "C-S-t")
(kbd "C-S-k") (kbd "C-S-s") (kbd "C-S-k") (kbd "C-S-s")
(kbd "M-S-t") (kbd "M-S-j") (kbd "M-S-t") (kbd "M-S-j")
(kbd "M-S-s") (kbd "M-S-k") (kbd "M-S-s") (kbd "M-S-k")
(kbd "M-S-j") (kbd "M-S-t") (kbd "M-S-j") (kbd "M-S-t")
(kbd "M-S-k") (kbd "M-S-s")))) (kbd "M-S-k") (kbd "M-S-s"))))
;;;###autoload ;;;###autoload
(defun doom-bepo-rotate-é-quotes-bare-keymap (keymaps) (defun doom-bepo-rotate-é-quotes-bare-keymap (keymaps)
@ -39,18 +39,18 @@
"É" "W" "É" "W"
"«" "<" "«" "<"
"»" ">" "»" ">"
(kbd "C-é") (kbd "C-w") (kbd "C-é") (kbd "C-w")
(kbd "C-«") (kbd "C-<") (kbd "C-«") (kbd "C-<")
(kbd "C-»") (kbd "C->") (kbd "C-»") (kbd "C->")
(kbd "M-é") (kbd "M-w") (kbd "M-é") (kbd "M-w")
(kbd "M-«") (kbd "M-<") (kbd "M-«") (kbd "M-<")
(kbd "M-»") (kbd "M->") (kbd "M-»") (kbd "M->")
(kbd "C-S-é") (kbd "C-S-w") (kbd "C-S-é") (kbd "C-S-w")
(kbd "C-S-«") (kbd "C-S-<") (kbd "C-S-«") (kbd "C-S-<")
(kbd "C-S-»") (kbd "C-S->") (kbd "C-S-»") (kbd "C-S->")
(kbd "M-S-é") (kbd "M-S-w") (kbd "M-S-é") (kbd "M-S-w")
(kbd "M-S-«") (kbd "M-S-<") (kbd "M-S-«") (kbd "M-S-<")
(kbd "M-S-»") (kbd "M-S->")))) (kbd "M-S-»") (kbd "M-S->"))))
;;;###autoload ;;;###autoload
(defun doom-bepo-rotate-cr-bare-keymap (keymaps &optional style) (defun doom-bepo-rotate-cr-bare-keymap (keymaps &optional style)
@ -67,42 +67,42 @@ Undefined behaviour in other cases, for forward compatibility."
"C" "H" "C" "H"
"r" "l" "r" "l"
"R" "L" "R" "L"
(kbd "C-c") (kbd "C-h") (kbd "C-c") (kbd "C-h")
(kbd "C-r") (kbd "C-l") (kbd "C-r") (kbd "C-l")
(kbd "M-c") (kbd "M-h") (kbd "M-c") (kbd "M-h")
(kbd "M-r") (kbd "M-l") (kbd "M-r") (kbd "M-l")
(kbd "C-S-c") (kbd "C-S-h") (kbd "C-S-c") (kbd "C-S-h")
(kbd "C-S-r") (kbd "C-S-l") (kbd "C-S-r") (kbd "C-S-l")
(kbd "M-S-c") (kbd "M-S-h") (kbd "M-S-c") (kbd "M-S-h")
(kbd "M-S-r") (kbd "M-S-l")) (kbd "M-S-r") (kbd "M-S-l"))
(cond ((eq style 'ergodis) (cond ((eq style 'ergodis)
(evil-collection-translate-key nil keymap (evil-collection-translate-key nil keymap
"h" "r" "h" "r"
"H" "R" "H" "R"
"l" "c" "l" "c"
"L" "C" "L" "C"
(kbd "C-h") (kbd "C-r") (kbd "C-h") (kbd "C-r")
(kbd "C-l") (kbd "C-c") (kbd "C-l") (kbd "C-c")
(kbd "M-h") (kbd "M-r") (kbd "M-h") (kbd "M-r")
(kbd "M-l") (kbd "M-c") (kbd "M-l") (kbd "M-c")
(kbd "C-S-h") (kbd "C-S-r") (kbd "C-S-h") (kbd "C-S-r")
(kbd "C-S-l") (kbd "C-S-c") (kbd "C-S-l") (kbd "C-S-c")
(kbd "M-S-h") (kbd "M-S-r") (kbd "M-S-h") (kbd "M-S-r")
(kbd "M-S-l") (kbd "M-S-c"))) (kbd "M-S-l") (kbd "M-S-c")))
(t (t
(evil-collection-translate-key nil keymap (evil-collection-translate-key nil keymap
"h" "c" "h" "c"
"H" "C" "H" "C"
"l" "r" "l" "r"
"L" "R" "L" "R"
(kbd "C-h") (kbd "C-c") (kbd "C-h") (kbd "C-c")
(kbd "C-l") (kbd "C-r") (kbd "C-l") (kbd "C-r")
(kbd "M-h") (kbd "M-c") (kbd "M-h") (kbd "M-c")
(kbd "M-l") (kbd "M-r") (kbd "M-l") (kbd "M-r")
(kbd "C-S-h") (kbd "C-S-c") (kbd "C-S-h") (kbd "C-S-c")
(kbd "C-S-l") (kbd "C-S-r") (kbd "C-S-l") (kbd "C-S-r")
(kbd "M-S-h") (kbd "M-S-c") (kbd "M-S-h") (kbd "M-S-c")
(kbd "M-S-l") (kbd "M-S-r")))))))) (kbd "M-S-l") (kbd "M-S-r"))))))))
;;;###autoload ;;;###autoload
(defun doom-bepo-rotate-bare-keymap (keymaps &optional cr-style) (defun doom-bepo-rotate-bare-keymap (keymaps &optional cr-style)
@ -144,30 +144,30 @@ See `doom-bepo-cr-rotation-style' for the meaning of CR-STYLE."
"L" "R"))) "L" "R")))
(evil-collection-translate-key nil '(evil-insert-state-map) (evil-collection-translate-key nil '(evil-insert-state-map)
(kbd "C-c") (kbd "C-h") (kbd "C-c") (kbd "C-h")
(kbd "C-C") (kbd "C-H") (kbd "C-C") (kbd "C-H")
(kbd "C-t") (kbd "C-j") (kbd "C-t") (kbd "C-j")
(kbd "C-T") (kbd "C-J") (kbd "C-T") (kbd "C-J")
(kbd "C-s") (kbd "C-k") (kbd "C-s") (kbd "C-k")
(kbd "C-S") (kbd "C-K") (kbd "C-S") (kbd "C-K")
(kbd "C-r") (kbd "C-l") (kbd "C-r") (kbd "C-l")
(kbd "C-R") (kbd "C-L") (kbd "C-R") (kbd "C-L")
(kbd "C-j") (kbd "C-t") (kbd "C-j") (kbd "C-t")
(kbd "C-J") (kbd "C-T") (kbd "C-J") (kbd "C-T")
(kbd "C-k") (kbd "C-s") (kbd "C-k") (kbd "C-s")
(kbd "C-K") (kbd "C-S")) (kbd "C-K") (kbd "C-S"))
(cond ((eq cr-style 'ergodis) (cond ((eq cr-style 'ergodis)
(evil-collection-translate-key nil '(evil-insert-state-map) (evil-collection-translate-key nil '(evil-insert-state-map)
(kbd "C-h") (kbd "C-r") (kbd "C-h") (kbd "C-r")
(kbd "C-H") (kbd "C-R") (kbd "C-H") (kbd "C-R")
(kbd "C-l") (kbd "C-c") (kbd "C-l") (kbd "C-c")
(kbd "C-L") (kbd "C-C"))) (kbd "C-L") (kbd "C-C")))
(t (t
(evil-collection-translate-key nil '(evil-insert-state-map) (evil-collection-translate-key nil '(evil-insert-state-map)
(kbd "C-h") (kbd "C-c") (kbd "C-h") (kbd "C-c")
(kbd "C-H") (kbd "C-C") (kbd "C-H") (kbd "C-C")
(kbd "C-l") (kbd "C-r") (kbd "C-l") (kbd "C-r")
(kbd "C-L") (kbd "C-R")))) (kbd "C-L") (kbd "C-R"))))
;; <> as direct access ;; <> as direct access
@ -185,8 +185,8 @@ See `doom-bepo-cr-rotation-style' for the meaning of CR-STYLE."
(evil-collection-translate-key nil '(evil-normal-state-map evil-motion-state-map evil-operator-state-map) (evil-collection-translate-key nil '(evil-normal-state-map evil-motion-state-map evil-operator-state-map)
"é" "w" "é" "w"
"É" "W" "É" "W"
"w" (kbd "C-w") "w" (kbd "C-w")
"W" (kbd "C-w C-w"))) "W" (kbd "C-w C-w")))
;;;###autoload ;;;###autoload
(defun doom-bepo-rotate-collection-keymaps-h-builder (cr-style) (defun doom-bepo-rotate-collection-keymaps-h-builder (cr-style)
@ -223,30 +223,30 @@ See `doom-bepo-cr-rotation-style' for the meaning of CR-STYLE."
(evil-collection-translate-key '(insert) keymap (evil-collection-translate-key '(insert) keymap
(kbd "C-c") (kbd "C-h") (kbd "C-c") (kbd "C-h")
(kbd "C-C") (kbd "C-H") (kbd "C-C") (kbd "C-H")
(kbd "C-t") (kbd "C-j") (kbd "C-t") (kbd "C-j")
(kbd "C-T") (kbd "C-J") (kbd "C-T") (kbd "C-J")
(kbd "C-s") (kbd "C-k") (kbd "C-s") (kbd "C-k")
(kbd "C-S") (kbd "C-K") (kbd "C-S") (kbd "C-K")
(kbd "C-r") (kbd "C-l") (kbd "C-r") (kbd "C-l")
(kbd "C-R") (kbd "C-L") (kbd "C-R") (kbd "C-L")
(kbd "C-j") (kbd "C-t") (kbd "C-j") (kbd "C-t")
(kbd "C-J") (kbd "C-T") (kbd "C-J") (kbd "C-T")
(kbd "C-k") (kbd "C-s") (kbd "C-k") (kbd "C-s")
(kbd "C-K") (kbd "C-S")) (kbd "C-K") (kbd "C-S"))
(cond ((eq cr-style 'ergodis) (cond ((eq cr-style 'ergodis)
(evil-collection-translate-key '(insert) keymap (evil-collection-translate-key '(insert) keymap
(kbd "C-h") (kbd "C-r") (kbd "C-h") (kbd "C-r")
(kbd "C-H") (kbd "C-R") (kbd "C-H") (kbd "C-R")
(kbd "C-l") (kbd "C-c") (kbd "C-l") (kbd "C-c")
(kbd "C-L") (kbd "C-C"))) (kbd "C-L") (kbd "C-C")))
(t (t
(evil-collection-translate-key '(insert) keymap (evil-collection-translate-key '(insert) keymap
(kbd "C-h") (kbd "C-c") (kbd "C-h") (kbd "C-c")
(kbd "C-H") (kbd "C-C") (kbd "C-H") (kbd "C-C")
(kbd "C-l") (kbd "C-r") (kbd "C-l") (kbd "C-r")
(kbd "C-L") (kbd "C-R")))) (kbd "C-L") (kbd "C-R"))))
;; <> en direct ;; <> en direct
(evil-collection-translate-key '(normal motion visual) keymap (evil-collection-translate-key '(normal motion visual) keymap
@ -263,6 +263,6 @@ See `doom-bepo-cr-rotation-style' for the meaning of CR-STYLE."
(evil-collection-translate-key '(normal motion operator visual) keymap (evil-collection-translate-key '(normal motion operator visual) keymap
"é" "w" "é" "w"
"É" "W" "É" "W"
"w" (kbd "C-w") "w" (kbd "C-w")
"W" (kbd "C-w C-w")))))) "W" (kbd "C-w C-w"))))))
doom-bepo-hook)) doom-bepo-hook))