better html rendering

private/html.rkt

@@ -69,10 +69,20 @@
              (values mode last-start))])))
   mode)
 
-(define (encode-string c)
+(define (encode-string s)
-  (foldr (λ (el rst) (cons el (cons '(br ()) rst)))
+  (reverse
-         '()
+   (for/fold ([r null]) ([c s])
-         (string-split c "\n")))
+     (cons
+      (case c
+        [(#\space) 'nbsp]
+        [(#\newline) '(br ())]
+        [else (string c)])
+      r))))
+(module+ test
+  (check-equal? (encode-string " ")
+                '(nbsp))
+  (check-equal? (encode-string "\n")
+                '((br ()))))
 
 (define (mode-xml mode body)
   (define color