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