04/06: gnu: straw-viewer: Comment out .desktop installation.

[guix-commits]

nckx pushed a commit to branch master
in repository guix.

commit 511bfafa14e90304b1c9b82dad7321daa1668e32
Author: Tobias Geerinckx-Rice <me@tobias.gr>
AuthorDate: Tue Jul 28 16:03:03 2020 +0200

    gnu: straw-viewer: Comment out .desktop installation.
    
    This will only make sense when the GTK version is built.
    
    * gnu/packages/video.scm (straw-viewer)[arguments]: Comment out
    ‘install-desktop’ phase.
---
 gnu/packages/video.scm | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

diff --git a/gnu/packages/video.scm b/gnu/packages/video.scm
index e63f234..e3bb447 100644
--- a/gnu/packages/video.scm
+++ b/gnu/packages/video.scm
@@ -577,15 +577,15 @@ H.264 (MPEG-4 AVC) video streams.")
                 (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"))