me
/
guix
Archived
1
0
Fork 0
Code

gnu: netsurf: Remove tabulations in source. 

* gnu/packages/web.scm (netsurf): Remove tabulations.
master
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 @@ w3c webidl files and a binding configuration file.")
(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)))