-(define sxml-scrubl
- (make-scrubl `((p . ,(sxml-simple-field 'p))
- (bold . ,(sxml-simple-field 'b))
- (it . ,(sxml-simple-field 'it))
- (emph . ,(sxml-simple-field 'it)))
- sxml-write))
+(define (scrubl-pre scrubl args)
+ `(span (@ (class "pre-ish"))
+ ,args))
+
+(define scrubl-sxml
+ (make-scrubl `((p . ,(scrubl-sxml-simple-field 'p))
+ (strong . ,(scrubl-sxml-simple-field 'strong))
+ (bold . ,(scrubl-sxml-simple-field 'strong))
+ (b . ,(scrubl-sxml-simple-field 'strong))
+ (em . ,(scrubl-sxml-simple-field 'em))
+ (i . ,(scrubl-sxml-simple-field 'em))
+ (br . ,(scrubl-sxml-simple-field 'br))
+ (pre . ,scrubl-pre) ;; "pre" style whitespace handling.
+ (ul . ,(scrubl-sxml-simple-field 'ul))
+ (li . ,(scrubl-sxml-simple-field 'li)))
+ scrubl-sxml-write))