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-info.el | |
| parent | 7171d824d781db9c06df4c14c41b44e7f4cddb20 (diff) | |
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-info.el')
| -rw-r--r-- | emacs/guix-info.el | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/emacs/guix-info.el b/emacs/guix-info.el index 80443f2e40..d71d8f52a3 100644 --- a/emacs/guix-info.el +++ b/emacs/guix-info.el @@ -471,6 +471,7 @@ After calling each METHOD, a new line is inserted." ;;; Displaying packages (guix-ui-info-define-interface package + :buffer-name "*Guix Package Info*" :format '(guix-package-info-insert-heading ignore (synopsis ignore (simple guix-package-info-synopsis)) @@ -830,6 +831,7 @@ This function is used to hide a \"Download\" button if needed." ;;; Displaying generations (guix-ui-info-define-interface generation + :buffer-name "*Guix Generation Info*" :format '((number format guix-generation-info-insert-number) (prev-number format (format)) (current format guix-generation-info-insert-current) |