me/guix
Archived
1
0
Fork 0
Code Activity

gnu: webkitgtk@2.22: Adjust to documentation output.

Browse source 
This is a follow-up to commit 0ead0b4d2c.

* gnu/packages/webkit.scm (webkitgtk)[arguments]: Remove hard coded file list.
(webkitgtk-2.22)[arguments]: Inherit phases using SUBSTITUTE-KEYWORD-ARGUMENTS.
This commit is contained in:
Marius Bakke 2018-11-11 18:09:55 +01:00
parent aaf0e47f6d
commit a509b18087
No known key found for this signature in database
GPG key ID: A2A06DF2A33A54FA
1 changed files with 16 additions and 17 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
gnu/packages/webkit.scm
View file

@ -96,14 +96,12 @@
(modify-phases %standard-phases (modify-phases %standard-phases
(add-after 'unpack 'patch-gtk-doc-scan (add-after 'unpack 'patch-gtk-doc-scan
(lambda* (#:key inputs #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)
(substitute* "Source/WebKit/WebProcess/InjectedBundle/API/gtk/DOM/docs/webkitdomgtk-docs.sgml" (for-each (lambda (file)
(substitute* file
(("http://www.oasis-open.org/docbook/xml/4.1.2/docbookx.dtd") (("http://www.oasis-open.org/docbook/xml/4.1.2/docbookx.dtd")
(string-append (assoc-ref inputs "docbook-xml") (string-append (assoc-ref inputs "docbook-xml")
"/xml/dtd/docbook/docbookx.dtd"))) "/xml/dtd/docbook/docbookx.dtd"))))
(substitute* "Source/WebKit/UIProcess/API/gtk/docs/webkit2gtk-docs.sgml" (find-files "Source" "\\.sgml$"))
(("http://www.oasis-open.org/docbook/xml/4.1.2/docbookx.dtd")
(string-append (assoc-ref inputs "docbook-xml")
"/xml/dtd/docbook/docbookx.dtd")))
#t)) #t))
(add-after 'install 'move-doc-files (add-after 'install 'move-doc-files
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
@ -182,12 +180,13 @@ HTML/CSS applications to full-fledged web browsers.")
`(("gcc" ,gcc-7) ; webkitgtk-2.22 requires gcc-6 or newer `(("gcc" ,gcc-7) ; webkitgtk-2.22 requires gcc-6 or newer
,@(package-native-inputs webkitgtk))) ,@(package-native-inputs webkitgtk)))
(arguments (arguments
`(#:phases (modify-phases %standard-phases (substitute-keyword-arguments (package-arguments webkitgtk)
((#:phases phases)
`(modify-phases ,phases
(add-before 'configure 'work-around-gcc-7-include-path-issue (add-before 'configure 'work-around-gcc-7-include-path-issue
;; FIXME: Work around a problem with gcc-7 includes (see ;; FIXME: Work around a problem with gcc-7 includes (see
;; <https://bugs.gnu.org/30756>). ;; <https://bugs.gnu.org/30756>).
(lambda _ (lambda _
(unsetenv "C_INCLUDE_PATH") (unsetenv "C_INCLUDE_PATH")
(unsetenv "CPLUS_INCLUDE_PATH") (unsetenv "CPLUS_INCLUDE_PATH")
#t))) #t))))))))
,@(package-arguments webkitgtk)))))