From 98b0ec7fa637c82a513c00457e48212adf1a8b51 Mon Sep 17 00:00:00 2001 From: Eric Bavier Date: Sun, 6 Jan 2019 14:09:45 -0600 Subject: gnu: dvdisaster: Install desktop file. * gnu/packages/cdrom.scm (dvdisaster)[arguments]: Add 'install-desktop phase. --- gnu/packages/cdrom.scm | 26 +++++++++++++++++++++++++- 1 file changed, 25 insertions(+), 1 deletion(-) diff --git a/gnu/packages/cdrom.scm b/gnu/packages/cdrom.scm index c48f581576..f7ca51f7a2 100644 --- a/gnu/packages/cdrom.scm +++ b/gnu/packages/cdrom.scm @@ -12,6 +12,7 @@ ;;; Copyright © 2017 Nils Gillmann ;;; Copyright © 2018 Oleg Pykhalov ;;; Copyright © 2018 Ricardo Wurmus +;;; Copyright © 2019 Eric Bavier ;;; ;;; This file is part of GNU Guix. ;;; @@ -357,7 +358,30 @@ or @command{xorrisofs} to create ISO 9660 images.") `(;; Parallel builds appear to be unsafe, see ;; . #:parallel-build? #f - #:tests? #f)) ; no check target + #:tests? #f ; no check target + #:phases + (modify-phases %standard-phases + (add-after 'install 'install-desktop + (lambda* (#:key outputs #:allow-other-keys) + (let* ((datadir (string-append (assoc-ref outputs "out") "/share"))) + (substitute* "contrib/dvdisaster.desktop" + (("dvdisaster48.png") "dvdisaster.png")) + (install-file "contrib/dvdisaster.desktop" + (string-append datadir "/applications")) + (for-each + (lambda (png) + (let* ((size (substring png + (string-index png char-set:digit) + (string-rindex png #\.))) + (icondir (string-append datadir "/icons/" + size "x" size "/apps"))) + (mkdir-p icondir) + (copy-file png (string-append icondir "/dvdisaster.png")))) + (find-files "contrib" "dvdisaster[0-9]*\\.png")) + (mkdir-p (string-append datadir "/pixmaps")) + (copy-file "contrib/dvdisaster48.xpm" + (string-append datadir "/pixmaps/dvdisaster.xpm")) + #t)))))) (home-page "http://dvdisaster.net/en/index.html") (synopsis "Error correcting codes for optical media images") (description "Optical media (CD,DVD,BD) keep their data only for a -- cgit 1.4.1