mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-01-31 23:06:59 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: netsurf: Remove tabulations in source.

Browse source 
* gnu/packages/web.scm (netsurf): Remove tabulations.
This commit is contained in:
Eric Bavier 2020-05-26 15:15:10 -05:00
parent 5c133ca561
commit cfdefb863c
No known key found for this signature in database
GPG key ID: FD73CAC719D32566
1 changed files with 7 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
gnu/packages/web.scm
View file

@ -5322,18 +5322,18 @@ (define-public netsurf
(display (read-line in 'concat) out) (display (read-line in 'concat) out)
(sxml->xml (sxml->xml
(let rec ((sxml (xml->sxml in (let rec ((sxml (xml->sxml in
#:default-entity-handler #:default-entity-handler
(lambda (port name) (lambda (port name)
(string-append "<ENTITY>" (string-append "<ENTITY>"
(symbol->string name) (symbol->string name)
"</ENTITY>"))))) "</ENTITY>")))))
;; We'd like to use sxml-match here, but it can't ;; We'd like to use sxml-match here, but it can't
;; match against generic tag symbols... ;; match against generic tag symbols...
(match sxml (match sxml
(`(div (@ (class "links")) . ,rest) (`(div (@ (class "links")) . ,rest)
'()) '())
(`(ENTITY ,ent) (`(ENTITY ,ent)
`(*ENTITY* ,ent)) `(*ENTITY* ,ent))
((x ...) ((x ...)
(map rec x)) (map rec x))
(x x))) (x x)))