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

75
gnu/packages/cdrom.scm
View file

@ -170,46 +170,45 @@ libcdio.")
(version "1.5.6.pl02")
(outputs '("out" "gui"))
(source (origin
(method url-fetch)
(uri (string-append "mirror://gnu/xorriso/xorriso-"
version ".tar.gz"))
(sha256
(base32
"1qfs9ybd9k67r78rp1csijmlrq7mq39f7kpyq6qcap46z5fryvvq"))))
(method url-fetch)
(uri (string-append "mirror://gnu/xorriso/xorriso-"
version ".tar.gz"))
(sha256
(base32
"1qfs9ybd9k67r78rp1csijmlrq7mq39f7kpyq6qcap46z5fryvvq"))))
(build-system gnu-build-system)
(arguments
`(#: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)
(install-file
(search-input-file
(or native-inputs inputs)
(string-append "/bin/" file)) "."))
'("config.guess" "config.sub")))))
'())
(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))))
(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")))
(for-each
(lambda (file)
(mkdir-p (string-append gui (dirname file)))
(rename-file (string-append out file)
(string-append gui file)))
(list "/bin/xorriso-tcltk"
"/share/info/xorriso-tcltk.info"
"/share/man/man1/xorriso-tcltk.1"))
(wrap-program (string-append gui "/bin/xorriso-tcltk")
`("PATH" ":" prefix (,(string-append out "/bin"))))))))))
(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)
(install-file
(search-input-file
(or native-inputs inputs)
(string-append "/bin/" file)) "."))
'("config.guess" "config.sub")))))
'())
(add-after 'install 'install-frontends
(lambda* (#:key outputs #:allow-other-keys)
(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 #$output)
(gui #$output:gui))
(for-each
(lambda (file)
(mkdir-p (string-append gui (dirname file)))
(rename-file (string-append out file)
(string-append gui file)))
(list "/bin/xorriso-tcltk"
"/share/info/xorriso-tcltk.info"
"/share/man/man1/xorriso-tcltk.1"))
(wrap-program (string-append gui "/bin/xorriso-tcltk")
`("PATH" ":" prefix (,(string-append out "/bin"))))))))))
(native-inputs
(append (if (and (%current-target-system)
(target-riscv64?))