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

gnu: xorriso: Use G-expressions.

Browse source 
* gnu/packages/cdrom.scm (xorriso)[arguments]: Use G-expressions.

Change-Id: Iea2c5805624b4f5858eb8dab9ee22e8fdbe6178c
This commit is contained in:
Zheng Junjie 2025-06-22 09:59:17 +08:00
parent 8d39268b5f
commit 09a82860e4
No known key found for this signature in database
GPG key ID: 3B5AA993E1A2DFF0
1 changed files with 37 additions and 38 deletions
Download patch file Download diff file Expand all files Collapse all files

17
gnu/packages/cdrom.scm
View file

@ -178,10 +178,10 @@ libcdio.")
"1qfs9ybd9k67r78rp1csijmlrq7mq39f7kpyq6qcap46z5fryvvq")))) "1qfs9ybd9k67r78rp1csijmlrq7mq39f7kpyq6qcap46z5fryvvq"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:phases (list #:phases
(modify-phases %standard-phases #~(modify-phases %standard-phases
,@(if (this-package-native-input "config") #$@(if (this-package-native-input "config")
`((add-after 'unpack 'update-config-scripts #~((add-after 'unpack 'update-config-scripts
(lambda* (#:key inputs native-inputs #:allow-other-keys) (lambda* (#:key inputs native-inputs #:allow-other-keys)
;; Replace outdated config.guess and config.sub. ;; Replace outdated config.guess and config.sub.
(for-each (lambda (file) (for-each (lambda (file)
@ -193,13 +193,12 @@ libcdio.")
'()) '())
(add-after 'install 'install-frontends (add-after 'install 'install-frontends
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out")) (install-file "frontend/grub-mkrescue-sed.sh"
(out-bin (string-append out "/bin"))) (string-append #$output "/bin"))))
(install-file "frontend/grub-mkrescue-sed.sh" out-bin))))
(add-after 'install 'move-gui-to-separate-output (add-after 'install 'move-gui-to-separate-output
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out")) (let ((out #$output)
(gui (assoc-ref outputs "gui"))) (gui #$output:gui))
(for-each (for-each
(lambda (file) (lambda (file)
(mkdir-p (string-append gui (dirname file))) (mkdir-p (string-append gui (dirname file)))