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

* gnu/package/kde-frameworks.scm (kio)[arguments]
  <#:phases>'add-symlinks': New phase.
This commit is contained in:
Hartmut Goebel 2017-09-26 11:23:48 +02:00
parent bb4fcf7ba6
commit cf7cf45a5f
No known key found for this signature in database
GPG Key ID: 634A8DFFD3F631DF
1 changed files with 10 additions and 1 deletions

View File

@ -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")