 (defun doom-bepo-rotate-ts-bare-keymap (keymaps)
   "Rotate [jk] with [ts] in KEYMAP."
   (dolist (keymap keymaps)
-    (general-translate-key nil keymap
+    (evil-collection-translate-key nil keymap
       "t" "j"
       "T" "J"
       "s" "k"

    "k" "s"
    "K" "S")
  (cond ((eq cr-style 'ergodis)
         (general-translate-key nil '(normal motion visual)
           "h" "r"
           "H" "R"
           "l" "c"
           "L" "C"))
        (t
         (general-translate-key nil '(normal motion visual)
           "h" "c"
           "H" "C"
           "l" "r"
           "L" "R")))

  (general-translate-key nil '(insert)
    "C-c" "C-h"
    "C-C" "C-H"
    "C-t" "C-j"
    "C-T" "C-J"
    "C-s" "C-k"
    "C-S" "C-K"
    "C-r" "C-l"
    "C-R" "C-L"
    "C-j" "C-t"
    "C-J" "C-T"
    "C-k" "C-s"
    "C-K" "C-S")
  (cond ((eq cr-style 'ergodis)
         (general-translate-key nil '(insert)
           "C-h" "C-r"
           "C-H" "C-R"
           "C-l" "C-c"
           "C-L" "C-C"))
        (t
         (general-translate-key nil '(insert)
           "C-h" "C-c"
           "C-H" "C-C"
           "C-l" "C-r"
           "C-L" "C-R")))


  ;; <> as direct access
  (general-translate-key nil '(normal motion)
    "«" "<"
    "»" ">")

  ;; " è replaces ^0 to go at BOL
  (general-translate-key nil '(normal motion)
    "è" "^"
    "È" "0")

  ;; [W] -> [É]
  ;; [C-W] -> [W]
  (general-translate-key nil '(normal motion operator)
    "é" "w"
    "É" "W"
    "w" "C-w"
    "W" "C-w C-w"))

;;;###autoload
(defun doom-bepo-rotate-collection-keymaps-h-builder (cr-style)

      "J" "T"
      "k" "s"
      "K" "S"
      (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"))))

;;;###autoload
(defun doom-bepo-rotate-é-quotes-bare-keymap (keymaps)
  "Rotate [w<>] with [é«»] in KEYMAP."
  (dolist (keymap keymaps)
    (evil-collection-translate-key nil keymap
      "é" "w"
      "É" "W"
      "«" "<"
      "»" ">"
      (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->"))))

;;;###autoload
(defun doom-bepo-rotate-cr-bare-keymap (keymaps &optional style)
