[elpa] master f246178 113/167: ivy.el (ivy-prefix-sort): New defcustom, off by default for now

[Oleh Krehel]

branch: master
commit f246178d59cb00aff95ffbd082c32bc6919aac4b
Author: Oleh Krehel <address@hidden>
Commit: Oleh Krehel <address@hidden>

    ivy.el (ivy-prefix-sort): New defcustom, off by default for now
    
    * ivy.el (ivy--filter): When `ivy-prefix-sort' is non-nil, additionally
      sort the matching candidates with `ivy--prefix-sort'.
    (ivy--prefix-sort): New defun.
    
    Fixes #265
---
 ivy.el |   28 +++++++++++++++++++++++++---
 1 files changed, 25 insertions(+), 3 deletions(-)

diff --git a/ivy.el b/ivy.el
index 929b71d..fda42a2 100644
--- a/ivy.el
+++ b/ivy.el
@@ -1663,6 +1663,10 @@ You can toggle this to make `case-fold-search' nil 
regardless of input."
   ;; reset cache so that the candidate list updates
   (setq ivy--old-re nil))
 
+(defcustom ivy-prefix-sort nil
+  "When non-nil, put prefix matches ahead of the other matches."
+  :type 'boolean)
+
 (defun ivy--filter (name candidates)
   "Return all items that match NAME in CANDIDATES.
 CANDIDATES are assumed to be static."
@@ -1710,11 +1714,29 @@ CANDIDATES are assumed to be static."
                          res)))))
         (ivy--recompute-index name re-str cands)
         (setq ivy--old-re (if cands re-str ""))
-        (when (and (require 'flx nil 'noerror)
-                   (eq ivy--regex-function 'ivy--regex-fuzzy))
-          (setq cands (ivy--flx-sort name cands)))
+        (if (and (require 'flx nil 'noerror)
+                 (eq ivy--regex-function 'ivy--regex-fuzzy))
+            (setq cands (ivy--flx-sort name cands))
+          (when ivy-prefix-sort
+            (setq cands (ivy--prefix-sort name cands))))
         (setq ivy--old-cands cands)))))
 
+(defun ivy--prefix-sort (name candidates)
+  "Re-sort CANDIDATES.
+Prefix matches to NAME are put ahead of the list."
+  (if (or (string-match "^\\^" name) (string= name ""))
+      candidates
+    (let ((re-prefix (concat "^" (funcall ivy--regex-function name)))
+          res-prefix
+          res-noprefix)
+      (dolist (s candidates)
+        (if (string-match re-prefix s)
+            (push s res-prefix)
+          (push s res-noprefix)))
+      (nconc
+       (nreverse res-prefix)
+       (nreverse res-noprefix)))))
+
 (defun ivy--recompute-index (name re-str cands)
   (let* ((caller (ivy-state-caller ivy-last))
          (func (or (and caller (cdr (assoc caller ivy-index-functions-alist)))