02/07: gnu: qtox: Wrap executable and fix misplaced comma (unquote).

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository guix.

commit dab03baa0a4d857edf8c5752e5dd8ecaab8862a7
Author: Diego Nicola Barbato <address@hidden>
Date:   Thu Mar 15 02:19:51 2018 +0100

    gnu: qtox: Wrap executable and fix misplaced comma (unquote).
    
    * gnu/packages/messaging.scm (qtox)[arguments]: Add phase
    "wrap-executable".
    [inputs]: Fix misplaced comma (unquote).
    
    Signed-off-by: Ludovic Courtès <address@hidden>
---
 gnu/packages/messaging.scm | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

diff --git a/gnu/packages/messaging.scm b/gnu/packages/messaging.scm
index b6323c3..ae489e1 100644
--- a/gnu/packages/messaging.scm
+++ b/gnu/packages/messaging.scm
@@ -874,10 +874,18 @@ instant messenger with audio and video chat 
capabilities.")
                (("__DATE__") "\"\"")
                (("__TIME__") "\"\"")
                (("TIMESTAMP") "\"\""))
-             #t)))))
+             #t))
+         ;; Ensure that icons are found at runtime.
+         (add-after 'install 'wrap-executable
+           (lambda* (#:key inputs outputs #:allow-other-keys)
+             (let ((out (assoc-ref outputs "out")))
+               (wrap-program (string-append out "/bin/qtox")
+                 `("QT_PLUGIN_PATH" prefix
+                   ,(list (string-append (assoc-ref inputs "qtsvg")
+                                         "/lib/qt5/plugins/"))))))))))
     (inputs
      `(("ffmpeg" ,ffmpeg)
-       ("filteraudio", filteraudio)
+       ("filteraudio" ,filteraudio)
        ("glib" ,glib)
        ("gtk+" ,gtk+-2)
        ("libsodium" ,libsodium)