[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
01/01: emacs: Add completions for 'edit' and 'size' commands.
From: |
Alex Kost |
Subject: |
01/01: emacs: Add completions for 'edit' and 'size' commands. |
Date: |
Fri, 19 Jun 2015 10:00:20 +0000 |
alezost pushed a commit to branch master
in repository guix.
commit 14a983c28ad0a06aeb90c9fc8ce8108fcf4f4eac
Author: Alex Kost <address@hidden>
Date: Thu Jun 18 16:21:13 2015 +0300
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'.
---
emacs/guix-pcomplete.el | 5 +++--
1 files changed, 3 insertions(+), 2 deletions(-)
diff --git a/emacs/guix-pcomplete.el b/emacs/guix-pcomplete.el
index fa71dd5..dd42556 100644
--- a/emacs/guix-pcomplete.el
+++ b/emacs/guix-pcomplete.el
@@ -254,7 +254,8 @@ group - the argument.")
"Complete argument for guix COMMAND."
(cond
((member command
- '("archive" "build" "environment" "lint" "refresh"))
+ '("archive" "build" "edit" "environment" "lint" "refresh"
+ "size"))
(while t
(pcomplete-here (guix-pcomplete-all-packages))))
(t (pcomplete-here* (pcomplete-entries)))))
@@ -302,7 +303,7 @@ INPUT is the current partially completed string."
((option? "-m" "--manifest")
(complete* (pcomplete-entries)))))
- ((and (command? "archive" "build")
+ ((and (command? "archive" "build" "size")
(option? "-s" "--system"))
(complete* guix-pcomplete-systems))