diff options
| author | Alex Kost <alezost@gmail.com> | 2015-11-21 11:35:43 +0300 |
|---|---|---|
| committer | Alex Kost <alezost@gmail.com> | 2016-01-02 17:25:35 +0300 |
| commit | 574f6727b061e2b58b23cb9b75a75d03822f5d08 (patch) | |
| tree | 6ebfe66edc69f4bf557dd3149776a6f1d3b144dd /emacs/guix-list.el | |
| parent | 9193fb7c1dedcf2233287baa819a9c9ded8242a8 (diff) | |
emacs: Split 'guix-param-titles' variable.
Generate 'guix-ENTRY-TYPE-BUFFER-TYPE-titles' variables for each
ENTRY-TYPE and BUFFER-TYPE instead.
* emacs/guix-base.el (guix-param-titles): Remove.
(guix-buffer-data): New variable.
(guix-buffer-value, guix-buffer-param-title): New procedures.
(guix-buffer-define-interface): Add ':titles' keyword.
* emacs/guix-info.el (guix-info-param-title): Adjust accordingly.
* emacs/guix-list.el (guix-list-param-title): Likewise.
(guix-list-column-titles): Remove.
* doc/emacs.texi (Emacs Appearance): Adjust accordingly.
Diffstat (limited to 'emacs/guix-list.el')
| -rw-r--r-- | emacs/guix-list.el | 12 |
1 files changed, 2 insertions, 10 deletions
diff --git a/emacs/guix-list.el b/emacs/guix-list.el index 8943e8f589..9aed7dcb82 100644 --- a/emacs/guix-list.el +++ b/emacs/guix-list.el @@ -52,13 +52,6 @@ "Face used for time stamps." :group 'guix-list-faces) -(defvar guix-list-column-titles - '((generation - (number . "N."))) - "Column titles for list buffers. -Has the same structure as `guix-param-titles', but titles from -this list have a priority.") - (defun guix-list-describe (&optional mark-names) "Describe entries marked with a general mark. 'Describe' means display entries in 'info' buffer. @@ -87,9 +80,7 @@ This alist is filled by `guix-list-define-interface' macro.") (defun guix-list-param-title (entry-type param) "Return column title of an ENTRY-TYPE parameter PARAM." - (or (guix-assq-value guix-list-column-titles - entry-type param) - (guix-get-param-title entry-type param))) + (guix-buffer-param-title 'list entry-type param)) (defun guix-list-format (entry-type) "Return column format for ENTRY-TYPE." @@ -816,6 +807,7 @@ See `guix-package-info-type'." (current guix-generation-list-get-current 10 t) (time guix-list-get-time 20 t) (path guix-list-get-file-path 30 t)) + :titles '((number . "N.")) :sort-key '(number . t) :marks '((delete . ?D))) |