me/guix
Archived
1
0
Fork 0
Code Activity

gnu: wxwidgets: Refer to xdg-open.

Browse source 
Fixes <https://debbugs.gnu.org/cgi/bugreport.cgi?bug=22704>.

* gnu/packages/wxwidgets.scm (wxwidgets)[inputs]: Add xdg-utils.
[arguments]: Add ‘refer-to-inputs’ phase to patch xdg-open calls.
This commit is contained in:
Tobias Geerinckx-Rice 2020-03-16 15:25:58 +01:00
parent 8317c89aa3
commit 9482008321
No known key found for this signature in database
GPG key ID: 0DB0FF884F556D79
1 changed files with 13 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
gnu/packages/wxwidgets.scm
View file

@ -6,7 +6,7 @@
;;; Copyright © 2017 Rene Saavedra <rennes@openmailbox.org> ;;; Copyright © 2017 Rene Saavedra <rennes@openmailbox.org>
;;; Copyright © 2017 Efraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2017 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2017 Thomas Danckaert <post@thomasdanckaert.be> ;;; Copyright © 2017 Thomas Danckaert <post@thomasdanckaert.be>
;;; Copyright © 2018 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2018, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2019 Arun Isaac <arunisaac@systemreboot.net> ;;; Copyright © 2019 Arun Isaac <arunisaac@systemreboot.net>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
@ -35,6 +35,7 @@
#:use-module (gnu packages) #:use-module (gnu packages)
#:use-module (gnu packages compression) #:use-module (gnu packages compression)
#:use-module (gnu packages databases) #:use-module (gnu packages databases)
#:use-module (gnu packages freedesktop)
#:use-module (gnu packages gl) #:use-module (gnu packages gl)
#:use-module (gnu packages gstreamer) #:use-module (gnu packages gstreamer)
#:use-module (gnu packages gtk) #:use-module (gnu packages gtk)
@ -73,7 +74,8 @@
("libtiff" ,libtiff) ("libtiff" ,libtiff)
("mesa" ,mesa) ("mesa" ,mesa)
("webkitgtk" ,webkitgtk) ("webkitgtk" ,webkitgtk)
("sdl" ,sdl))) ("sdl" ,sdl)
("xdg-utils" ,xdg-utils)))
(native-inputs (native-inputs
`(("pkg-config" ,pkg-config))) `(("pkg-config" ,pkg-config)))
(arguments (arguments
@ -91,7 +93,15 @@
(list (string-append "LDFLAGS=-Wl,-rpath=" (list (string-append "LDFLAGS=-Wl,-rpath="
(assoc-ref %outputs "out") "/lib")) (assoc-ref %outputs "out") "/lib"))
;; No 'check' target. ;; No 'check' target.
#:tests? #f)) #:tests? #f
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'refer-to-inputs
(lambda _
(substitute* "src/unix/utilsx11.cpp"
(("wxExecute\\(xdg_open \\+")
(string-append "wxExecute(\"" (which "xdg-open") "\"")))
#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