28/29: website: Insert surrounding spaces when flattening markup.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository guix-artwork.

commit 65a2394f3dcf820acdab6448fb311b43310a2fa8
Author: Ludovic Courtès <address@hidden>
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 ...)