Sorting issue #2

[jkitchin]

Say I have some candidates as a list of cons cells, and I want them sorted on the cdr of the cell. Is this the right way to do it?

#+BEGIN_SRC emacs-lisp
(defvar ivy-sorter-data '(("b 1" . 1) ("a 2" . 2) ("d 0" . 0) ("c 5" . 5)))

(defun isn (a b)
  (< (cdr (assoc a ivy-sorter-data)) (cdr (assoc b ivy-sorter-data))))

(add-to-list 'ivy-sort-functions-alist '(ivy-sorter . isn))

(defun ivy-sorter (&rest args) (mapcar 'car ivy-sorter-data))

(ivy-read "string: " 'ivy-sorter
      :sort t)
#+END_SRC

[abo-abo]

Yes, this is a correct approach. Looking at it now, it is quite a bit clunky. I'm adding a commit to make this work:

(defvar ivy-sorter-data '(("b 1" . 1) ("a 2" . 2) ("d 0" . 0) ("c 5" . 5)))

(defun isn (a b)
  (< (cdr a) (cdr b)))

(add-to-list 'ivy-sort-functions-alist '(ivy-sorter . isn))

(ivy-read "string: " ivy-sorter-data
          :sort t
          :caller 'ivy-sorter)

[jkitchin]

That is nice, thanks! That makes things like this possible too.

(defun isn (a b) 
  (string< (plist-get (cdr a) :file) (plist-get (cdr b) :file)))

(add-to-list 'ivy-sort-functions-alist '(ivy-sorter . isn))

(ivy-read "string: " '(("a" :key 1 :file "h.el")
               ("b" :key 2 :file "g.el"))
      :sort t
      :caller 'ivy-sorter)

and

(defun isn (a b) 
  (> (elt a 2) (elt b 2)))

(add-to-list 'ivy-sort-functions-alist '(ivy-sorter . isn))

(ivy-read "string: " '(("a" 1 2)
               ("b" 2 1))
      :sort t
      :caller 'ivy-sorter)

[abo-abo]

This one looks resolved, closing.