mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-01-19 14:07:01 +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)
(sxml->xml
(let rec ((sxml (xml->sxml in
#:default-entity-handler
(lambda (port name)
(string-append "<ENTITY>"
(symbol->string name)
"</ENTITY>")))))
#:default-entity-handler
(lambda (port name)
(string-append "<ENTITY>"
(symbol->string name)
"</ENTITY>")))))
;; 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))
(`(ENTITY ,ent)
`(*ENTITY* ,ent))
((x ...)
(map rec x))
(x x)))