From mboxrd@z Thu Jan 1 00:00:00 1970 Received: from eggs.gnu.org ([2001:4830:134:3::10]:43226) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1e0RZ4-0004Yg-9H for guix-patches@gnu.org; Fri, 06 Oct 2017 08:17:15 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1e0RZ1-0004Cc-TX for guix-patches@gnu.org; Fri, 06 Oct 2017 08:17:14 -0400 Received: from debbugs.gnu.org ([208.118.235.43]:43693) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1e0RZ1-0004CM-Pu for guix-patches@gnu.org; Fri, 06 Oct 2017 08:17:11 -0400 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1e0RZ1-00077y-Jy for guix-patches@gnu.org; Fri, 06 Oct 2017 08:17:11 -0400 Subject: [bug#28720] [PATCH 16/23] gnu: kio: Symlink some files referred to by different names. Resent-Message-ID: From: Hartmut Goebel Date: Fri, 6 Oct 2017 14:16:29 +0200 Message-Id: <20171006121636.30904-17-h.goebel@crazy-compilers.com> In-Reply-To: <20171006121636.30904-1-h.goebel@crazy-compilers.com> References: <20171006121636.30904-1-h.goebel@crazy-compilers.com> List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-patches-bounces+kyle=kyleam.com@gnu.org Sender: "Guix-patches" To: 28720@debbugs.gnu.org * 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 50ed4391d..b180caf8c 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") -- 2.13.5