ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-29 07:42:23 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: straw-viewer: Comment out .desktop installation.

Browse source 
This will only make sense when the GTK version is built.

* gnu/packages/video.scm (straw-viewer)[arguments]: Comment out
‘install-desktop’ phase.
This commit is contained in:
Tobias Geerinckx-Rice 2020-07-28 16:03:03 +02:00
parent 33de9ee42f
commit 511bfafa14
No known key found for this signature in database
GPG key ID: 0DB0FF884F556D79
1 changed files with 9 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
gnu/packages/video.scm
View file

@ -577,15 +577,15 @@ (define-public straw-viewer
(format #f "'~a/bin/xdg-open'"
(assoc-ref inputs "xdg-utils"))))
#t))
(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-straw-viewer.desktop"
(string-append sharedir "/applications"))
(install-file "share/icons/gtk-straw-viewer.png"
(string-append sharedir "/pixmaps"))
#t)))
;; (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-straw-viewer.desktop"
;; (string-append sharedir "/applications"))
;; (install-file "share/icons/gtk-straw-viewer.png"
;; (string-append sharedir "/pixmaps"))
;; #t)))
(add-after 'install 'wrap-program
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))