me
/
guix
Archived
1
0
Fork 0

gnu: dvdisaster: Use G-expressions.

* gnu/packages/cdrom.scm (dvdisaster)[arguments]:
Rewrite as G-expressions.
master
Tobias Geerinckx-Rice 2022-08-07 02:00:01 +02:00
parent ced32e953d
commit dda3a760ab
No known key found for this signature in database
GPG Key ID: 0DB0FF884F556D79
1 changed files with 39 additions and 36 deletions

View File

@ -422,42 +422,45 @@ or @command{xorrisofs} to create ISO 9660 images.")
(native-inputs (native-inputs
(list gettext-minimal pkg-config which)) (list gettext-minimal pkg-config which))
(arguments (arguments
`(;; Parallel builds appear to be unsafe, see (list #:parallel-build? #f ; http://hydra.gnu.org/build/49331/nixlog/1/raw
;; <http://hydra.gnu.org/build/49331/nixlog/1/raw>. #:phases
#:parallel-build? #f #~(modify-phases %standard-phases
#:phases (replace 'check
(modify-phases %standard-phases (lambda _
(replace 'check (with-directory-excursion "regtest"
(lambda _ (substitute* "common.bash"
(with-directory-excursion "regtest" (("ISODIR=/var/tmp/regtest") "ISODIR=/tmp"))
(substitute* "common.bash" (for-each invoke (find-files "." "rs.*\\.bash")))))
(("ISODIR=/var/tmp/regtest") "ISODIR=/tmp")) (add-after 'install 'install-desktop
(for-each invoke (find-files "." "rs.*\\.bash"))))) (lambda* (#:key outputs #:allow-other-keys)
(add-after 'install 'install-desktop (let* ((datadir (string-append (assoc-ref outputs "out")
(lambda* (#:key outputs #:allow-other-keys) "/share")))
(let* ((datadir (string-append (assoc-ref outputs "out") "/share"))) (substitute* "contrib/dvdisaster.desktop"
(substitute* "contrib/dvdisaster.desktop" (("dvdisaster48.png") "dvdisaster.png"))
(("dvdisaster48.png") "dvdisaster.png")) (install-file "contrib/dvdisaster.desktop"
(install-file "contrib/dvdisaster.desktop" (string-append datadir "/applications"))
(string-append datadir "/applications")) (for-each
(for-each (lambda (png)
(lambda (png) (let* ((size (substring
(let* ((size (substring png png
(string-index png char-set:digit) (string-index png char-set:digit)
(string-rindex png #\.))) (string-rindex png #\.)))
(icondir (string-append datadir "/icons/" (icondir (string-append datadir "/icons/"
size "x" size "/apps"))) size "x" size "/apps")))
(mkdir-p icondir) (mkdir-p icondir)
(copy-file png (string-append icondir "/dvdisaster.png")))) (copy-file png
(find-files "contrib" "dvdisaster[0-9]*\\.png")) (string-append icondir
(mkdir-p (string-append datadir "/pixmaps")) "/dvdisaster.png"))))
(copy-file "contrib/dvdisaster48.xpm" (find-files "contrib" "dvdisaster[0-9]*\\.png"))
(string-append datadir "/pixmaps/dvdisaster.xpm"))))) (mkdir-p (string-append datadir "/pixmaps"))
(add-after 'install 'remove-uninstall-script (copy-file "contrib/dvdisaster48.xpm"
(lambda* (#:key outputs #:allow-other-keys) (string-append datadir
(let* ((out (assoc-ref outputs "out"))) "/pixmaps/dvdisaster.xpm")))))
(delete-file (add-after 'install 'remove-uninstall-script
(string-append out "/bin/dvdisaster-uninstall.sh")))))))) (lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out")))
(delete-file
(string-append out "/bin/dvdisaster-uninstall.sh"))))))))
(home-page "https://dvdisaster.jcea.es/") (home-page "https://dvdisaster.jcea.es/")
(synopsis "Error correcting codes for optical media images") (synopsis "Error correcting codes for optical media images")
(description "Optical media (CD,DVD,BD) keep their data only for a (description "Optical media (CD,DVD,BD) keep their data only for a