From d5b060ac4fe715e2279857f9b4858e7aec6979e8 Mon Sep 17 00:00:00 2001 From: Marius Bakke Date: Wed, 9 Feb 2022 16:48:02 +0100 Subject: gnu: juCi++: Remove input labels. * gnu/packages/text-editors.scm (jucipp)[arguments]: Use SEARCH-INPUT-DIRECTORY & co as appropriate. [inputs]: Remove labels. --- gnu/packages/text-editors.scm | 38 ++++++++++++++++++++------------------ 1 file changed, 20 insertions(+), 18 deletions(-) diff --git a/gnu/packages/text-editors.scm b/gnu/packages/text-editors.scm index ba3f1f56cc..ed655b2e62 100644 --- a/gnu/packages/text-editors.scm +++ b/gnu/packages/text-editors.scm @@ -326,11 +326,12 @@ (define-public jucipp `(#:configure-flags '("-DBUILD_TESTING=ON") #:phases (modify-phases %standard-phases (add-after 'unpack 'patch-tiny-process-library - (lambda _ + (lambda* (#:key native-inputs inputs #:allow-other-keys) (with-directory-excursion "lib/tiny-process-library" (substitute* '("process_unix.cpp" "tests/io_test.cpp") - (("/bin/sh") (which "sh")))))) + (("/bin/sh") (search-input-file (or native-inputs inputs) + "bin/sh")))))) (add-after 'unpack 'disable-git-test (lambda _ (substitute* "tests/CMakeLists.txt" @@ -348,11 +349,10 @@ (define-public jucipp (setenv "HOME" "/etc") ;; Most tests require an X server. - (let ((xorg-server (assoc-ref inputs "xorg-server")) + (let ((xvfb (search-input-file inputs "bin/Xvfb")) (display ":1")) (setenv "DISPLAY" display) - (system (string-append xorg-server "/bin/Xvfb " - display " &"))))) + (system (string-append xvfb " " display " &"))))) (add-after 'install 'wrap (lambda* (#:key inputs outputs #:allow-other-keys) ;; The package needs GTK+ and GtkSourceView on XDG_DATA_DIRS @@ -361,26 +361,28 @@ (define-public jucipp ;; XXX: Ideally we'd reuse glib-or-gtk-wrap here, but it ;; does not pick up $gtksourceview/share/gtksourceview-3.0. (let ((out (assoc-ref outputs "out")) - (gtk+ (assoc-ref inputs "gtk+")) - (gtksourceview (assoc-ref inputs "gtksourceview")) - (shared-mime-info (assoc-ref inputs "shared-mime-info"))) + (gtk+ (dirname (search-input-file inputs + "share/gtk-3.0"))) + (gtksourceview (dirname (search-input-directory + inputs + "share/gtksourceview-3.0"))) + (shared-mime-info (dirname (search-input-directory + inputs "share/mime")))) (wrap-program (string-append out "/bin/juci") `("XDG_DATA_DIRS" ":" prefix (,(string-join - (map (lambda (pkg) - (string-append pkg "/share")) - (list out gtk+ gtksourceview shared-mime-info)) + (list out gtk+ gtksourceview shared-mime-info) ":")))))))))) (native-inputs (list pkg-config xorg-server-for-tests)) (inputs - `(("aspell" ,aspell) - ("boost" ,boost) - ("ctags" ,universal-ctags) - ("gtkmm" ,gtkmm-3) - ("gtksourceviewmm" ,gtksourceviewmm) - ("libclang" ,clang-11) ;XXX: must be the same version as Mesas LLVM - ("libgit2" ,libgit2))) + (list aspell + boost + clang-11 ;XXX: must be the same version as Mesas LLVM + gtkmm-3 + gtksourceviewmm + libgit2 + universal-ctags)) (synopsis "Lightweight C++ IDE") (description "juCi++ is a small @acronym{IDE, Integrated Development Environment} -- cgit v1.2.3