aboutsummaryrefslogtreecommitdiff
path: root/gnu/packages/video.scm
diff options
context:
space:
mode:
authorEric Bavier <bavier@member.fsf.org>2019-01-04 21:51:13 -0600
committerEric Bavier <bavier@member.fsf.org>2019-01-05 11:34:16 -0600
commit0dd8da0b1d1cb613ed265734adfeff7cd3ebb190 (patch)
tree505d7e4d4ddecf7c3bf83cd3372222621e91a9cf /gnu/packages/video.scm
parenta773f141cbe501471eeb388526407b0cf6c489d8 (diff)
downloadguix-0dd8da0b1d1cb613ed265734adfeff7cd3ebb190.tar
guix-0dd8da0b1d1cb613ed265734adfeff7cd3ebb190.tar.gz
gnu: youtube-viewer: Install desktop file.
* gnu/packages/video.scm (youtube-viewer)[arguments]: Add 'install-desktop phase.
Diffstat (limited to 'gnu/packages/video.scm')
-rw-r--r--gnu/packages/video.scm11
1 files changed, 10 insertions, 1 deletions
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 <cameltheman@gmail.com>
;;; Copyright © 2016 Andy Patterson <ajpatter@uwaterloo.ca>
;;; Copyright © 2016, 2017 Nils Gillmann <ng0@n0.is>
-;;; Copyright © 2016, 2018 Eric Bavier <bavier@member.fsf.org>
+;;; Copyright © 2016, 2018, 2019 Eric Bavier <bavier@member.fsf.org>
;;; Copyright © 2016 Jan Nieuwenhuizen <janneke@gnu.org>
;;; Copyright © 2017 Feng Shu <tumashu@163.com>
;;; Copyright © 2017, 2018 Tobias Geerinckx-Rice <me@tobias.gr>
@@ -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"))