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>
This commit is contained in:
		
							parent
							
								
									5f3c3d53eb
								
							
						
					
					
						commit
						27eb4944bb
					
				
					 1 changed files with 8 additions and 6 deletions
				
			
		| 
						 | 
					@ -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"))))))))
 | 
				
			||||||
| 
						 | 
					
 | 
				
			||||||
		Reference in a new issue