branch core-updates updated: gnu: linphoneqt: Add the missing ring sound files.

[guix-commits]

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

apteryx pushed a commit to branch core-updates
in repository guix.

The following commit(s) were added to refs/heads/core-updates by this push:
     new 48acdef  gnu: linphoneqt: Add the missing ring sound files.
48acdef is described below

commit 48acdefe2e39278bb53ab54995e4a2aca973e99c
Author: Maxim Cournoyer <address@hidden>
AuthorDate: Sun Apr 19 21:51:33 2020 -0400

    gnu: linphoneqt: Add the missing ring sound files.
    
    * gnu/packages/linphone.scm (linphoneqt)[phases]: Add an
    'extend-shared-resources phase.
---
 gnu/packages/linphone.scm | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/linphone.scm b/gnu/packages/linphone.scm
index 4f14231..b9d455a 100644
--- a/gnu/packages/linphone.scm
+++ b/gnu/packages/linphone.scm
@@ -501,7 +501,17 @@ and video calls or instant messaging capabilities to an 
application.")
              (substitute* "src/app/AppController.cpp"
                (("LINPHONE_QT_GIT_VERSION")
                 (format #f "~s" ,version)))
-             #t)))))
+             #t))
+         (add-after 'install 'extend-shared-resources
+           ;; Not using the FHS exposes an issue where the client refers to
+           ;; its own "share" directory, which lacks sound files installed by
+           ;; liblinphone.
+           (lambda* (#:key inputs outputs #:allow-other-keys)
+             (let ((liblinphone (assoc-ref inputs "linphone"))
+                    (out (assoc-ref outputs "out")))
+               (symlink (string-append liblinphone "/share/sounds")
+                        (string-append out "/share/sounds"))
+               #t))))))
     (native-inputs
      `(("qttools" ,qttools)))
     (inputs