amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

scripts: import: Pass "--insert" to importers.

Browse source 
So that importers can adjust the file before inserting.

* guix/scripts/import.scm (%standard-import-options): Add ‘--file-to-insert’.
(guix-import): Pass it to importers when ‘--insert’ is set.

Change-Id: I8e7a18ee8e0f96d7fc5688a207a7a5390ad2fa30
This commit is contained in:
Hilton Chain 2025-02-26 10:10:10 +08:00
parent 6094090db2
commit 2ca0b957f2
No known key found for this signature in database
GPG key ID: ACC66D09CA528292
1 changed files with 15 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

17
guix/scripts/import.scm
View file

@ -25,12 +25,15 @@
(define-module (guix scripts import)
#:use-module (guix import utils)
#:use-module (guix diagnostics)
#:use-module (guix i18n)
#:use-module (guix ui)
#:use-module (guix scripts)
#:use-module (guix read-print)
#:use-module (guix utils)
#:use-module (srfi srfi-1)
#:use-module (srfi srfi-26)
#:use-module (srfi srfi-37)
#:use-module (ice-9 format)
#:use-module (ice-9 match)
#:export (%standard-import-options
@ -41,7 +44,14 @@
;;; Command line options.
;;;
(define %standard-import-options '())
(define %standard-import-options
(list
;; Hidden option for importer-specific file preprocessing.
(option '("file-to-insert") #f #t
(lambda (opt name arg result)
(if (file-exists? arg)
(alist-cons 'file-to-insert arg result)
(leave (G_ "file '~a' does not exist~%") arg))))))
;;;
@ -152,7 +162,10 @@ PROC callback."
(newline port)
(newline port)
(close-port port)))))))))
(import-as-definitions importer args find-and-insert)))
(import-as-definitions importer
(cons (string-append "--file-to-insert=" file)
args)
find-and-insert)))
((importer args ...)
(let ((print (lambda (expr)
(leave-on-EPIPE