me
/
guix
Archived
1
0
Fork 0
Code

gnu: wxwidgets: Fix MIME type loading. 

* gnu/packages/wxwidgets.scm (wxwidgets)[inputs]: Add shared-mime-info.
[arguments]: Update 'refer-to-inputs phase so wxwidgets looks in the correct
directory for MIME type information.
master
Kei Kebreau 2020-07-30 23:21:45 -04:00
parent e79fe4f675
commit 93d9737d2b
No known key found for this signature in database
GPG Key ID: E6A5EE3C19467A0D
1 changed files with 11 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
gnu/packages/wxwidgets.scm
View File

@ -37,6 +37,7 @@
#:use-module (gnu packages databases) #:use-module (gnu packages databases)
#:use-module (gnu packages freedesktop) #:use-module (gnu packages freedesktop)
#:use-module (gnu packages gl) #:use-module (gnu packages gl)
#:use-module (gnu packages gnome)
#:use-module (gnu packages gstreamer) #:use-module (gnu packages gstreamer)
#:use-module (gnu packages gtk) #:use-module (gnu packages gtk)
#:use-module (gnu packages image) #:use-module (gnu packages image)
@ -75,6 +76,7 @@
("mesa" ,mesa) ("mesa" ,mesa)
("webkitgtk" ,webkitgtk) ("webkitgtk" ,webkitgtk)
("sdl" ,sdl) ("sdl" ,sdl)
("shared-mime-info" ,shared-mime-info)
("xdg-utils" ,xdg-utils))) ("xdg-utils" ,xdg-utils)))
(native-inputs (native-inputs
`(("pkg-config" ,pkg-config))) `(("pkg-config" ,pkg-config)))
@ -97,11 +99,15 @@
#:phases #:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(add-after 'unpack 'refer-to-inputs (add-after 'unpack 'refer-to-inputs
(lambda _ (lambda* (#:key inputs #:allow-other-keys)
(substitute* "src/unix/utilsx11.cpp" (let* ((mime (string-append (assoc-ref inputs "shared-mime-info")
(("wxExecute\\(xdg_open \\+") "/share/mime")))
(string-append "wxExecute(\"" (which "xdg-open") "\""))) (substitute* "src/unix/utilsx11.cpp"
#t))))) (("wxExecute\\(xdg_open \\+")
(string-append "wxExecute(\"" (which "xdg-open") "\"")))
(substitute* "src/unix/mimetype.cpp"
(("/usr(/local)?/share/mime") mime))
#t))))))
(home-page "https://www.wxwidgets.org/") (home-page "https://www.wxwidgets.org/")
(synopsis "Widget toolkit for creating graphical user interfaces") (synopsis "Widget toolkit for creating graphical user interfaces")
(description (description