gnu: dvdisaster: Use G-expressions.
* gnu/packages/cdrom.scm (dvdisaster)[arguments]: Rewrite as G-expressions.master
parent
ced32e953d
commit
dda3a760ab
|
@ -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
|
||||||
|
|
Reference in New Issue