civodul pushed a commit to branch master
in repository guix-artwork.
commit 65a2394f3dcf820acdab6448fb311b43310a2fa8
Author: Ludovic Courtès <[email protected]>
Date: Wed Dec 6 15:11:28 2017 +0100
website: Insert surrounding spaces when flattening markup.
* website/apps/aux/sxml.scm (sxml->string*): Insert spaces when
flattening.
---
website/apps/aux/sxml.scm | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/website/apps/aux/sxml.scm b/website/apps/aux/sxml.scm
index 2703dba..81da32e 100644
--- a/website/apps/aux/sxml.scm
+++ b/website/apps/aux/sxml.scm
@@ -31,9 +31,9 @@ string."
(define (sxml->strings tree)
(match tree
(((? symbol?) ('@ _ ...) body ...)
- (append-map sxml->strings body))
+ (append-map sxml->strings `(" " ,@body " ")))
(((? symbol?) body ...)
- (append-map sxml->strings body))
+ (append-map sxml->strings `(" " ,@body " ")))
((? string?)
(list tree))
((lst ...)
