From 48acdefe2e39278bb53ab54995e4a2aca973e99c Mon Sep 17 00:00:00 2001
From: Maxim Cournoyer <maxim.cournoyer@gmail.com>
Date: Sun, 19 Apr 2020 21:51:33 -0400
Subject: [PATCH] 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 4f142312cc..b9d455ab3e 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