[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
04/05: gnu: kdevelop: Set more paths in wrapper script.
|
From: |
Ludovic Courtès |
|
Subject: |
04/05: gnu: kdevelop: Set more paths in wrapper script. |
|
Date: |
Mon, 16 Jan 2017 21:13:51 +0000 (UTC) |
civodul pushed a commit to branch master
in repository guix.
commit 2f4d08ee7f897e254c6e533ad2d69c7fe4998f38
Author: Thomas Danckaert <address@hidden>
Date: Wed Jan 11 19:33:03 2017 +0100
gnu: kdevelop: Set more paths in wrapper script.
* gnu/packages/kde.scm (kdevelop)[arguments]: Add more paths in
wrap-executable: add "/share" output of kdevplatform and kcmutils to
$XDG_DATA_DIRS; add "lib/plugins" from user profile to $QT_PLUGIN_PATH.
Signed-off-by: Ludovic Courtès <address@hidden>
---
gnu/packages/kde.scm | 11 +++++++----
1 file changed, 7 insertions(+), 4 deletions(-)
diff --git a/gnu/packages/kde.scm b/gnu/packages/kde.scm
index 5f227ac..aef56bb 100644
--- a/gnu/packages/kde.scm
+++ b/gnu/packages/kde.scm
@@ -98,15 +98,18 @@
(let* ((out (assoc-ref outputs "out"))
(kdevplatform (assoc-ref inputs "kdevplatform"))
(kio (assoc-ref inputs "kio"))
+ (kcmutils (assoc-ref inputs "kcmutils"))
(qtquickcontrols (assoc-ref inputs "qtquickcontrols"))
(qtdeclarative (assoc-ref inputs "qtdeclarative"))
- (plugins "/lib/plugins")
+ (profile "$HOME/.guix-profile")
(qml "/qml"))
(wrap-program (string-append out "/bin/kdevelop")
+ `("XDG_DATA_DIRS" ":" prefix
+ ,(map (lambda (s) (string-append s "/share"))
+ (list profile out kdevplatform kcmutils)))
`("QT_PLUGIN_PATH" ":" prefix
- (,(string-append out plugins)
- ,(string-append kdevplatform plugins)
- ,(string-append kio plugins)))
+ ,(map (lambda (s) (string-append s "/lib/plugins"))
+ (list profile out kdevplatform kio)))
`("QML2_IMPORT_PATH" ":" prefix
(,(string-append qtquickcontrols qml)
,(string-append qtdeclarative qml))))))))))