02/03: gnu: netsurf: Curb overzealous substitution.

[guix-commits]

nckx pushed a commit to branch master
in repository guix.

commit 31afa654c58cd7aa8bd11a771fa6eabcd766d443
Author: Tobias Geerinckx-Rice <address@hidden>
AuthorDate: Thu Jan 30 18:16:54 2020 +0100

    gnu: netsurf: Curb overzealous substitution.
    
    * gnu/packages/web.scm (netsurf)[arguments]: Don't enforce Americanisms.
---
 gnu/packages/web.scm | 11 +++++------
 1 file changed, 5 insertions(+), 6 deletions(-)

diff --git a/gnu/packages/web.scm b/gnu/packages/web.scm
index a0f46e3..d3ab28b 100644
--- a/gnu/packages/web.scm
+++ b/gnu/packages/web.scm
@@ -5028,21 +5028,20 @@ w3c webidl files and a binding configuration file.")
          (delete 'configure)
          (add-after 'build 'adjust-welcome
            (lambda _
-             ;; First, fix some unended tags and simple substitutions
              (substitute* "frontends/gtk/res/welcome.html"
+             ;; Close some XHTML tags.
                (("<(img|input)([^>]*)>" _ tag contents)
                 (string-append "<" tag contents " />"))
-               (("Licence") "License") ;prefer GNU spelling
+               ;; Increase freedom.
                ((" open source") ", free software")
-               (("web&nbsp;site") "website")
-               ;; Prefer privacy-respecting default search engine
+               ;; Prefer a more privacy-respecting default search engine.
                (("www.google.co.uk") "www.duckduckgo.com/html")
                (("Google Search") "DuckDuckGo Search")
                (("name=\"btnG\"") ""))
-             ;; Remove default links so it doesn't seem we're endorsing them
+             ;; Remove default links so it doesn't seem we're endorsing them.
              (with-atomic-file-replacement "frontends/gtk/res/welcome.html"
                (lambda (in out)
-                 ;; Leave the DOCTYPE header as is
+                 ;; Leave the DOCTYPE header as is.
                  (display (read-line in 'concat) out)
                  (sxml->xml
                   (let rec ((sxml (xml->sxml in)))