move the definition of creature/map to init-keybindings

lisp/init-flymake.el

@@ -34,6 +34,7 @@
      ("C-c C-p" . flymake-goto-prev-error))
    flymake-mode-map)
 
+  (require 'init-keybindings)
   (lazy-load-set-keys
    '(("ex" . flymake-show-diagnostic)
      ("el" . creature/flymake-show-diagnostics-buffer-and-jump))

lisp/init-git.el

@@ -6,6 +6,7 @@
  '(("C-x g" . magit-status))
  "magit")
 
+(require 'init-keybindings)
 (lazy-load-local-keys
  '(("gb"  . magit-blame)
    ("gc"  . magit-clone)

lisp/init-keybindings.el

@@ -1,5 +1,12 @@
 ;; -*- coding: utf-8; lexical-binding: t; -*-
 
+(defconst creature/prefix-key "M-m"
+  "Prefix key for custom keybindings.")
+
+(define-prefix-command 'creature/map)
+(global-set-key (kbd creature/prefix-key) 'creature/map)
+
+
 (global-set-key (kbd "C-c '") (kbd "`"))
 
 

lisp/init-sdcv.el

@@ -3,6 +3,7 @@
 (require 'lazy-load)
 
 
+(require 'init-keybindings)
 (lazy-load-local-keys
  '(("s" . sdcv-search-pointer))
  creature/map "sdcv")

lisp/init-vertico.el

@@ -34,6 +34,7 @@
  "cape")
 
 
+(require 'init-keybindings)
 (lazy-load-local-keys
  '(("fr" . consult-recent-file))
  creature/map "consult")

lisp/init-which-key.el

@@ -1,5 +1,7 @@
 ;; -*- coding: utf-8; lexical-binding: t; -*-
 
+(require 'init-keybindings)
+
 (require 'which-key)
 (setq which-key-show-early-on-C-h t)
 (setq which-key-idle-delay 10000)