diff options
| author | Alex Kost <alezost@gmail.com> | 2015-12-18 11:34:48 +0300 |
|---|---|---|
| committer | Alex Kost <alezost@gmail.com> | 2016-01-02 17:25:35 +0300 |
| commit | 494a62f215c9b6dc66737f6a46f4c538715a56ec (patch) | |
| tree | 7d5b5b9a031549615a231d0a24aecbf1d2bfb440 /emacs/guix-ui-generation.el | |
| parent | 8ed2c92eb12b894e03cc634d92d3c78636f44020 (diff) | |
| download | patches-494a62f215c9b6dc66737f6a46f4c538715a56ec.tar patches-494a62f215c9b6dc66737f6a46f4c538715a56ec.tar.gz | |
emacs: Add 'guix-ui-read-profile'.
* emacs/guix-ui.el (guix-ui-read-profile): New procedure.
* emacs/guix-ui-package.el (guix-search-by-name)
(guix-search-by-regexp, guix-installed-packages)
(guix-obsolete-packages, guix-all-available-packages)
(guix-newest-available-packages): Use it.
* emacs/guix-ui-generation.el (guix-generations)
(guix-last-generations, guix-generations-by-time): Use it.
Diffstat (limited to 'emacs/guix-ui-generation.el')
| -rw-r--r-- | emacs/guix-ui-generation.el | 10 |
1 files changed, 3 insertions, 7 deletions
diff --git a/emacs/guix-ui-generation.el b/emacs/guix-ui-generation.el index 040e5855f8..aa71645b4e 100644 --- a/emacs/guix-ui-generation.el +++ b/emacs/guix-ui-generation.el @@ -401,9 +401,7 @@ GENERATION is a generation number of the current profile." "Display information about all generations. If PROFILE is nil, use `guix-current-profile'. Interactively with prefix, prompt for PROFILE." - (interactive - (list (and current-prefix-arg - (guix-profile-prompt)))) + (interactive (list (guix-ui-read-profile))) (guix-generation-get-display profile 'all)) ;;;###autoload @@ -413,8 +411,7 @@ If PROFILE is nil, use `guix-current-profile'. Interactively with prefix, prompt for PROFILE." (interactive (list (read-number "The number of last generations: ") - (and current-prefix-arg - (guix-profile-prompt)))) + (guix-ui-read-profile))) (guix-generation-get-display profile 'last number)) ;;;###autoload @@ -426,8 +423,7 @@ Interactively with prefix, prompt for PROFILE." (interactive (list (guix-read-date "Find generations (from): ") (guix-read-date "Find generations (to): ") - (and current-prefix-arg - (guix-profile-prompt)))) + (guix-ui-read-profile))) (guix-generation-get-display profile 'time (float-time from) (float-time to))) |