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") (version "1.5.6.pl02")
(outputs '("out" "gui")) (outputs '("out" "gui"))
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append "mirror://gnu/xorriso/xorriso-" (uri (string-append "mirror://gnu/xorriso/xorriso-"
version ".tar.gz")) version ".tar.gz"))
(sha256 (sha256
(base32 (base32
"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)
(install-file (install-file
(search-input-file (search-input-file
(or native-inputs inputs) (or native-inputs inputs)
(string-append "/bin/" file)) ".")) (string-append "/bin/" file)) "."))
'("config.guess" "config.sub"))))) '("config.guess" "config.sub")))))
'()) '())
(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 #$output)
(let ((out (assoc-ref outputs "out")) (gui #$output:gui))
(gui (assoc-ref outputs "gui"))) (for-each
(for-each (lambda (file)
(lambda (file) (mkdir-p (string-append gui (dirname file)))
(mkdir-p (string-append gui (dirname file))) (rename-file (string-append out file)
(rename-file (string-append out file) (string-append gui file)))
(string-append gui file))) (list "/bin/xorriso-tcltk"
(list "/bin/xorriso-tcltk" "/share/info/xorriso-tcltk.info"
"/share/info/xorriso-tcltk.info" "/share/man/man1/xorriso-tcltk.1"))
"/share/man/man1/xorriso-tcltk.1")) (wrap-program (string-append gui "/bin/xorriso-tcltk")
(wrap-program (string-append gui "/bin/xorriso-tcltk") `("PATH" ":" prefix (,(string-append out "/bin"))))))))))
`("PATH" ":" prefix (,(string-append out "/bin"))))))))))
(native-inputs (native-inputs
(append (if (and (%current-target-system) (append (if (and (%current-target-system)
(target-riscv64?)) (target-riscv64?))