ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-03 18:09:18 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: jucipp: Fix syntax highlighting.

Browse source 
* gnu/packages/text-editors.scm (jucipp)[arguments]: Add 'wrap' phase.
This commit is contained in:
Marius Bakke 2020-08-18 19:00:50 +02:00
parent d4d79bc94f
commit 7e9544c352
No known key found for this signature in database
GPG key ID: A2A06DF2A33A54FA
1 changed files with 20 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

21
gnu/packages/text-editors.scm
View file

@ -247,7 +247,26 @@ (define-public jucipp
(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)))