diff options
| author | Alex Kost <alezost@gmail.com> | 2015-11-23 16:41:58 +0300 |
|---|---|---|
| committer | Alex Kost <alezost@gmail.com> | 2016-01-02 17:25:35 +0300 |
| commit | 8bff0c796e0eea5dd26e5327238cf6def5b55027 (patch) | |
| tree | bce417d96995f97449592017c49d38b1980b22dd /emacs/guix-list.el | |
| parent | 7171d824d781db9c06df4c14c41b44e7f4cddb20 (diff) | |
| download | guix-8bff0c796e0eea5dd26e5327238cf6def5b55027.tar guix-8bff0c796e0eea5dd26e5327238cf6def5b55027.tar.gz | |
emacs: Generalize buffer naming.
* emacs/guix-base.el (guix-buffer-name): New procedure.
(guix-buffer-define-interface): Make ':buffer-name' a required keyword.
(guix-update-after-operation, guix-buffer-name-function)
(guix-buffer-name-simple, guix-buffer-name-default, guix-buffer-name)
(guix-buffer-p, guix-buffers, guix-update-buffer)
(guix-update-buffers-maybe-after-operation): Adjust, move and rename to...
* emacs/guix-ui.el (guix-ui-update-after-operation)
(guix-ui-buffer-name-function, guix-ui-buffer-name-simple)
(guix-ui-buffer-name-default, guix-ui-buffer-name)
(guix-ui-buffer?, guix-ui-buffers, guix-ui-update-buffer)
(guix-ui-update-buffers-after-operation): ... this.
(guix-ui-define-interface): Generate
'guix-ENTRY-TYPE-BUFFER-TYPE-buffer-name' procedure and pass it as
':buffer-name' argument.
(guix-ui): New custom group.
* emacs/guix-info.el: Specify ':buffer-name' for the defined interfaces.
* emacs/guix-list.el: Likewise.
* doc/emacs.texi (Emacs Appearance): Adjust accordingly.
Diffstat (limited to 'emacs/guix-list.el')
| -rw-r--r-- | emacs/guix-list.el | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/emacs/guix-list.el b/emacs/guix-list.el index 8a9c10f2da..42bc0c87f5 100644 --- a/emacs/guix-list.el +++ b/emacs/guix-list.el @@ -517,6 +517,7 @@ See also `guix-list-describe'." ;;; Displaying packages (guix-ui-list-define-interface package + :buffer-name "*Guix Package List*" :format '((name guix-package-list-get-name 20 t) (version nil 10 nil) (outputs nil 13 t) @@ -803,6 +804,7 @@ See `guix-package-info-type'." ;;; Displaying generations (guix-ui-list-define-interface generation + :buffer-name "*Guix Generation List*" :format '((number nil 5 guix-list-sort-numerically-0 :right-align t) (current guix-generation-list-get-current 10 t) (time guix-list-get-time 20 t) |