emacs: Add completions for 'edit' and 'size' commands.
* emacs/guix-pcomplete.el (guix-pcomplete-complete-command-arg): Complete package names for 'guix edit' and 'guix size' commands. (guix-pcomplete-complete-option-arg): Complete '-s/--system' option for 'guix size'.master
parent
7833db1f30
commit
14a983c28a
|
@ -254,7 +254,8 @@ group - the argument.")
|
||||||
"Complete argument for guix COMMAND."
|
"Complete argument for guix COMMAND."
|
||||||
(cond
|
(cond
|
||||||
((member command
|
((member command
|
||||||
'("archive" "build" "environment" "lint" "refresh"))
|
'("archive" "build" "edit" "environment" "lint" "refresh"
|
||||||
|
"size"))
|
||||||
(while t
|
(while t
|
||||||
(pcomplete-here (guix-pcomplete-all-packages))))
|
(pcomplete-here (guix-pcomplete-all-packages))))
|
||||||
(t (pcomplete-here* (pcomplete-entries)))))
|
(t (pcomplete-here* (pcomplete-entries)))))
|
||||||
|
@ -302,7 +303,7 @@ INPUT is the current partially completed string."
|
||||||
((option? "-m" "--manifest")
|
((option? "-m" "--manifest")
|
||||||
(complete* (pcomplete-entries)))))
|
(complete* (pcomplete-entries)))))
|
||||||
|
|
||||||
((and (command? "archive" "build")
|
((and (command? "archive" "build" "size")
|
||||||
(option? "-s" "--system"))
|
(option? "-s" "--system"))
|
||||||
(complete* guix-pcomplete-systems))
|
(complete* guix-pcomplete-systems))
|
||||||
|
|
||||||
|
|
Reference in New Issue