binding(corfu): bind completionist to user-prefixed M-k

lib/wal-complete.org

@@ -93,9 +93,11 @@ makes sense.
 
   :wal-bind
   (("k" . completion-at-point)
-   ("M-k" . corfu-insert-separator)
+   ;; M-k binds `completionist'.
    :map corfu-map
-   ("k" . corfu-quit)))
+
+   ("k" . corfu-quit)
+   ("M-k" . corfu-insert-separator)))
 #+END_SRC
 
 ** corfu-quick                                                          :gnu:

lib/wal-key-bindings.org

@@ -25,7 +25,6 @@ and command maps:
 + =C-c g= for =smerge=
 + =C-c i= for =compile=
 + =C-c j= is bound to =outline-minor-mode-map= (if mode is enabled)
-+ =C-c k= for completion commands (=cape= and =tempel=)
 + =C-c l= to toggle =display-line-numbers-mode=
 + =C-c m= for =bookmark=
 + =C-c n= to take notes for an =org-agenda= item
@@ -64,7 +63,8 @@ Most hyper[fn:2] bindings are quick-access actions:
   + when used with =M= it goes to char with a timer
 + =H-;= jumps to register, =H-M-;= stores point in register
 + =H-k= completes at point; when =corfu= is active, it quits the
-  candidate selection (=H-M-k= will insert a separator)
+  candidate selection (=H-M-k= will insert a separator while =corfu=
+  is active, otherwise activate =completionist= keymap)
 + =H-'= acts on the current point with =embark= (immediately with
   =H-M-'=)
 + =H-l= jumps to line with =avy= (beginning of line if called with
@@ -492,7 +492,7 @@ USER-KEY and LEADER can be used to prefix the key."
       "h" '(:ignore t :wk "help")
       "hw" 'woman)
 
-    (general-create-definer completionist :prefix "C-c k")
+    (general-create-definer completionist :prefix (wal-prefix-user-key "M-k"))
     (eval-after-load 'which-key
       (which-key-add-key-based-replacements "C-c k" "completionist"))