diff options
Diffstat (limited to 'emacs/guix-ui.el')
| -rw-r--r-- | emacs/guix-ui.el | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/emacs/guix-ui.el b/emacs/guix-ui.el index 7b63e63378..7fef7c355c 100644 --- a/emacs/guix-ui.el +++ b/emacs/guix-ui.el @@ -47,6 +47,13 @@ generations in 'list' and 'info' buffers.") (guix-buffer-define-current-args-accessors "guix-ui-current" "profile" "search-type" "search-values") +(defun guix-ui-read-profile () + "Return `guix-current-profile' or prompt for it. +This function is intended for using in `interactive' forms." + (if current-prefix-arg + (guix-profile-prompt) + guix-current-profile)) + (defun guix-ui-get-entries (profile entry-type search-type search-values &optional params) "Receive ENTRY-TYPE entries for PROFILE. |