01/01: gnu: youtube-viewer: Install desktop file.

[guix-commits]

bavier pushed a commit to branch master
in repository guix.

commit 0dd8da0b1d1cb613ed265734adfeff7cd3ebb190
Author: Eric Bavier <address@hidden>
Date:   Fri Jan 4 21:51:13 2019 -0600

    gnu: youtube-viewer: Install desktop file.
    
    * gnu/packages/video.scm (youtube-viewer)[arguments]: Add 'install-desktop
    phase.
---
 gnu/packages/video.scm | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/video.scm b/gnu/packages/video.scm
index dfcfc12..b8ac09d 100644
--- a/gnu/packages/video.scm
+++ b/gnu/packages/video.scm
@@ -12,7 +12,7 @@
 ;;; Copyright © 2016 Dmitry Nikolaev <address@hidden>
 ;;; Copyright © 2016 Andy Patterson <address@hidden>
 ;;; Copyright © 2016, 2017 Nils Gillmann <address@hidden>
-;;; Copyright © 2016, 2018 Eric Bavier <address@hidden>
+;;; Copyright © 2016, 2018, 2019 Eric Bavier <address@hidden>
 ;;; Copyright © 2016 Jan Nieuwenhuizen <address@hidden>
 ;;; Copyright © 2017 Feng Shu <address@hidden>
 ;;; Copyright © 2017, 2018 Tobias Geerinckx-Rice <address@hidden>
@@ -1500,6 +1500,15 @@ audio, images) from the Web.  It can use either mpv or 
vlc for playback.")
        #:module-build-flags '("--gtk")
        #:phases
        (modify-phases %standard-phases
+         (add-after 'install 'install-desktop
+           (lambda* (#:key outputs #:allow-other-keys)
+             (let* ((out (assoc-ref outputs "out"))
+                    (sharedir (string-append out "/share")))
+               (install-file "share/gtk-youtube-viewer.desktop"
+                             (string-append sharedir "/applications"))
+               (install-file "share/icons/gtk-youtube-viewer.png"
+                             (string-append sharedir "/pixmaps"))
+               #t)))
          (add-after 'install 'wrap-program
            (lambda* (#:key outputs #:allow-other-keys)
              (let* ((out (assoc-ref outputs "out"))