[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[bug#49780] [PATCH 07/14] import: elpa: Use PARSE-COMMAND-LINE for optio
From: |
Sarah Morgensen |
Subject: |
[bug#49780] [PATCH 07/14] import: elpa: Use PARSE-COMMAND-LINE for options. |
Date: |
Thu, 29 Jul 2021 20:55:03 -0700 |
guix/scripts/import/elpa.scm (guix-import-elpa)[parse-options]: Use
PARSE-COMMAND-LINE instead of ARGS-FOLD*.
---
guix/scripts/import/elpa.scm | 9 +++------
1 file changed, 3 insertions(+), 6 deletions(-)
diff --git a/guix/scripts/import/elpa.scm b/guix/scripts/import/elpa.scm
index d6b38e5c4b..052b0cc0e7 100644
--- a/guix/scripts/import/elpa.scm
+++ b/guix/scripts/import/elpa.scm
@@ -2,6 +2,7 @@
;;; Copyright © 2015 Federico Beffa <beffa@fbengineering.ch>
;;; Copyright © 2018 Oleg Pykhalov <go.wigust@gmail.com>
;;; Copyright © 2020 Martin Becze <mjbecze@riseup.net>
+;;; Copyright © 2021 Sarah Morgensen <iskarian@mgsn.dev>
;;;
;;; This file is part of GNU Guix.
;;;
@@ -80,12 +81,8 @@ Import the latest package named PACKAGE-NAME from an ELPA
repository.\n"))
(define (guix-import-elpa . args)
(define (parse-options)
;; Return the alist of option values.
- (args-fold* args %options
- (lambda (opt name arg result)
- (leave (G_ "~A: unrecognized option~%") name))
- (lambda (arg result)
- (alist-cons 'argument arg result))
- %default-options))
+ (parse-command-line args %options (list %default-options)
+ #:build-options? #f))
(let* ((opts (parse-options))
(args (filter-map (match-lambda
--
2.31.1
- [bug#49780] [PATCH 00/14] import: Use PARSE-COMMAND-LINE for options., Sarah Morgensen, 2021/07/29
- [bug#49780] [PATCH 02/14] import: egg: Use PARSE-COMMAND-LINE for options., Sarah Morgensen, 2021/07/29
- [bug#49780] [PATCH 03/14] import: gem: Use PARSE-COMMAND-LINE for options., Sarah Morgensen, 2021/07/29
- [bug#49780] [PATCH 05/14] import: cpan: Use PARSE-COMMAND-LINE for options., Sarah Morgensen, 2021/07/29
- [bug#49780] [PATCH 01/14] import: go: Use PARSE-COMMAND-LINE for options., Sarah Morgensen, 2021/07/29
- [bug#49780] [PATCH 04/14] import: gnu: Use PARSE-COMMAND-LINE for options., Sarah Morgensen, 2021/07/29
- [bug#49780] [PATCH 08/14] import: json: Use PARSE-COMMAND-LINE for options., Sarah Morgensen, 2021/07/29
- [bug#49780] [PATCH 12/14] import: texlive: Use PARSE-COMMAND-LINE for options., Sarah Morgensen, 2021/07/29
- [bug#49780] [PATCH 11/14] import: crate: Use PARSE-COMMAND-LINE for options., Sarah Morgensen, 2021/07/29
- [bug#49780] [PATCH 07/14] import: elpa: Use PARSE-COMMAND-LINE for options.,
Sarah Morgensen <=
- [bug#49780] [PATCH 10/14] import: pypi: Use PARSE-COMMAND-LINE for options., Sarah Morgensen, 2021/07/29
- [bug#49780] [PATCH 14/14] import: stackage: Use PARSE-COMMAND-LINE for options., Sarah Morgensen, 2021/07/29
- [bug#49780] [PATCH 06/14] import: cran: Use PARSE-COMMAND-LINE for options., Sarah Morgensen, 2021/07/29
- [bug#49780] [PATCH 09/14] import: opam: Use PARSE-COMMAND-LINE for options., Sarah Morgensen, 2021/07/29
- [bug#49780] [PATCH 13/14] import: hackage: Use PARSE-COMMAND-LINE for options., Sarah Morgensen, 2021/07/29