me
/
guix
Archived
1
0
Fork 0
Code

gnu: ktexteditor: Add more inputs. 

* gnu/packages/kde-frameworks.scm (ktexteditor)[arguments]: Use gexp.  Enable
passing test.
[inputs]: Add editorconfig-core-c and kparts

Signed-off-by: Marius Bakke <marius@gnu.org>
Petr Hodina 2022-09-27 23:30:05 +02:00 committed by Marius Bakke
parent 5f3c3d53eb
commit 27eb4944bb
No known key found for this signature in database
GPG Key ID: A2A06DF2A33A54FA
1 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
gnu/packages/kde-frameworks.scm
View File

@ -84,6 +84,7 @@
#:use-module (gnu packages qt) #:use-module (gnu packages qt)
#:use-module (gnu packages textutils) #:use-module (gnu packages textutils)
#:use-module (gnu packages tls) #:use-module (gnu packages tls)
#:use-module (gnu packages text-editors)
#:use-module (gnu packages version-control) #:use-module (gnu packages version-control)
#:use-module (gnu packages video) #:use-module (gnu packages video)
#:use-module (gnu packages vulkan) #:use-module (gnu packages vulkan)
@ -3054,7 +3055,7 @@ types or handled by application specific code.")
(native-inputs (native-inputs
(list extra-cmake-modules pkg-config)) (list extra-cmake-modules pkg-config))
(inputs (inputs
(list ;; TODO: editor-config (list editorconfig-core-c
karchive karchive
kauth kauth
kbookmarks kbookmarks
@ -3069,6 +3070,7 @@ types or handled by application specific code.")
kitemviews kitemviews
ki18n ki18n
kjobwidgets kjobwidgets
kparts
kservice kservice
ktextwidgets ktextwidgets
kwidgetsaddons kwidgetsaddons
@ -3082,23 +3084,23 @@ types or handled by application specific code.")
solid solid
sonnet)) sonnet))
(arguments (arguments
`(#:phases (list #:phases
(modify-phases %standard-phases #~(modify-phases %standard-phases
(add-after 'unpack 'setup (add-after 'unpack 'setup
(lambda* (#:key inputs #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)
(setenv "XDG_DATA_DIRS" ; FIXME build phase doesn't find parts.desktop (setenv "XDG_DATA_DIRS" ; FIXME build phase doesn't find parts.desktop
(string-append (assoc-ref inputs "kparts") "/share")))) (string-append #$(this-package-input "kparts") "/share"))))
(replace 'check (replace 'check
(lambda* (#:key tests? #:allow-other-keys) (lambda* (#:key tests? #:allow-other-keys)
(when tests? ;; Maybe locale issues with tests? (when tests? ;; Maybe locale issues with tests?
(setenv "QT_QPA_PLATFORM" "offscreen") (setenv "QT_QPA_PLATFORM" "offscreen")
(invoke "ctest" "-E" "(completion_test|kateview_test|movingrange_test)")))) (invoke "ctest" "-E" "(kateview_test|movingrange_test)"))))
(add-after 'install 'add-symlinks (add-after 'install 'add-symlinks
;; Some package(s) (e.g. plasma-sdk) refer to these service types ;; Some package(s) (e.g. plasma-sdk) refer to these service types
;; by the wrong name. I would prefer to patch those packages, but ;; by the wrong name. I would prefer to patch those packages, but
;; I cannot find the files! ;; I cannot find the files!
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(let ((kst5 (string-append (assoc-ref outputs "out") (let ((kst5 (string-append #$output
"/share/kservicetypes5/"))) "/share/kservicetypes5/")))
(symlink (string-append kst5 "ktexteditorplugin.desktop") (symlink (string-append kst5 "ktexteditorplugin.desktop")
(string-append kst5 "ktexteditor-plugin.desktop")))))))) (string-append kst5 "ktexteditor-plugin.desktop"))))))))