From 7e9544c352ac53ec8db9f3f14e10ece713e10a0c Mon Sep 17 00:00:00 2001 From: Marius Bakke Date: Tue, 18 Aug 2020 19:00:50 +0200 Subject: gnu: jucipp: Fix syntax highlighting. * gnu/packages/text-editors.scm (jucipp)[arguments]: Add 'wrap' phase. --- gnu/packages/text-editors.scm | 21 ++++++++++++++++++++- 1 file changed, 20 insertions(+), 1 deletion(-) (limited to 'gnu/packages/text-editors.scm') diff --git a/gnu/packages/text-editors.scm b/gnu/packages/text-editors.scm index 88ec19d898..cdd6f0ad41 100644 --- a/gnu/packages/text-editors.scm +++ b/gnu/packages/text-editors.scm @@ -247,7 +247,26 @@ bindings and many of the powerful features of GNU Emacs.") (setenv "DISPLAY" display) (system (string-append xorg-server "/bin/Xvfb " display " &"))) - #t))))) + #t)) + (add-after 'install 'wrap + (lambda* (#:key inputs outputs #:allow-other-keys) + ;; The package needs GTK+ and GtkSourceView on XDG_DATA_DIRS + ;; for syntax highlighting to work. shared-mime-info is + ;; necessary for MIME handling. + ;; 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"))) + (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)) + ":")))) + #t)))))) (native-inputs `(("pkg-config" ,pkg-config) ("xorg-server" ,xorg-server-for-tests))) -- cgit v1.2.3