From mboxrd@z Thu Jan 1 00:00:00 1970 From: Alex Kost Subject: [PATCH 2/3] emacs: Adjust 'guix container' popup. Date: Thu, 5 Nov 2015 11:39:08 +0300 Message-ID: <1446712749-1553-3-git-send-email-alezost@gmail.com> References: <1446712749-1553-1-git-send-email-alezost@gmail.com> Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:45264) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1ZuG55-00012b-5U for guix-devel@gnu.org; Thu, 05 Nov 2015 03:39:40 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1ZuG53-0007ue-7X for guix-devel@gnu.org; Thu, 05 Nov 2015 03:39:39 -0500 Received: from mail-lb0-x233.google.com ([2a00:1450:4010:c04::233]:34446) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1ZuG52-0007u1-VQ for guix-devel@gnu.org; Thu, 05 Nov 2015 03:39:37 -0500 Received: by lbbwb3 with SMTP id wb3so30176732lbb.1 for ; Thu, 05 Nov 2015 00:39:36 -0800 (PST) Received: from localhost.localdomain ([217.107.192.146]) by smtp.gmail.com with ESMTPSA id p198sm353956lfe.39.2015.11.05.00.39.35 for (version=TLSv1.2 cipher=ECDHE-RSA-AES128-SHA bits=128/128); Thu, 05 Nov 2015 00:39:35 -0800 (PST) In-Reply-To: <1446712749-1553-1-git-send-email-alezost@gmail.com> List-Id: "Development of GNU Guix and the GNU System distribution." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-devel-bounces+gcggd-guix-devel=m.gmane.org@gnu.org Sender: guix-devel-bounces+gcggd-guix-devel=m.gmane.org@gnu.org To: guix-devel@gnu.org * emacs/guix-command.el (guix-command-improve-action-argument): Use "C" key for 'container' action to distinguish it from 'challenge'. (guix-command-rest-argument): Add positional arguments. --- emacs/guix-command.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/emacs/guix-command.el b/emacs/guix-command.el index ea29461..5e5cff6 100644 --- a/emacs/guix-command.el +++ b/emacs/guix-command.el @@ -131,7 +131,8 @@ to be modified." (guix-command-define-argument-improver guix-command-improve-action-argument - '(("graph" :char ?G) + '(("container" :char ?C) + ("graph" :char ?G) ("environment" :char ?E) ("publish" :char ?u) ("pull" :char ?P) @@ -369,6 +370,8 @@ to be modified." '("archive" "build" "challenge" "edit" "environment" "graph" "lint" "refresh")) (argument :doc "Packages" :fun 'guix-read-package-names-string)) + ((equal commands '("container" "exec")) + (argument :doc "PID Command [Args...]")) ((string= command "download") (argument :doc "URL")) ((string= command "gc") -- 2.5.0