22/29: gnu: kio: Symlink some files referred to by different names.

[Hartmut Goebel]

htgoebel pushed a commit to branch wip-qt-paths
in repository guix.

commit e8c7da842c282c2628a63f5984f049b78d328df3
Author: Hartmut Goebel <address@hidden>
Date:   Tue Sep 26 11:23:48 2017 +0200

    gnu: kio: Symlink some files referred to by different names.
    
    * gnu/package/kde-frameworks.scm (kio)[arguments]
      <#:phases>'add-symlinks': New phase.
---
 gnu/packages/kde-frameworks.scm | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/kde-frameworks.scm b/gnu/packages/kde-frameworks.scm
index 50ed439..b180caf 100644
--- a/gnu/packages/kde-frameworks.scm
+++ b/gnu/packages/kde-frameworks.scm
@@ -2459,7 +2459,16 @@ makes starting KDE applications faster and reduces 
memory consumption.")
              (setenv "XDG_RUNTIME_DIR" (getcwd))
              ;; make Qt render "offscreen", required for tests
              (setenv "QT_QPA_PLATFORM" "offscreen")
-             #t)))))
+             #t))
+         (add-after 'install 'add-symlinks
+           ;; Some package(s) (e.g. bluedevil) refer to these service types by
+           ;; the wrong name.  I would prefer to patch those packages, but I
+           ;; cannot find the files!
+           (lambda* (#:key outputs #:allow-other-keys)
+             (let ((kst5 (string-append (assoc-ref outputs "out")
+                                        "/share/kservicetypes5/")))
+               (symlink (string-append kst5 "kfileitemactionplugin.desktop")
+                        (string-append kst5 
"kfileitemaction-plugin.desktop"))))))))
     ;;(replace 'check
     ;;  (lambda _
     ;;    (setenv "DBUS_FATAL_WARNINGS" "0")