gnu: lagrange: Fix build.

* gnu/packages/web-browsers.scm (lagrange)[argument]<#:phases>: Add phase to
fix build.

Fixes <https://issues.guix.gnu.org/52664>.
This commit is contained in:
Nicolas Goaziou 2021-12-19 21:38:20 +01:00
parent c4da95cad3
commit fa5a4fb797
No known key found for this signature in database
GPG key ID: DA00B4F048E92F2D

View file

@ -710,7 +710,23 @@ (define-public lagrange
(build-system cmake-build-system) (build-system cmake-build-system)
(arguments (arguments
`(#:tests? #false ;no tests `(#:tests? #false ;no tests
#:configure-flags (list "-DTFDN_ENABLE_SSE41=OFF"))) #:configure-flags (list "-DTFDN_ENABLE_SSE41=OFF")
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'fix-build-error
(lambda _
;; XXX: Remove in next release. Applied upstream. See
;; <https://git.skyjake.fi/gemini/lagrange/commit/b710eee5a92166ceb87932fe53b226be64b4d259>.
(substitute* "src/ui/text.c"
(("width <= 1") "width && width <= 1")
(("colorId") "fgColorId"))
(substitute* "src/ui/text_simple.c"
(("colorId") "fgColorId")
(("const iColor clr =") "iColor clr;")
(("ansiForeground_Color\\((.+)\\);" _ params)
(string-append "ansiColors_Color("
params
", none_ColorId, &clr, NULL);"))))))))
(native-inputs (native-inputs
(list pkg-config zip)) (list pkg-config zip))
(inputs (inputs