From cf7cf45a5fcd77a964c497299cd7bd60357f7758 Mon Sep 17 00:00:00 2001 From: Hartmut Goebel Date: Tue, 26 Sep 2017 11:23:48 +0200 Subject: [PATCH] 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 01cc4ee099..507ec196b4 100644 --- a/gnu/packages/kde-frameworks.scm +++ b/gnu/packages/kde-frameworks.scm @@ -2460,7 +2460,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")