   (let* ((cr-style (or cr-style 'ergodis))
          (doom-bepo-hook (lambda (_mode mode-keymaps &rest _rest)
                            (dolist (keymap mode-keymaps)
-                             (general-translate-key '(normal motion visual) keymap
+                             (evil-collection-translate-key '(normal motion visual) keymap
                                "c" "h"
                                "C" "H"
                                "t" "j"

    "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)

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