[complete] Prioritize flex style if flex style is requested

Author: alexander-yakushev

CHANGELOG.md

@@ -8,6 +8,8 @@
 
 ### Bugs fixed
 
+- [#3696](https://github.com/clojure-emacs/cider/pull/3696): Don't eagerly complete a candidate if there are other candidates matching `flex` style.
+
 ## 1.14.0 (2024-05-30)
 
 ### New features

cider-completion.el

@@ -297,7 +297,7 @@ Only affects the `cider' completion category.`"
     (unless found-styles
       (setq found-styles '(styles basic)))
     (unless (member 'flex found-styles)
-      (setq found-styles (append found-styles '(flex))))
+      (setq found-styles (apply #'list 'styles 'flex (cdr found-styles))))
     (add-to-list 'completion-category-overrides (apply #'list 'cider found-styles (when found-cycle
                                                                                     (list found-cycle))))))
 

test/cider-completion-tests.el

@@ -37,7 +37,7 @@
       (unwind-protect
           (progn
             (it "adds `flex' and `basic' as a fallback"
-              (let ((expected-category-overrides '((cider (styles basic flex)))))
+              (let ((expected-category-overrides '((cider (styles flex basic)))))
                 (cider-enable-flex-completion)
                 (expect (member 'flex (assq 'styles (assq 'cider completion-category-overrides)))
                         :to-be-truthy)