summaryrefslogtreecommitdiff
path: root/guix
diff options
context:
space:
mode:
authorHerman Rimm <herman@rimm.ee>2024-02-20 21:45:13 +0100
committerLudovic Courtès <ludo@gnu.org>2024-02-23 19:02:35 +0100
commit635af8628c096526e3a79348f484e641aa05f04a (patch)
tree4572819c18de8132b57e5711543b2a6e793b1c98 /guix
parent50e514c1bc674b1c36344407c8c4b418d17759c5 (diff)
import: Insert packages into modules alphabetically.
* guix/scripts/import.scm (guix-import): Add 'insert' option. (import-as-definitions): Add procedure. * doc/guix.texi (Invoking guix import): Describe 'insert' option. Change-Id: Id87ea707123630e12bcb6788599acac6895b26c4 Signed-off-by: Ludovic Courtès <ludo@gnu.org>
Diffstat (limited to 'guix')
-rw-r--r--guix/scripts/import.scm82
1 files changed, 53 insertions, 29 deletions
diff --git a/guix/scripts/import.scm b/guix/scripts/import.scm
index 77fcfe3990..aca4e61f26 100644
--- a/guix/scripts/import.scm
+++ b/guix/scripts/import.scm
@@ -67,10 +67,39 @@ Run IMPORTER with ARGS.\n"))
(display (G_ "
-h, --help display this help and exit"))
(display (G_ "
+ -i, --insert insert packages into file alphabetically"))
+ (display (G_ "
-V, --version display version information and exit"))
(newline)
(show-bug-report-information))
+(define (import-as-definitions importer args proc)
+ "Wrap package expressions from IMPORTER with 'define-public and invoke
+PROC callback."
+ (if (member importer importers)
+ (match (apply (resolve-importer importer) args)
+ ((and expr (or ('package _ ...)
+ ('let _ ...)))
+ (proc (package->definition expr)))
+ ((and expr ('define-public _ ...))
+ (proc expr))
+ ((expressions ...)
+ (for-each (lambda (expr)
+ (match expr
+ ((and expr (or ('package _ ...)
+ ('let _ ...)))
+ (proc (package->definition expr)))
+ ((and expr ('define-public _ ...))
+ (proc expr))))
+ expressions))
+ (x
+ (leave (G_ "'~a' import failed~%") importer)))
+ (let ((hint (string-closest importer importers #:threshold 3)))
+ (report-error (G_ "~a: invalid importer~%") importer)
+ (when hint
+ (display-hint (G_ "Did you mean @code{~a}?~%") hint))
+ (exit 1))))
+
(define-command (guix-import . args)
(category packaging)
(synopsis "import a package definition from an external repository")
@@ -84,33 +113,28 @@ Run IMPORTER with ARGS.\n"))
(exit 0))
((or ("-V") ("--version"))
(show-version-and-exit "guix import"))
+ ((or ("-i" file importer args ...)
+ ("--insert" file importer args ...))
+ (let ((find-and-insert
+ (lambda (expr)
+ (match expr
+ (('define-public term _ ...)
+ (let ((source-properties
+ (find-definition-insertion-location
+ file term)))
+ (if source-properties
+ (insert-expression source-properties expr)
+ (let ((port (open-file file "a")))
+ (pretty-print-with-comments port expr)
+ (newline port)
+ (close-port port)))))))))
+ (import-as-definitions importer args find-and-insert)))
((importer args ...)
- (if (member importer importers)
- (let ((print (lambda (expr)
- (leave-on-EPIPE
- (pretty-print-with-comments (current-output-port) expr)))))
- (match (apply (resolve-importer importer) args)
- ((and expr (or ('package _ ...)
- ('let _ ...)))
- (print (package->definition expr)))
- ((and expr ('define-public _ ...))
- (print expr))
- ((? list? expressions)
- (for-each (lambda (expr)
- (match expr
- ((and expr (or ('package _ ...)
- ('let _ ...)))
- (print (package->definition expr)))
- ((and expr ('define-public _ ...))
- (print expr)))
- ;; Two newlines: one after the closing paren, and
- ;; one to leave a blank line.
- (newline) (newline))
- expressions))
- (x
- (leave (G_ "'~a' import failed~%") importer))))
- (let ((hint (string-closest importer importers #:threshold 3)))
- (report-error (G_ "~a: invalid importer~%") importer)
- (when hint
- (display-hint (G_ "Did you mean @code{~a}?~%") hint))
- (exit 1))))))
+ (let ((print (lambda (expr)
+ (leave-on-EPIPE
+ (pretty-print-with-comments
+ (current-output-port) expr)
+ ;; Two newlines: one after the closing paren, and
+ ;; one to leave a blank line.
+ (newline) (newline)))))
+ (import-as-definitions importer args print)))))