   (let ((style (or style 'ergodis)))
     (dolist (keymap keymaps)
       (progn
-        (general-translate-key nil keymap
+        (evil-collection-translate-key nil keymap
           "c" "h"
           "C" "H"
           "r" "l"
           "R" "L"
-          "C-c" "C-h"
-          "C-r" "C-l"
-          "M-c" "M-h"
-          "M-r" "M-l"
-          "C-S-c" "C-S-h"
-          "C-S-r" "C-S-l"
-          "M-S-c" "M-S-h"
-          "M-S-r" "M-S-l")
+          (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"))
         (cond ((eq style 'ergodis)
-               (general-translate-key nil keymap
+               (evil-collection-translate-key nil keymap
                  "h" "r"
                  "H" "R"
                  "l" "c"
                  "L" "C"
-                 "C-h" "C-r"
-                 "C-l" "C-c"
-                 "M-h" "M-r"
-                 "M-l" "M-c"
-                 "C-S-h" "C-S-r"
-                 "C-S-l" "C-S-c"
-                 "M-S-h" "M-S-r"
-                 "M-S-l" "M-S-c"))
+                 (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")))
               (t
-               (general-translate-key nil keymap
+               (evil-collection-translate-key nil keymap
                  "h" "c"
                  "H" "C"
                  "l" "r"
                  "L" "R"
-                 "C-h" "C-c"
-                 "C-l" "C-r"
-                 "M-h" "M-c"
-                 "M-l" "M-r"
-                 "C-S-h" "C-S-c"
-                 "C-S-l" "C-S-r"
-                 "M-S-h" "M-S-c"
-                 "M-S-l" "M-S-r")))))))
+                 (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"))))))))
 
 ;;;###autoload
 (defun doom-bepo-rotate-bare-keymap (keymaps &optional cr-style)

      "J" "T"
      "k" "s"
      "K" "S"
      "C-t" "C-j"
      "C-s" "C-k"
      "C-j" "C-t"
      "C-k" "C-s"
      "M-t" "M-j"
      "M-s" "M-k"
      "M-j" "M-t"
      "M-k" "M-s"
      "C-S-t" "C-S-j"
      "C-S-s" "C-S-k"
      "C-S-j" "C-S-t"
      "C-S-k" "C-S-s"
      "M-S-t" "M-S-j"
      "M-S-s" "M-S-k"
      "M-S-j" "M-S-t"
      "M-S-k" "M-S-s")))

;;;###autoload
(defun doom-bepo-rotate-é-quotes-bare-keymap (keymaps)
  "Rotate [w<>] with [é«»] in KEYMAP."
  (dolist (keymap keymaps)
    (general-translate-key nil keymap
      "é" "w"
      "É" "W"
      "«" "<"
      "»" ">"
      "C-é" "C-w"
      "C-«" "C-<"
      "C-»" "C->"
      "M-é" "M-w"
      "M-«" "M-<"
      "M-»" "M->"
      "C-S-é" "C-S-w"
      "C-S-«" "C-S-<"
      "C-S-»" "C-S->"
      "M-S-é" "M-S-w"
      "M-S-«" "M-S-<"
      "M-S-»" "M-S->")))

;;;###autoload
(defun doom-bepo-rotate-cr-bare-keymap (keymaps &optional 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."
  (evil-collection-translate-key nil '(evil-normal-state-map evil-motion-state-map evil-visual-state-map)
    "c" "h"
    "C" "H"
    "t" "j"
