projects
/
mudsync.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
switch room "tell" to not use string-apend
[mudsync.git]
/
mudsync
/
scrubl.scm
diff --git
a/mudsync/scrubl.scm
b/mudsync/scrubl.scm
index a3daa26b882bf258353ebb7696ca8e59d1cd199d..2fdd9227b71013309d264b532ee906524df46e19 100644
(file)
--- a/
mudsync/scrubl.scm
+++ b/
mudsync/scrubl.scm
@@
-119,7
+119,6
@@
Pass in optional extra ARGS to the main META-WRITE"
(lambda (p)
(sxml->xml
(scrubl-write-obj scrubl obj)
(lambda (p)
(sxml->xml
(scrubl-write-obj scrubl obj)
- ;; (list 'pre (scrubl-write-obj scrubl obj))
p))))
p))))
@@
-131,6
+130,10
@@
Pass in optional extra ARGS to the main META-WRITE"
(scrubl-write-obj scrubl arg))
args))))
(scrubl-write-obj scrubl arg))
args))))
+(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))
(define scrubl-sxml
(make-scrubl `((p . ,(scrubl-sxml-simple-field 'p))
(strong . ,(scrubl-sxml-simple-field 'strong))
@@
-138,7
+141,8
@@
Pass in optional extra ARGS to the main META-WRITE"
(b . ,(scrubl-sxml-simple-field 'strong))
(em . ,(scrubl-sxml-simple-field 'em))
(i . ,(scrubl-sxml-simple-field 'em))
(b . ,(scrubl-sxml-simple-field 'strong))
(em . ,(scrubl-sxml-simple-field 'em))
(i . ,(scrubl-sxml-simple-field 'em))
- (br . ,(scrubl-sxml-simple-field 'br)) ;; is this useful?
+ (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))
(ul . ,(scrubl-sxml-simple-field 'ul))
(li . ,(scrubl-sxml-simple-field 'li)))
scrubl-sxml-write))