[bug#33671] [PATCH 1/3] gnu: ardour: Add a phase to install Freedesktop files.

[Brendan Tildesley <brendan.tildesley@gmail.com>]

[-- Attachment #1: Type: text/plain, Size: 1 bytes --]



[-- Attachment #2: 0001-gnu-ardour-Add-a-phase-to-install-Freedesktop-files.patch --]
[-- Type: text/x-patch, Size: 2543 bytes --]

From 8139a2013cdbb81c8b332ed7cd6e88212d6354d5 Mon Sep 17 00:00:00 2001
From: Brendan Tildesley <brendan.tildesley@openmailbox.org>
Date: Fri, 7 Dec 2018 22:00:14 +1100
Subject: [PATCH 1/3] gnu: ardour: Add a phase to install Freedesktop files.

* gnu/packages/audio.scm (ardour): [arguments]:
 - Correct comment about --freedesktop flag.
 - Adjust pretty printing for consistency.
 - Add 'install-free-desktop-files phase to actually install the files that
   were build. Fixes bug#33585 reported by baconicsynergy.
---
 gnu/packages/audio.scm | 23 +++++++++++++++++++----
 1 file changed, 19 insertions(+), 4 deletions(-)

diff --git a/gnu/packages/audio.scm b/gnu/packages/audio.scm
index a65cfa238e..3d77987062 100644
--- a/gnu/packages/audio.scm
+++ b/gnu/packages/audio.scm
@@ -229,13 +229,28 @@ namespace ARDOUR { const char* revision = \"" version "\" ; }"))
     (arguments
      `(#:configure-flags '("--cxx11"          ; required by gtkmm
                            "--no-phone-home"  ; don't contact ardour.org
-                           "--freedesktop"    ; install .desktop file
+                           "--freedesktop"    ; build .desktop file
                            "--test")          ; build unit tests
        #:phases
        (modify-phases %standard-phases
-         (add-after
-          'unpack 'set-rpath-in-LDFLAGS
-          ,(ardour-rpath-phase (version-major version))))
+         (add-after 'unpack 'set-rpath-in-LDFLAGS
+          ,(ardour-rpath-phase (version-major version)))
+         (add-after 'install 'install-freedesktop-files
+           (lambda* (#:key outputs #:allow-other-keys)
+             (let ((out (assoc-ref outputs "out"))
+                   (v ,(version-major version)))
+               (for-each
+                (lambda (s)
+                  (let ((d (string-append out "/share/icons/hicolor/" s "x" s "/apps")))
+                    (mkdir-p d)
+                    (copy-file
+                     (string-append "gtk2_ardour/resources/Ardour-icon_" s "px.png")
+                     (string-append  d "/ardour" v ".png"))))
+                '("16" "22" "32" "48" "256"))
+               (install-file (string-append "build/gtk2_ardour/ardour" v ".desktop")
+                             (string-append out "/share/applications/"))
+               (install-file (string-append "build/gtk2_ardour/ardour" v ".appdata.xml")
+                             (string-append out "/share/appdata/"))))))
        #:test-target "test"
        #:python ,python-2))
     (inputs
-- 
2.19.2