01/04: emacs: Add shell completions for 'guix refresh --type'.

[Alex Kost]

alezost pushed a commit to branch master
in repository guix.

commit b0e44d4f7d13b1c67899aab14385155cc648cfd8
Author: Alex Kost <address@hidden>
Date:   Wed Oct 28 20:48:45 2015 +0300

    emacs: Add shell completions for 'guix refresh --type'.
    
    * emacs/guix-pcomplete.el (guix-pcomplete-refresh-updaters): New function.
      (guix-pcomplete-complete-option-arg): Complete '-t/--type' option for
      'guix refresh' command.
---
 emacs/guix-pcomplete.el |   17 ++++++++++++++---
 1 files changed, 14 insertions(+), 3 deletions(-)

diff --git a/emacs/guix-pcomplete.el b/emacs/guix-pcomplete.el
index 98f8efd..85b267a 100644
--- a/emacs/guix-pcomplete.el
+++ b/emacs/guix-pcomplete.el
@@ -128,6 +128,13 @@ subcommands, actions, etc. for this guix COMMAND."
    guix-help-parse-regexp-group
    "graph" "--list-types"))
 
+(guix-memoized-defun guix-pcomplete-refresh-updaters ()
+  "Return a list of all available refresh updater types."
+  (guix-pcomplete-run-guix-and-search
+   guix-help-parse-list-regexp
+   guix-help-parse-regexp-group
+   "refresh" "--list-updaters"))
+
 
 ;;; Completing
 
@@ -287,9 +294,13 @@ INPUT is the current partially completed string."
            (option? "-u" "--user"))
       (complete* (pcmpl-unix-user-names)))
 
-     ((and (command? "refresh")
-           (option? "-s" "--select"))
-      (complete* guix-help-refresh-subsets))
+     ((command? "refresh")
+      (cond
+       ((option? "-s" "--select")
+        (complete* guix-help-refresh-subsets))
+       ((option? "-t" "--type")
+        (guix-pcomplete-complete-comma-args
+         (guix-pcomplete-refresh-updaters)))))
 
      ((and (command? "size")
            (option? "-m" "--map-file"))