From c2379b3c1fe169b56d7d960fa31b1d191a779b1b Mon Sep 17 00:00:00 2001 From: Alex Kost Date: Fri, 10 Oct 2014 23:50:15 +0400 Subject: emacs: Add 'current' generation parameter. * emacs/guix-main.scm (generation-param-alist): Add 'current' parameter. * emacs/guix-base.el (guix-param-titles): Add title for 'current' parameter. * emacs/guix-info.el: Display 'current' parameter. (guix-generation-info-current, guix-generation-info-not-current): New faces. (guix-generation-info-insert-current): New procedure. * emacs/guix-list.el: Display 'current' column. (guix-generation-list-get-current): New procedure. --- emacs/guix-list.el | 11 +++++++++-- 1 file changed, 9 insertions(+), 2 deletions(-) (limited to 'emacs/guix-list.el') 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) -- cgit v1.2.3