htgoebel pushed a commit to branch wip-qt-paths
in repository guix.
commit cc2c71efc8d0464b7f397ff99944ca65bff7cf08
Author: Hartmut Goebel <h.goe...@crazy-compilers.com>
Date: Tue Sep 26 20:23:42 2017 +0200
gnu: ktexteditor: Symlink some files referred to by different names.
* gnu/package/kde-frameworks.scm (ktexteditor)[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 5a4fe2f..8c0a336 100644
--- a/gnu/packages/kde-frameworks.scm
+++ b/gnu/packages/kde-frameworks.scm
@@ -2848,7 +2848,16 @@ types or handled by application specific code.")
(setenv "HOME" (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. plasma-sdk) 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 "ktexteditorplugin.desktop")
+ (string-append kst5
"ktexteditor-plugin.desktop"))))))))
(home-page "https://community.kde.org/Frameworks";)
(synopsis "Full text editor component")
(description "KTextEditor provides a powerful text editor component that
you
