Switch things over to using scrubl

[mudsync.git] / mudsync / scrubl.scm

diff --git a/mudsync/scrubl.scm b/mudsync/scrubl.scm
index 88438be8f14ff26c03d63ee95243250a59c09959..a3daa26b882bf258353ebb7696ca8e59d1cd199d 100644 (file)
--- a/mudsync/scrubl.scm
+++ b/mudsync/scrubl.scm
@@ -30,8 +30,12 @@
   #:use-module (srfi srfi-9)
   #:use-module (sxml simple)
   #:use-module (oop goops)
   #:use-module (srfi srfi-9)
   #:use-module (sxml simple)
   #:use-module (oop goops)

+  #:use-module (ice-9 vlist)
+  #:use-module (ice-9 vlist)
+  #:use-module (ice-9 hash-table)

   #:export (make-scrubl
             scrubl? scrubl-extend-fields
   #:export (make-scrubl
             scrubl? scrubl-extend-fields

+            scrubl-write

             scrubl-sxml scrubl-sxml-simple-field))
 
 (define (order-symlist-args symlist-args)
             scrubl-sxml scrubl-sxml-simple-field))
 
 (define (order-symlist-args symlist-args)


@@ -113,7 +117,10 @@ Pass in optional extra ARGS to the main META-WRITE"
 (define (scrubl-sxml-write scrubl obj)
   (call-with-output-string
     (lambda (p)
 (define (scrubl-sxml-write scrubl obj)
   (call-with-output-string
     (lambda (p)

-      (sxml->xml (scrubl-write-obj scrubl obj) p))))
+      (sxml->xml
+       (scrubl-write-obj scrubl obj)
+       ;; (list 'pre (scrubl-write-obj scrubl obj))
+       p))))

 
 
 (define (scrubl-sxml-simple-field sym)
 
 
 (define (scrubl-sxml-simple-field sym)


@@ -126,7 +133,12 @@ Pass in optional extra ARGS to the main META-WRITE"
 
 (define scrubl-sxml
   (make-scrubl `((p . ,(scrubl-sxml-simple-field 'p))
 
 (define scrubl-sxml
   (make-scrubl `((p . ,(scrubl-sxml-simple-field 'p))

-                 (strong . ,(scrubl-sxml-simple-field 'strong)) ; usually bold
-                 (emph . ,(scrubl-sxml-simple-field 'em))
-                 (br . ,(scrubl-sxml-simple-field 'br))) ; usually italicized
+                 (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))  ;; is this useful?
+                 (ul . ,(scrubl-sxml-simple-field 'ul))
+                 (li . ,(scrubl-sxml-simple-field 'li)))

                scrubl-sxml-write))
                scrubl-sxml-write))