From: zimoun <zimon.toutoune@gmail.com>
To: 47464@debbugs.gnu.org
Cc: zimoun <zimon.toutoune@gmail.com>
Subject: [bug#47464] [PATCH 8/8] scripts: show: Replace 'args-fold*' by 'parse-command-line'.
Date: Mon, 29 Mar 2021 12:18:06 +0200 [thread overview]
Message-ID: <20210329101806.54004-8-zimon.toutoune@gmail.com> (raw)
In-Reply-To: <20210329101806.54004-1-zimon.toutoune@gmail.com>
* guix/scripts/show.scm (define-command): Replace 'args-fold*' by
'parse-command-line'.
---
guix/scripts/show.scm | 10 ++++------
1 file changed, 4 insertions(+), 6 deletions(-)
diff --git a/guix/scripts/show.scm b/guix/scripts/show.scm
index 535d03c1a6..c747eedd21 100644
--- a/guix/scripts/show.scm
+++ b/guix/scripts/show.scm
@@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU
-;;; Copyright © 2019 Simon Tournier <zimon.toutoune@gmail.com>
+;;; Copyright © 2019, 2021 Simon Tournier <zimon.toutoune@gmail.com>
;;;
;;; This file is part of GNU Guix.
;;;
@@ -66,11 +66,9 @@ This is an alias for 'guix package --show='.\n"))
result))
(define opts
- (args-fold* args %options
- (lambda (opt name arg . rest)
- (leave (G_ "~A: unrecognized option~%") name))
- handle-argument
- '()))
+ (parse-command-line args %options (list (list))
+ #:build-options? #f
+ #:argument-handler handle-argument))
(unless (assoc-ref opts 'query)
(leave (G_ "missing arguments: no package to show~%")))
--
2.30.1
next prev parent reply other threads:[~2021-03-29 10:19 UTC|newest]
Thread overview: 10+ messages / expand[flat|nested] mbox.gz Atom feed top
2021-03-29 10:16 [bug#47464] [PATCH 0/8] scripts: Allow option hint for various subcommands zimoun
2021-03-29 10:17 ` [bug#47464] [PATCH 1/8] scripts: describe: Replace 'args-fold*' by 'parse-command-line' zimoun
2021-03-29 10:18 ` [bug#47464] [PATCH 2/8] scripts: discover: " zimoun
2021-03-29 10:18 ` [bug#47464] [PATCH 3/8] scripts: download: " zimoun
2021-03-29 10:18 ` [bug#47464] [PATCH 4/8] scripts: edit: " zimoun
2021-03-29 10:18 ` [bug#47464] [PATCH 5/8] scripts: publish: " zimoun
2021-03-29 10:18 ` [bug#47464] [PATCH 6/8] scripts: repl: " zimoun
2021-03-29 10:18 ` [bug#47464] [PATCH 7/8] scripts: search: " zimoun
2021-03-29 10:18 ` zimoun [this message]
2021-04-01 12:57 ` bug#47464: [PATCH 0/8] scripts: Allow option hint for various subcommands Ludovic Courtès
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=20210329101806.54004-8-zimon.toutoune@gmail.com \
--to=zimon.toutoune@gmail.com \
--cc=47464@debbugs.gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/guix.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.