emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity
doomemacs/modules/input/layout/autoload/bepo.el

269 lines
9.8 KiB
EmacsLisp
Raw Normal View History

Add support for bépo layout in a dedicated module Evil is loaded too early to be able to wait for the config.el file of a user to set the CR-rotation style variable.
2020-08-14 21:41:25 +02:00
;;; input/keymaps/autoload/bepo.el -*- lexical-binding: t; -*-
;;;###autoload
(defun doom-bepo-rotate-ts-bare-keymap (keymaps)
"Rotate [jk] with [ts] in KEYMAP."
(dolist (keymap keymaps)
[bepo] Use evil-collection over general for keys evil-collection function for key translation actually keeps doing the smart thing of deferring the actual call to the point where the keymaps are defined. Therefore we avoid all the `(void-variable *-map)` errors and the code is more robust/in line with evil-collection
2020-09-21 09:58:13 +02:00
(evil-collection-translate-key nil keymap
Add support for bépo layout in a dedicated module Evil is loaded too early to be able to wait for the config.el file of a user to set the CR-rotation style variable.
2020-08-14 21:41:25 +02:00
"t" "j"
"T" "J"
"s" "k"
"S" "K"
"j" "t"
"J" "T"
"k" "s"
"K" "S"
Lint
2020-09-21 10:14:33 +02:00
(kbd "C-t") (kbd "C-j")
(kbd "C-s") (kbd "C-k")
(kbd "C-j") (kbd "C-t")
(kbd "C-k") (kbd "C-s")
(kbd "M-t") (kbd "M-j")
(kbd "M-s") (kbd "M-k")
(kbd "M-j") (kbd "M-t")
(kbd "M-k") (kbd "M-s")
(kbd "C-S-t") (kbd "C-S-j")
(kbd "C-S-s") (kbd "C-S-k")
(kbd "C-S-j") (kbd "C-S-t")
(kbd "C-S-k") (kbd "C-S-s")
(kbd "M-S-t") (kbd "M-S-j")
(kbd "M-S-s") (kbd "M-S-k")
(kbd "M-S-j") (kbd "M-S-t")
(kbd "M-S-k") (kbd "M-S-s"))))
Add support for bépo layout in a dedicated module Evil is loaded too early to be able to wait for the config.el file of a user to set the CR-rotation style variable.
2020-08-14 21:41:25 +02:00
;;;###autoload
(defun doom-bepo-rotate-é-quotes-bare-keymap (keymaps)
"Rotate [w<>] with [é«»] in KEYMAP."
(dolist (keymap keymaps)
[bepo] Use evil-collection over general for keys evil-collection function for key translation actually keeps doing the smart thing of deferring the actual call to the point where the keymaps are defined. Therefore we avoid all the `(void-variable *-map)` errors and the code is more robust/in line with evil-collection
2020-09-21 09:58:13 +02:00
(evil-collection-translate-key nil keymap
Add support for bépo layout in a dedicated module Evil is loaded too early to be able to wait for the config.el file of a user to set the CR-rotation style variable.
2020-08-14 21:41:25 +02:00
"é" "w"
"É" "W"
"«" "<"
"»" ">"
Lint
2020-09-21 10:14:33 +02:00
(kbd "C-é") (kbd "C-w")
(kbd "C-«") (kbd "C-<")
(kbd "C-»") (kbd "C->")
(kbd "M-é") (kbd "M-w")
(kbd "M-«") (kbd "M-<")
(kbd "M-»") (kbd "M->")
(kbd "C-S-é") (kbd "C-S-w")
(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-<")
(kbd "M-S-»") (kbd "M-S->"))))
Add support for bépo layout in a dedicated module Evil is loaded too early to be able to wait for the config.el file of a user to set the CR-rotation style variable.
2020-08-14 21:41:25 +02:00
;;;###autoload
(defun doom-bepo-rotate-cr-bare-keymap (keymaps &optional style)
"Rotate [hl] with [cr] in KEYMAP.
If STYLE is nil or 'ergodis, the old 'c' bindings will be mapped on 'l' and the old 'r' on 'h'.
Otherwise if STYLE is 'strict, the old 'c' bindings will be mapped on 'h' and the old 'r' on 'l'.
Undefined behaviour in other cases, for forward compatibility."
(let ((style (or style 'ergodis)))
(dolist (keymap keymaps)
(progn
[bepo] Use evil-collection over general for keys evil-collection function for key translation actually keeps doing the smart thing of deferring the actual call to the point where the keymaps are defined. Therefore we avoid all the `(void-variable *-map)` errors and the code is more robust/in line with evil-collection
2020-09-21 09:58:13 +02:00
(evil-collection-translate-key nil keymap
Add support for bépo layout in a dedicated module Evil is loaded too early to be able to wait for the config.el file of a user to set the CR-rotation style variable.
2020-08-14 21:41:25 +02:00
"c" "h"
"C" "H"
"r" "l"
"R" "L"
Lint
2020-09-21 10:14:33 +02:00
(kbd "C-c") (kbd "C-h")
(kbd "C-r") (kbd "C-l")
(kbd "M-c") (kbd "M-h")
(kbd "M-r") (kbd "M-l")
(kbd "C-S-c") (kbd "C-S-h")
(kbd "C-S-r") (kbd "C-S-l")
(kbd "M-S-c") (kbd "M-S-h")
(kbd "M-S-r") (kbd "M-S-l"))
Add support for bépo layout in a dedicated module Evil is loaded too early to be able to wait for the config.el file of a user to set the CR-rotation style variable.
2020-08-14 21:41:25 +02:00
(cond ((eq style 'ergodis)
[bepo] Use evil-collection over general for keys evil-collection function for key translation actually keeps doing the smart thing of deferring the actual call to the point where the keymaps are defined. Therefore we avoid all the `(void-variable *-map)` errors and the code is more robust/in line with evil-collection
2020-09-21 09:58:13 +02:00
(evil-collection-translate-key nil keymap
Add support for bépo layout in a dedicated module Evil is loaded too early to be able to wait for the config.el file of a user to set the CR-rotation style variable.
2020-08-14 21:41:25 +02:00
"h" "r"
"H" "R"
"l" "c"
"L" "C"
Lint
2020-09-21 10:14:33 +02:00
(kbd "C-h") (kbd "C-r")
(kbd "C-l") (kbd "C-c")
(kbd "M-h") (kbd "M-r")
(kbd "M-l") (kbd "M-c")
(kbd "C-S-h") (kbd "C-S-r")
(kbd "C-S-l") (kbd "C-S-c")
(kbd "M-S-h") (kbd "M-S-r")
(kbd "M-S-l") (kbd "M-S-c")))
Add support for bépo layout in a dedicated module Evil is loaded too early to be able to wait for the config.el file of a user to set the CR-rotation style variable.
2020-08-14 21:41:25 +02:00
(t
[bepo] Use evil-collection over general for keys evil-collection function for key translation actually keeps doing the smart thing of deferring the actual call to the point where the keymaps are defined. Therefore we avoid all the `(void-variable *-map)` errors and the code is more robust/in line with evil-collection
2020-09-21 09:58:13 +02:00
(evil-collection-translate-key nil keymap
Add support for bépo layout in a dedicated module Evil is loaded too early to be able to wait for the config.el file of a user to set the CR-rotation style variable.
2020-08-14 21:41:25 +02:00
"h" "c"
"H" "C"
"l" "r"
"L" "R"
Lint
2020-09-21 10:14:33 +02:00
(kbd "C-h") (kbd "C-c")
(kbd "C-l") (kbd "C-r")
(kbd "M-h") (kbd "M-c")
(kbd "M-l") (kbd "M-r")
(kbd "C-S-h") (kbd "C-S-c")
(kbd "C-S-l") (kbd "C-S-r")
(kbd "M-S-h") (kbd "M-S-c")
(kbd "M-S-l") (kbd "M-S-r"))))))))
Add support for bépo layout in a dedicated module Evil is loaded too early to be able to wait for the config.el file of a user to set the CR-rotation style variable.
2020-08-14 21:41:25 +02:00
;;;###autoload
(defun doom-bepo-rotate-bare-keymap (keymaps &optional cr-style)
"Rotate [hjklw<>] with [ctsré«»] in KEYMAP.
See `doom-bepo-cr-rotation-style' for the meaning of CR-STYLE"
(doom-bepo-rotate-cr-bare-keymap keymaps cr-style)
(doom-bepo-rotate-ts-bare-keymap keymaps)
(doom-bepo-rotate-é-quotes-bare-keymap keymaps))
;;;###autoload
(defun doom-bepo-rotate-evil-keymap (&optional cr-style)
"Remap evil-{normal,operator,motion,...}-state-map
to be more natural with Bépo keyboard layout.
See `doom-bepo-cr-rotation-style' for the meaning of CR-STYLE."
[bepo] Use evil-collection over general for keys evil-collection function for key translation actually keeps doing the smart thing of deferring the actual call to the point where the keymaps are defined. Therefore we avoid all the `(void-variable *-map)` errors and the code is more robust/in line with evil-collection
2020-09-21 09:58:13 +02:00
(evil-collection-translate-key nil '(evil-normal-state-map evil-motion-state-map evil-visual-state-map)
Add support for bépo layout in a dedicated module Evil is loaded too early to be able to wait for the config.el file of a user to set the CR-rotation style variable.
2020-08-14 21:41:25 +02:00
"c" "h"
"C" "H"
"t" "j"
"T" "J"
"s" "k"
"S" "K"
"r" "l"
"R" "L"
"j" "t"
"J" "T"
"k" "s"
"K" "S")
(cond ((eq cr-style 'ergodis)
[bepo] Use evil-collection over general for keys evil-collection function for key translation actually keeps doing the smart thing of deferring the actual call to the point where the keymaps are defined. Therefore we avoid all the `(void-variable *-map)` errors and the code is more robust/in line with evil-collection
2020-09-21 09:58:13 +02:00
(evil-collection-translate-key nil '(evil-normal-state-map evil-motion-state-map evil-visual-state-map)
Add support for bépo layout in a dedicated module Evil is loaded too early to be able to wait for the config.el file of a user to set the CR-rotation style variable.
2020-08-14 21:41:25 +02:00
"h" "r"
"H" "R"
"l" "c"
"L" "C"))
(t
[bepo] Use evil-collection over general for keys evil-collection function for key translation actually keeps doing the smart thing of deferring the actual call to the point where the keymaps are defined. Therefore we avoid all the `(void-variable *-map)` errors and the code is more robust/in line with evil-collection
2020-09-21 09:58:13 +02:00
(evil-collection-translate-key nil '(evil-normal-state-map evil-motion-state-map evil-visual-state-map)
Add support for bépo layout in a dedicated module Evil is loaded too early to be able to wait for the config.el file of a user to set the CR-rotation style variable.
2020-08-14 21:41:25 +02:00
"h" "c"
"H" "C"
"l" "r"
"L" "R")))
[bepo] Use evil-collection over general for keys evil-collection function for key translation actually keeps doing the smart thing of deferring the actual call to the point where the keymaps are defined. Therefore we avoid all the `(void-variable *-map)` errors and the code is more robust/in line with evil-collection
2020-09-21 09:58:13 +02:00
(evil-collection-translate-key nil '(evil-insert-state-map)
Lint
2020-09-21 10:14:33 +02:00
(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-s") (kbd "C-k")
(kbd "C-S") (kbd "C-K")
(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-k") (kbd "C-s")
(kbd "C-K") (kbd "C-S"))
Add support for bépo layout in a dedicated module Evil is loaded too early to be able to wait for the config.el file of a user to set the CR-rotation style variable.
2020-08-14 21:41:25 +02:00
(cond ((eq cr-style 'ergodis)
[bepo] Use evil-collection over general for keys evil-collection function for key translation actually keeps doing the smart thing of deferring the actual call to the point where the keymaps are defined. Therefore we avoid all the `(void-variable *-map)` errors and the code is more robust/in line with evil-collection
2020-09-21 09:58:13 +02:00
(evil-collection-translate-key nil '(evil-insert-state-map)
Lint
2020-09-21 10:14:33 +02:00
(kbd "C-h") (kbd "C-r")
(kbd "C-H") (kbd "C-R")
(kbd "C-l") (kbd "C-c")
(kbd "C-L") (kbd "C-C")))
Add support for bépo layout in a dedicated module Evil is loaded too early to be able to wait for the config.el file of a user to set the CR-rotation style variable.
2020-08-14 21:41:25 +02:00
(t
[bepo] Use evil-collection over general for keys evil-collection function for key translation actually keeps doing the smart thing of deferring the actual call to the point where the keymaps are defined. Therefore we avoid all the `(void-variable *-map)` errors and the code is more robust/in line with evil-collection
2020-09-21 09:58:13 +02:00
(evil-collection-translate-key nil '(evil-insert-state-map)
Lint
2020-09-21 10:14:33 +02:00
(kbd "C-h") (kbd "C-c")
(kbd "C-H") (kbd "C-C")
(kbd "C-l") (kbd "C-r")
(kbd "C-L") (kbd "C-R"))))
Add support for bépo layout in a dedicated module Evil is loaded too early to be able to wait for the config.el file of a user to set the CR-rotation style variable.
2020-08-14 21:41:25 +02:00
;; <> as direct access
[bepo] Use evil-collection over general for keys evil-collection function for key translation actually keeps doing the smart thing of deferring the actual call to the point where the keymaps are defined. Therefore we avoid all the `(void-variable *-map)` errors and the code is more robust/in line with evil-collection
2020-09-21 09:58:13 +02:00
(evil-collection-translate-key nil '(evil-normal-state-map evil-motion-state-map)
Add support for bépo layout in a dedicated module Evil is loaded too early to be able to wait for the config.el file of a user to set the CR-rotation style variable.
2020-08-14 21:41:25 +02:00
"«" "<"
"»" ">")
;; " è replaces ^0 to go at BOL
[bepo] Use evil-collection over general for keys evil-collection function for key translation actually keeps doing the smart thing of deferring the actual call to the point where the keymaps are defined. Therefore we avoid all the `(void-variable *-map)` errors and the code is more robust/in line with evil-collection
2020-09-21 09:58:13 +02:00
(evil-collection-translate-key nil '(evil-normal-state-map evil-motion-state-map)
Add support for bépo layout in a dedicated module Evil is loaded too early to be able to wait for the config.el file of a user to set the CR-rotation style variable.
2020-08-14 21:41:25 +02:00
"è" "^"
"È" "0")
;; [W] -> [É]
;; [C-W] -> [W]
[bepo] Use evil-collection over general for keys evil-collection function for key translation actually keeps doing the smart thing of deferring the actual call to the point where the keymaps are defined. Therefore we avoid all the `(void-variable *-map)` errors and the code is more robust/in line with evil-collection
2020-09-21 09:58:13 +02:00
(evil-collection-translate-key nil '(evil-normal-state-map evil-motion-state-map evil-operator-state-map)
Add support for bépo layout in a dedicated module Evil is loaded too early to be able to wait for the config.el file of a user to set the CR-rotation style variable.
2020-08-14 21:41:25 +02:00
"é" "w"
"É" "W"
Lint
2020-09-21 10:14:33 +02:00
"w" (kbd "C-w")
"W" (kbd "C-w C-w")))
Add support for bépo layout in a dedicated module Evil is loaded too early to be able to wait for the config.el file of a user to set the CR-rotation style variable.
2020-08-14 21:41:25 +02:00
;;;###autoload
(defun doom-bepo-rotate-collection-keymaps-h-builder (cr-style)
"Build a hook that remaps evil-collection customizations to be more natural
with Bépo keyboard layout, according to CR-STYLE (see `doom-bepo-cr-rotation-style')."
(let* ((cr-style (or cr-style 'ergodis))
(doom-bepo-hook (lambda (_mode mode-keymaps &rest _rest)
(dolist (keymap mode-keymaps)
[bepo] Use evil-collection over general for keys evil-collection function for key translation actually keeps doing the smart thing of deferring the actual call to the point where the keymaps are defined. Therefore we avoid all the `(void-variable *-map)` errors and the code is more robust/in line with evil-collection
2020-09-21 09:58:13 +02:00
(evil-collection-translate-key '(normal motion visual) keymap
Add support for bépo layout in a dedicated module Evil is loaded too early to be able to wait for the config.el file of a user to set the CR-rotation style variable.
2020-08-14 21:41:25 +02:00
"c" "h"
"C" "H"
"t" "j"
"T" "J"
"s" "k"
"S" "K"
"r" "l"
"R" "L"
"j" "t"
"J" "T"
"k" "s"
"K" "S")
(cond ((eq cr-style 'ergodis)
[bepo] Use evil-collection over general for keys evil-collection function for key translation actually keeps doing the smart thing of deferring the actual call to the point where the keymaps are defined. Therefore we avoid all the `(void-variable *-map)` errors and the code is more robust/in line with evil-collection
2020-09-21 09:58:13 +02:00
(evil-collection-translate-key '(normal motion visual) keymap
Add support for bépo layout in a dedicated module Evil is loaded too early to be able to wait for the config.el file of a user to set the CR-rotation style variable.
2020-08-14 21:41:25 +02:00
"h" "r"
"H" "R"
"l" "c"
"L" "C"))
(t
[bepo] Use evil-collection over general for keys evil-collection function for key translation actually keeps doing the smart thing of deferring the actual call to the point where the keymaps are defined. Therefore we avoid all the `(void-variable *-map)` errors and the code is more robust/in line with evil-collection
2020-09-21 09:58:13 +02:00
(evil-collection-translate-key '(normal motion visual) keymap
Add support for bépo layout in a dedicated module Evil is loaded too early to be able to wait for the config.el file of a user to set the CR-rotation style variable.
2020-08-14 21:41:25 +02:00
"h" "c"
"H" "C"
"l" "r"
"L" "R")))
[bepo] Use evil-collection over general for keys evil-collection function for key translation actually keeps doing the smart thing of deferring the actual call to the point where the keymaps are defined. Therefore we avoid all the `(void-variable *-map)` errors and the code is more robust/in line with evil-collection
2020-09-21 09:58:13 +02:00
(evil-collection-translate-key '(insert) keymap
Lint
2020-09-21 10:14:33 +02:00
(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-s") (kbd "C-k")
(kbd "C-S") (kbd "C-K")
(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-k") (kbd "C-s")
(kbd "C-K") (kbd "C-S"))
Add support for bépo layout in a dedicated module Evil is loaded too early to be able to wait for the config.el file of a user to set the CR-rotation style variable.
2020-08-14 21:41:25 +02:00
(cond ((eq cr-style 'ergodis)
[bepo] Use evil-collection over general for keys evil-collection function for key translation actually keeps doing the smart thing of deferring the actual call to the point where the keymaps are defined. Therefore we avoid all the `(void-variable *-map)` errors and the code is more robust/in line with evil-collection
2020-09-21 09:58:13 +02:00
(evil-collection-translate-key '(insert) keymap
Lint
2020-09-21 10:14:33 +02:00
(kbd "C-h") (kbd "C-r")
(kbd "C-H") (kbd "C-R")
(kbd "C-l") (kbd "C-c")
(kbd "C-L") (kbd "C-C")))
Add support for bépo layout in a dedicated module Evil is loaded too early to be able to wait for the config.el file of a user to set the CR-rotation style variable.
2020-08-14 21:41:25 +02:00
(t
[bepo] Use evil-collection over general for keys evil-collection function for key translation actually keeps doing the smart thing of deferring the actual call to the point where the keymaps are defined. Therefore we avoid all the `(void-variable *-map)` errors and the code is more robust/in line with evil-collection
2020-09-21 09:58:13 +02:00
(evil-collection-translate-key '(insert) keymap
Lint
2020-09-21 10:14:33 +02:00
(kbd "C-h") (kbd "C-c")
(kbd "C-H") (kbd "C-C")
(kbd "C-l") (kbd "C-r")
(kbd "C-L") (kbd "C-R"))))
Add support for bépo layout in a dedicated module Evil is loaded too early to be able to wait for the config.el file of a user to set the CR-rotation style variable.
2020-08-14 21:41:25 +02:00
;; <> en direct
[bepo] Use evil-collection over general for keys evil-collection function for key translation actually keeps doing the smart thing of deferring the actual call to the point where the keymaps are defined. Therefore we avoid all the `(void-variable *-map)` errors and the code is more robust/in line with evil-collection
2020-09-21 09:58:13 +02:00
(evil-collection-translate-key '(normal motion visual) keymap
Add support for bépo layout in a dedicated module Evil is loaded too early to be able to wait for the config.el file of a user to set the CR-rotation style variable.
2020-08-14 21:41:25 +02:00
"«" "<"
"»" ">")
;; è pour aller au début de ligne
[bepo] Use evil-collection over general for keys evil-collection function for key translation actually keeps doing the smart thing of deferring the actual call to the point where the keymaps are defined. Therefore we avoid all the `(void-variable *-map)` errors and the code is more robust/in line with evil-collection
2020-09-21 09:58:13 +02:00
(evil-collection-translate-key '(normal motion visual) keymap
Add support for bépo layout in a dedicated module Evil is loaded too early to be able to wait for the config.el file of a user to set the CR-rotation style variable.
2020-08-14 21:41:25 +02:00
"è" "^"
"È" "0")
;; [W] -> [É]
;; [C-W] -> [W]
[bepo] Use evil-collection over general for keys evil-collection function for key translation actually keeps doing the smart thing of deferring the actual call to the point where the keymaps are defined. Therefore we avoid all the `(void-variable *-map)` errors and the code is more robust/in line with evil-collection
2020-09-21 09:58:13 +02:00
(evil-collection-translate-key '(normal motion operator visual) keymap
Add support for bépo layout in a dedicated module Evil is loaded too early to be able to wait for the config.el file of a user to set the CR-rotation style variable.
2020-08-14 21:41:25 +02:00
"é" "w"
"É" "W"
Lint
2020-09-21 10:14:33 +02:00
"w" (kbd "C-w")
"W" (kbd "C-w C-w"))))))
Add support for bépo layout in a dedicated module Evil is loaded too early to be able to wait for the config.el file of a user to set the CR-rotation style variable.
2020-08-14 21:41:25 +02:00
doom-bepo-hook))
Reference in a new issue Copy permalink