diff options
| author | Alex Kost <alezost@gmail.com> | 2016-01-07 23:01:26 +0300 |
|---|---|---|
| committer | Alex Kost <alezost@gmail.com> | 2016-01-16 13:02:21 +0300 |
| commit | 67cedc4ba69ec90b2d9d94646b861ba6821f342d (patch) | |
| tree | a0d542e00e883c106c02e2fe7dfa698e7e5f67a2 /emacs/guix-messages.el | |
| parent | 56728668485dfcba457e64748ab709eacf39b6ce (diff) | |
| download | guix-67cedc4ba69ec90b2d9d94646b861ba6821f342d.tar.gz | |
emacs: Add interface for system generations.
* emacs/guix-main.scm (system-generation-boot-parameters) (system-generation-param-alist, system-generation-sexps): New procedures. (entries): Add 'system-generation' entry type. * emacs/guix-messages.el (guix-result-message): Use the same messages for 'generation' and 'system-generation' entry types. * emacs/guix-ui-system-generation.el: New file. * emacs.am (ELFILES): Add it. * doc/emacs.texi (Emacs Commands): Document new commands. * NEWS: Mention new interface.
Diffstat (limited to 'emacs/guix-messages.el')
| -rw-r--r-- | emacs/guix-messages.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/emacs/guix-messages.el b/emacs/guix-messages.el index 9f6d833252..c4f15dcac2 100644 --- a/emacs/guix-messages.el +++ b/emacs/guix-messages.el @@ -186,7 +186,10 @@ Try \"M-x guix-search-by-name\"." search-type search-vals) "Display an appropriate message after displaying ENTRIES." (let* ((type-spec (guix-assq-value guix-messages - entry-type search-type)) + (if (eq entry-type 'system-generation) + 'generation + entry-type) + search-type)) (fun-or-count-spec (car type-spec))) (if (functionp fun-or-count-spec) (funcall fun-or-count-spec profile entries search-vals) |