nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

emacs: list: Generate numerical sort predicates. 

* emacs/guix-list.el: Generate predicates to sort tabulated list
  columns numerically.
  (guix-list-define-numerical-sorter)
  (guix-list-define-numerical-sorters): New macros
  (guix-list-column-format): Use 'guix-list-sort-numerically-0' for
  generation "Number" column.
This commit is contained in:
Alex Kost 2015-11-18 10:39:42 +03:00
parent ceea647c72
commit e86a43d471
1 changed files with 24 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
emacs/guix-list.el
View File

@ -72,9 +72,7 @@ entries, he will be prompted for confirmation."
(installed 12 t) (installed 12 t)
(synopsis 30 nil)) (synopsis 30 nil))
(generation (generation
(number 5 (number 5 guix-list-sort-numerically-0 :right-align t)
,(lambda (a b) (guix-list-sort-numerically 0 a b))
:right-align t)
(current 10 t) (current 10 t)
(time 20 t) (time 20 t)
(path 30 t))) (path 30 t)))
@ -143,12 +141,34 @@ non-nil, invert the sort."
(defun guix-list-sort-numerically (column a b) (defun guix-list-sort-numerically (column a b)
"Compare COLUMN of tabulated entries A and B numerically. "Compare COLUMN of tabulated entries A and B numerically.
It is a sort predicate for `tabulated-list-format'. This function is used for sort predicates for `tabulated-list-format'.
Return non-nil, if B is bigger than A." Return non-nil, if B is bigger than A."
(cl-flet ((num (entry) (cl-flet ((num (entry)
(string-to-number (aref (cadr entry) column)))) (string-to-number (aref (cadr entry) column))))
(> (num b) (num a)))) (> (num b) (num a))))
(defmacro guix-list-define-numerical-sorter (column)
"Define numerical sort predicate for COLUMN.
See `guix-list-sort-numerically' for details."
(let ((name (intern (format "guix-list-sort-numerically-%d" column)))
(doc (format "\
Predicate to sort tabulated list by column %d numerically.
See `guix-list-sort-numerically' for details."
column)))
`(defun ,name (a b)
,doc
(guix-list-sort-numerically ,column a b))))
(defmacro guix-list-define-numerical-sorters (n)
"Define numerical sort predicates for columns from 0 to N.
See `guix-list-define-numerical-sorter' for details."
`(progn
,@(mapcar (lambda (i)
`(guix-list-define-numerical-sorter ,i))
(number-sequence 0 n))))
(guix-list-define-numerical-sorters 9)
(defun guix-list-make-tabulated-vector (entry-type fun) (defun guix-list-make-tabulated-vector (entry-type fun)
"Call FUN on each column specification for ENTRY-TYPE. "Call FUN on each column specification for ENTRY-TYPE.