diff options
Diffstat (limited to 'emacs/guix-list.el')
| -rw-r--r-- | emacs/guix-list.el | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/emacs/guix-list.el b/emacs/guix-list.el index 9cc381b4be..f9d106b421 100644 --- a/emacs/guix-list.el +++ b/emacs/guix-list.el @@ -65,6 +65,7 @@ entries, he will be prompted for confirmation." (number 5 ,(lambda (a b) (guix-list-sort-numerically 0 a b)) :right-align t) + (current 10 t) (time 20 t) (path 30 t))) "Columns displayed in list buffers. @@ -93,8 +94,9 @@ this list have a priority.") (synopsis . guix-list-get-one-line) (description . guix-list-get-one-line)) (generation - (time . guix-list-get-time) - (path . guix-list-get-file-path))) + (current . guix-generation-list-get-current) + (time . guix-list-get-time) + (path . guix-list-get-file-path))) "Methods for inserting parameter values in columns. Each element of the list has a form: @@ -735,6 +737,11 @@ Also see `guix-package-info-type'." (define-key map (kbd "i") 'guix-list-describe) (define-key map (kbd "d") 'guix-generation-list-mark-delete)) +(defun guix-generation-list-get-current (val &optional _) + "Return string from VAL showing whether this generation is current. +VAL is a boolean value." + (if val "(current)" "")) + (defun guix-generation-list-show-packages () "List installed packages for the generation at point." (interactive) |