From f1452776ac65bd03454b1e715c44f7eded237ea0 Mon Sep 17 00:00:00 2001 From: Eric Bavier Date: Mon, 3 Feb 2020 23:06:09 -0600 Subject: gnu: netsurf: Fix entity parsing. Follow-up to commit 31afa654c58cd7aa8bd11a771fa6eabcd766d443. * gnu/packages/web.scm (netsurf)[arguments]: In 'adjust-welcome' phase, ensure html entities are parsed and find their way back to the output. Signed-off-by: Tobias Geerinckx-Rice --- gnu/packages/web.scm | 11 +++++++++-- 1 file changed, 9 insertions(+), 2 deletions(-) (limited to 'gnu/packages/web.scm') diff --git a/gnu/packages/web.scm b/gnu/packages/web.scm index f6ae958ae3..60fd5cfd0f 100644 --- a/gnu/packages/web.scm +++ b/gnu/packages/web.scm @@ -6,7 +6,7 @@ ;;; Copyright © 2015, 2016, 2017, 2018, 2019 Ricardo Wurmus ;;; Copyright © 2018 Raoul Jean Pierre Bonnal ;;; Copyright © 2015 Taylan Ulrich Bayırlı/Kammer -;;; Copyright © 2015, 2016, 2017, 2018, 2019 Eric Bavier +;;; Copyright © 2015, 2016, 2017, 2018, 2019, 2020 Eric Bavier ;;; Copyright © 2015 Eric Dvorsak ;;; Copyright © 2016 Sou Bunnbu ;;; Copyright © 2016 Jelle Licht @@ -5075,12 +5075,19 @@ w3c webidl files and a binding configuration file.") ;; Leave the DOCTYPE header as is. (display (read-line in 'concat) out) (sxml->xml - (let rec ((sxml (xml->sxml in))) + (let rec ((sxml (xml->sxml in + #:default-entity-handler + (lambda (port name) + (string-append "" + (symbol->string name) + ""))))) ;; We'd like to use sxml-match here, but it can't ;; match against generic tag symbols... (match sxml (`(div (@ (class "links")) . ,rest) '()) + (`(ENTITY ,ent) + `(*ENTITY* ,ent)) ((x ...) (map rec x)) (x x))) -- cgit v1.2.3 From 2038777833c99436ccacfd1b93447d84cc28ba57 Mon Sep 17 00:00:00 2001 From: Efraim Flashner Date: Tue, 4 Feb 2020 14:09:17 +0200 Subject: gnu: netsurf: Build with gtk+-3. * gnu/packages/web.scm (netsurf)[inputs]: Remove gtk+-2, add gtk+. [arguments]: Add makeflag to target gtk3. --- gnu/packages/web.scm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'gnu/packages/web.scm') diff --git a/gnu/packages/web.scm b/gnu/packages/web.scm index 60fd5cfd0f..62f2d75d0e 100644 --- a/gnu/packages/web.scm +++ b/gnu/packages/web.scm @@ -10,7 +10,7 @@ ;;; Copyright © 2015 Eric Dvorsak ;;; Copyright © 2016 Sou Bunnbu ;;; Copyright © 2016 Jelle Licht -;;; Copyright © 2016, 2017, 2018, 2019 Efraim Flashner +;;; Copyright © 2016, 2017, 2018, 2019, 2020 Efraim Flashner ;;; Copyright © 2016 Rene Saavedra ;;; Copyright © 2016 Ben Woodcroft ;;; Copyright © 2016 Clément Lassieur @@ -5027,7 +5027,7 @@ w3c webidl files and a binding configuration file.") ("xxd" ,xxd))) (inputs `(("curl" ,curl) - ("gtk+" ,gtk+-2) + ("gtk+" ,gtk+) ("openssl" ,openssl) ("utf8proc" ,utf8proc) ("libpng" ,libpng) @@ -5043,6 +5043,7 @@ w3c webidl files and a binding configuration file.") ("miscfiles" ,miscfiles))) (arguments `(#:make-flags `("CC=gcc" "BUILD_CC=gcc" + "TARGET=gtk3" ,(string-append "PREFIX=" %output) ,(string-append "NSSHARED=" (assoc-ref %build-inputs -- cgit v1.2.3 From cf10627bf24a639fb84fc01044d2d9723e46a279 Mon Sep 17 00:00:00 2001 From: Efraim Flashner Date: Tue, 4 Feb 2020 14:12:16 +0200 Subject: gnu: netsurf: Use https. * gnu/packages/web.scm (netsurf-buildsystem, libparserutils, hubbub, libwapcaplet, libcss, libdom, libsvgtiny, libnsbmp, libnsgif, libnslog, libnsutils, libnspsl, nsgenbind, netsurf, netsurf-buildsystem) [source, home-page]: Use https. --- gnu/packages/web.scm | 56 ++++++++++++++++++++++++++-------------------------- 1 file changed, 28 insertions(+), 28 deletions(-) (limited to 'gnu/packages/web.scm') diff --git a/gnu/packages/web.scm b/gnu/packages/web.scm index 62f2d75d0e..3d73bfec2b 100644 --- a/gnu/packages/web.scm +++ b/gnu/packages/web.scm @@ -4567,7 +4567,7 @@ tools they trust (e.g. wget).") (source (origin (method url-fetch) - (uri (string-append "http://download.netsurf-browser.org/libs/releases/" + (uri (string-append "https://download.netsurf-browser.org/libs/releases/" "buildsystem-" version ".tar.gz")) (sha256 (base32 @@ -4580,7 +4580,7 @@ tools they trust (e.g. wget).") #:phases (modify-phases %standard-phases (delete 'configure) (delete 'build)))) - (home-page "http://www.netsurf-browser.org") + (home-page "https://www.netsurf-browser.org") (synopsis "Build system for the Netsurf project") (description "This package provides the shared build system for Netsurf project @@ -4606,7 +4606,7 @@ libraries.") (source (origin (method url-fetch) - (uri (string-append "http://download.netsurf-browser.org/libs/releases/" + (uri (string-append "https://download.netsurf-browser.org/libs/releases/" name "-" version "-src.tar.gz")) (sha256 (base32 @@ -4617,7 +4617,7 @@ libraries.") ("pkg-config" ,pkg-config) ("perl" ,perl))) ;for test harness (arguments netsurf-buildsystem-arguments) - (home-page "http://www.netsurf-browser.org/projects/libparserutils/") + (home-page "https://www.netsurf-browser.org/projects/libparserutils/") (synopsis "Parser building library") (description "LibParserUtils is a library for building efficient parsers, written in @@ -4631,7 +4631,7 @@ C. It is developed as part of the NetSurf project.") (source (origin (method url-fetch) - (uri (string-append "http://download.netsurf-browser.org/libs/releases/" + (uri (string-append "https://download.netsurf-browser.org/libs/releases/" "libhubbub-" version "-src.tar.gz")) (sha256 (base32 @@ -4647,7 +4647,7 @@ C. It is developed as part of the NetSurf project.") (propagated-inputs `(("libparserutils" ,libparserutils))) ;for libhubbub.pc (arguments netsurf-buildsystem-arguments) - (home-page "http://www.netsurf-browser.org/projects/hubbub/") + (home-page "https://www.netsurf-browser.org/projects/hubbub/") (synopsis "HTML5 compliant parsing library") (description "Hubbub is an HTML5 compliant parsing library, written in C, which can @@ -4737,7 +4737,7 @@ commenting.") (source (origin (method url-fetch) - (uri (string-append "http://download.netsurf-browser.org/libs/releases/" + (uri (string-append "https://download.netsurf-browser.org/libs/releases/" "libwapcaplet-" version "-src.tar.gz")) (sha256 (base32 @@ -4748,7 +4748,7 @@ commenting.") ("pkg-config" ,pkg-config) ("check" ,check))) ;for tests (arguments netsurf-buildsystem-arguments) - (home-page "http://www.netsurf-browser.org/projects/libwapcaplet/") + (home-page "https://www.netsurf-browser.org/projects/libwapcaplet/") (synopsis "String internment library") (description "LibWapcaplet provides a reference counted string internment system @@ -4763,7 +4763,7 @@ developed as part of the Netsurf project.") (source (origin (method url-fetch) - (uri (string-append "http://download.netsurf-browser.org/libs/releases/" + (uri (string-append "https://download.netsurf-browser.org/libs/releases/" "libcss-" version "-src.tar.gz")) (sha256 (base32 @@ -4777,7 +4777,7 @@ developed as part of the Netsurf project.") `(("libparserutils" ,libparserutils) ("libwapcaplet" ,libwapcaplet))) (arguments netsurf-buildsystem-arguments) - (home-page "http://www.netsurf-browser.org/projects/libcss/") + (home-page "https://www.netsurf-browser.org/projects/libcss/") (synopsis "CSS parser and selection library") (description "LibCSS is a CSS (Cascading Style Sheet) parser and selection engine, @@ -4791,7 +4791,7 @@ written in C. It is developed as part of the NetSurf project.") (source (origin (method url-fetch) - (uri (string-append "http://download.netsurf-browser.org/libs/releases/" + (uri (string-append "https://download.netsurf-browser.org/libs/releases/" "libdom-" version "-src.tar.gz")) (sha256 (base32 @@ -4813,7 +4813,7 @@ written in C. It is developed as part of the NetSurf project.") (arguments `(#:tests? #f ;TODO: re-enable. tests take a looong time. ,@netsurf-buildsystem-arguments)) - (home-page "http://www.netsurf-browser.org/projects/libdom/") + (home-page "https://www.netsurf-browser.org/projects/libdom/") (synopsis "Implementation of the W3C DOM") (description "LibDOM is an implementation of the W3C DOM, written in C. It is @@ -4827,7 +4827,7 @@ developed as part of the NetSurf project.") (source (origin (method url-fetch) - (uri (string-append "http://download.netsurf-browser.org/libs/releases/" + (uri (string-append "https://download.netsurf-browser.org/libs/releases/" name "-" version "-src.tar.gz")) (sha256 (base32 @@ -4842,7 +4842,7 @@ developed as part of the NetSurf project.") (propagated-inputs `(("libdom" ,libdom))) ;for libsvgtiny.pc (arguments netsurf-buildsystem-arguments) - (home-page "http://www.netsurf-browser.org/projects/libsvgtiny/") + (home-page "https://www.netsurf-browser.org/projects/libsvgtiny/") (synopsis "Library for parsing SVG files") (description "Libsvgtiny takes some SVG as input and returns a list of paths and texts @@ -4858,7 +4858,7 @@ project.") (source (origin (method url-fetch) - (uri (string-append "http://download.netsurf-browser.org/libs/releases/" + (uri (string-append "https://download.netsurf-browser.org/libs/releases/" name "-" version "-src.tar.gz")) (sha256 (base32 @@ -4867,7 +4867,7 @@ project.") (native-inputs `(("netsurf-buildsystem" ,netsurf-buildsystem))) (arguments netsurf-buildsystem-arguments) - (home-page "http://www.netsurf-browser.org/projects/libnsbmp/") + (home-page "https://www.netsurf-browser.org/projects/libnsbmp/") (synopsis "Decoding library for BMP and ICO files") (description "Libnsbmp is a decoding library for BMP and ICO image file formats, @@ -4881,7 +4881,7 @@ written in C. It is developed as part of the NetSurf project.") (source (origin (method url-fetch) - (uri (string-append "http://download.netsurf-browser.org/libs/releases/" + (uri (string-append "https://download.netsurf-browser.org/libs/releases/" name "-" version "-src.tar.gz")) (sha256 (base32 @@ -4890,7 +4890,7 @@ written in C. It is developed as part of the NetSurf project.") (native-inputs `(("netsurf-buildsystem" ,netsurf-buildsystem))) (arguments netsurf-buildsystem-arguments) - (home-page "http://www.netsurf-browser.org/projects/libnsgif/") + (home-page "https://www.netsurf-browser.org/projects/libnsgif/") (synopsis "Decoding library for GIF files") (description "Libnsgif is a decoding library for the GIF image file format, written in @@ -4904,7 +4904,7 @@ C. It is developed as part of the NetSurf project.") (source (origin (method url-fetch) - (uri (string-append "http://download.netsurf-browser.org/libs/releases/" + (uri (string-append "https://download.netsurf-browser.org/libs/releases/" "libnslog-" version "-src.tar.gz")) (sha256 (base32 @@ -4917,7 +4917,7 @@ C. It is developed as part of the NetSurf project.") ("bison" ,bison) ("flex" ,flex))) (arguments netsurf-buildsystem-arguments) - (home-page "http://www.netsurf-browser.org/") + (home-page "https://www.netsurf-browser.org/") (synopsis "Logging library") (description "Libnslog provides a category-based logging library which supports @@ -4932,7 +4932,7 @@ client applications. It is developed as part of the NetSurf project.") (source (origin (method url-fetch) - (uri (string-append "http://download.netsurf-browser.org/libs/releases/" + (uri (string-append "https://download.netsurf-browser.org/libs/releases/" name "-" version "-src.tar.gz")) (sha256 (base32 @@ -4941,7 +4941,7 @@ client applications. It is developed as part of the NetSurf project.") (native-inputs `(("netsurf-buildsystem" ,netsurf-buildsystem))) (arguments netsurf-buildsystem-arguments) - (home-page "http://www.netsurf-browser.org/") + (home-page "https://www.netsurf-browser.org/") (synopsis "Utility library for NetSurf") (description "Libnsutils provides a small number of useful utility routines. It is @@ -4955,7 +4955,7 @@ developed as part of the NetSurf project.") (source (origin (method url-fetch) - (uri (string-append "http://download.netsurf-browser.org/libs/releases/" + (uri (string-append "https://download.netsurf-browser.org/libs/releases/" "libnspsl-" version "-src.tar.gz")) (sha256 (base32 @@ -4964,7 +4964,7 @@ developed as part of the NetSurf project.") (native-inputs `(("netsurf-buildsystem" ,netsurf-buildsystem))) (arguments netsurf-buildsystem-arguments) - (home-page "http://www.netsurf-browser.org/") + (home-page "https://www.netsurf-browser.org/") (synopsis "Library to generate a static Public Suffix List") (description "Libnspsl is a library to generate a static code representation of the @@ -4978,7 +4978,7 @@ Public Suffix List. It is developed as part of the NetSurf project.") (source (origin (method url-fetch) - (uri (string-append "http://download.netsurf-browser.org/libs/releases/" + (uri (string-append "https://download.netsurf-browser.org/libs/releases/" "nsgenbind-" version "-src.tar.gz")) (sha256 (base32 @@ -4992,7 +4992,7 @@ Public Suffix List. It is developed as part of the NetSurf project.") (substitute-keyword-arguments netsurf-buildsystem-arguments ((#:make-flags flags) `(delete "COMPONENT_TYPE=lib-shared" ,flags)))) - (home-page "http://www.netsurf-browser.org/") + (home-page "https://www.netsurf-browser.org/") (synopsis "Generate JavaScript to DOM bindings") (description "@code{nsgenbind} is a tool to generate JavaScript to DOM bindings from @@ -5006,7 +5006,7 @@ w3c webidl files and a binding configuration file.") (source (origin (method url-fetch) - (uri (string-append "http://download.netsurf-browser.org/netsurf/" + (uri (string-append "https://download.netsurf-browser.org/netsurf/" "releases/source/netsurf-" version "-src.tar.gz")) (sha256 (base32 @@ -5115,7 +5115,7 @@ w3c webidl files and a binding configuration file.") (install-file "docs/netsurf-gtk.1" (string-append out "/share/man/man1/")) #t)))))) - (home-page "http://www.netsurf-browser.org") + (home-page "https://www.netsurf-browser.org") (synopsis "Web browser") (description "NetSurf is a lightweight web browser that has its own layout and -- cgit v1.2.3