From 0dd8da0b1d1cb613ed265734adfeff7cd3ebb190 Mon Sep 17 00:00:00 2001 From: Eric Bavier Date: Fri, 4 Jan 2019 21:51:13 -0600 Subject: [PATCH] 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 dfcfc121ab..b8ac09d4ad 100644 --- a/gnu/packages/video.scm +++ b/gnu/packages/video.scm @@ -12,7 +12,7 @@ ;;; Copyright © 2016 Dmitry Nikolaev ;;; Copyright © 2016 Andy Patterson ;;; Copyright © 2016, 2017 Nils Gillmann -;;; Copyright © 2016, 2018 Eric Bavier +;;; Copyright © 2016, 2018, 2019 Eric Bavier ;;; Copyright © 2016 Jan Nieuwenhuizen ;;; Copyright © 2017 Feng Shu ;;; Copyright © 2017, 2018 Tobias Geerinckx-Rice @@ -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"))