~ruther/guix-local

cfdefb863c274ecdbd452836364e68e1028c7bb1 — Eric Bavier 6 years ago 5c133ca
gnu: netsurf: Remove tabulations in source.

* gnu/packages/web.scm (netsurf): Remove tabulations.
1 files changed, 7 insertions(+), 7 deletions(-)

M gnu/packages/web.scm
M gnu/packages/web.scm => gnu/packages/web.scm +7 -7
@@ 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)))