diff options
| author | Alex Kost <alezost@gmail.com> | 2014-09-17 17:52:08 +0400 |
|---|---|---|
| committer | Alex Kost <alezost@gmail.com> | 2014-09-24 16:09:20 +0400 |
| commit | dfeb023927799b45616b435d27001b0fbd533c2b (patch) | |
| tree | b61ca30271705b6555b054126431c6fbb4725a40 /emacs/guix-info.el | |
| parent | 8689901f95499e98e0209e75b4f268bf2af325c1 (diff) | |
| download | patches-dfeb023927799b45616b435d27001b0fbd533c2b.tar patches-dfeb023927799b45616b435d27001b0fbd533c2b.tar.gz | |
emacs: Use general functions instead of generated ones.
* emacs/guix-base.el: Add and use general functions instead of
specialized functions generated by 'guix-define-buffer-type' macro.
(guix-buffer-type, guix-entry-type): New variables.
(guix-set-vars): Add new variables.
(guix-get-show-entries, guix-show-entries, guix-set-buffer)
(guix-history-call, guix-make-history-item)
(guix-get-params-for-receiving, guix-revert-buffer)
(guix-redisplay-buffer): New functions.
(guix-define-buffer-type): Do not generate specialized functions.
* emacs/guix-info.el (guix-package-info-insert-full-names): Use
'guix-get-show-entries'.
(guix-generation-info-insert-number): Likewise.
* emacs/guix-list.el (guix-list-describe): New function.
(guix-list-define-entry-type): Do not generate specialized one.
(guix-generation-list-show-packages): Use 'guix-get-show-entries'.
* emacs/guix.el (guix-show-generations-function): Remove.
(guix-get-show-packages): Use new functions.
(guix-get-show-generations): Likewise.
Diffstat (limited to 'emacs/guix-info.el')
| -rw-r--r-- | emacs/guix-info.el | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/emacs/guix-info.el b/emacs/guix-info.el index 687a15eefa..e7fc7f0f92 100644 --- a/emacs/guix-info.el +++ b/emacs/guix-info.el @@ -427,7 +427,8 @@ Propertize package button with FACE." (guix-insert-button name face (lambda (btn) - (guix-package-info-get-show 'name (button-label btn))) + (guix-get-show-entries 'info 'package 'name + (button-label btn))) "Describe this package")) @@ -532,8 +533,6 @@ ENTRY is an alist with package info." "Face used for a number of a generation." :group 'guix-generation-info) -(declare-function guix-package-list-get-show "guix-list" t t) - (defun guix-generation-info-insert-number (number &optional _) "Insert generation NUMBER and action buttons." (guix-info-insert-val-default number 'guix-generation-info-number) @@ -541,8 +540,8 @@ ENTRY is an alist with package info." (guix-info-insert-action-button "Packages" (lambda (btn) - (guix-package-list-get-show 'generation - (button-get btn 'number))) + (guix-get-show-entries 'list 'package 'generation + (button-get btn 'number))) "Show installed packages for this generation" 'number number) (guix-info-insert-indent) |