compleseus: use the correct predicate for minibuffer hjkl bindings

syl20bnr#15710 confused
hybrid-style-enable-evilified-state and hybrid-style-enable-hjkl-bindings

core/core-dotspacemacs.el

@@ -199,11 +199,17 @@ in `dotspacemacs-themes'.")
   'spacemacs-dotspacemacs-init)
 
 (defun spacemacs//support-evilified-buffer-p ()
-  "Return non-nil if evil navigation should be enabled."
+  "Returns non-nil if buffers should use evilified states."
   (or (eq dotspacemacs-editing-style 'vim)
       (and (eq dotspacemacs-editing-style 'hybrid)
            hybrid-style-enable-evilified-state)))
 
+(defun spacemacs//support-hjkl-navigation-p ()
+  "Returns non-nil if navigation keys should be evilified."
+  (or (eq dotspacemacs-editing-style 'vim)
+      (and (eq dotspacemacs-editing-style 'hybrid)
+           hybrid-style-enable-hjkl-bindings)))
+
 (spacemacs|defc dotspacemacs-startup-banner 'official
   "Specify the startup banner. Default value is `official', it displays
 the official spacemacs logo. An integer value is the index of text

layers/+completion/compleseus/packages.el

@@ -319,7 +319,7 @@
       "sl" 'selectrum-repeat)
 
     :config
-    (when (spacemacs//support-evilified-buffer-p)
+    (when (spacemacs//support-hjkl-navigation-p)
       (define-key selectrum-minibuffer-map (kbd "C-j") 'selectrum-next-candidate)
       (define-key selectrum-minibuffer-map (kbd "C-r") 'consult-history)
       (define-key selectrum-minibuffer-map (kbd "C-k") 'selectrum-previous-candidate)
@@ -362,7 +362,7 @@
     (vertico-mode)
 
     :config
-    (when (spacemacs//support-evilified-buffer-p)
+    (when (spacemacs//support-hjkl-navigation-p)
       (define-key vertico-map (kbd "M-RET") #'vertico-exit-input)
       (define-key vertico-map (kbd "C-SPC") #'spacemacs/embark-preview)
       (define-key vertico-map (kbd "C-j") #'vertico-next)
@@ -394,7 +394,7 @@
 (defun compleseus/init-vertico-directory ()
   (use-package vertico-directory
     ;; More convenient directory navigation commands
-    :init (bind-key "C-h" 'vertico-directory-delete-char vertico-map (spacemacs//support-evilified-buffer-p))
+    :init (bind-key "C-h" 'vertico-directory-delete-char vertico-map (spacemacs//support-hjkl-navigation-p))
     ;; Tidy shadowed file names
     :hook (rfn-eshadow-update-overlay . vertico-directory-tidy)))