branch master updated: gnu: djview: Fix executable's name in desktop file.

[guix-commits]

This is an automated email from the git hooks/post-receive script.

ngz pushed a commit to branch master
in repository guix.

The following commit(s) were added to refs/heads/master by this push:
     new f8c2d32  gnu: djview: Fix executable's name in desktop file.
f8c2d32 is described below

commit f8c2d32461d469f7133c7d79fe1b4eed5146aaf7
Author: Nicolas Goaziou <address@hidden>
AuthorDate: Sun Feb 9 14:55:25 2020 +0100

    gnu: djview: Fix executable's name in desktop file.
    
    * gnu/packages/djvu.scm (djview)[inputs]: Re-order inputs alphabetically.
    [arguments]: Add a phase to fix executable's name in desktop file.
---
 gnu/packages/djvu.scm | 15 ++++++++++++---
 1 file changed, 12 insertions(+), 3 deletions(-)

diff --git a/gnu/packages/djvu.scm b/gnu/packages/djvu.scm
index 534d2db..7dd08fc 100644
--- a/gnu/packages/djvu.scm
+++ b/gnu/packages/djvu.scm
@@ -73,11 +73,20 @@ utilities.")
      `(("pkg-config" ,pkg-config)
        ("qttools" ,qttools)))
     (inputs
-     `(("glib" ,glib)
+     `(("djvulibre" ,djvulibre)
+       ("glib" ,glib)
        ("libxt" ,libxt)
        ("libtiff" ,libtiff)
-       ("qtbase" ,qtbase)
-       ("djvulibre" ,djvulibre)))
+       ("qtbase" ,qtbase)))
+    (arguments
+     `(#:phases
+       (modify-phases %standard-phases
+         (add-after 'unpack 'fix-desktop-file
+           ;; Executable is "djview", not "djview4".
+           (lambda _
+             (substitute* "desktopfiles/djvulibre-djview4.desktop"
+               (("Exec=djview4 %f") "Exec=djview %f"))
+             #t)))))
     (home-page "http://djvu.sourceforge.net/";)
     (synopsis "Viewer for the DjVu image format")
     (description "DjView is a standalone viewer for DjVu files.