Restrict our scrubl structure to p, strong, emph for now

diff --git a/mudsync/scrubl.scm b/mudsync/scrubl.scm
index 1d82338e6d9999672fb1fa078438ce424ea009e2..d25200fbcd9d8cd5ede9a460e49eb00012c8d162 100644 (file)
--- a/mudsync/scrubl.scm
+++ b/mudsync/scrubl.scm
@@ -16,7 +16,7 @@
 ;;; You should have received a copy of the GNU General Public License
 ;;; along with Mudsync.  If not, see <http://www.gnu.org/licenses/>.
 
 ;;; You should have received a copy of the GNU General Public License
 ;;; along with Mudsync.  If not, see <http://www.gnu.org/licenses/>.
 

-;;; SCRUBL: S-exps Craftily/Crappily Representing the Underlying Basic Language
+;;; SCRUBL: S-exps Craftily/Crappily Rendering Underlying Basic Language

 ;;; a micro-"skribe-like" system (kinda ugly tho)
 ;;; Turns quasiquoted structures into something rendered.
 ;;;
 ;;; a micro-"skribe-like" system (kinda ugly tho)
 ;;; Turns quasiquoted structures into something rendered.
 ;;;


@@ -126,7 +126,6 @@ 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))

-                 (bold . ,(scrubl-sxml-simple-field 'b))
-                 (it . ,(scrubl-sxml-simple-field 'it))
-                 (emph . ,(scrubl-sxml-simple-field 'it)))
+                 (strong . ,(scrubl-sxml-simple-field 'strong)) ; usually bold
+                 (emph . ,(scrubl-sxml-simple-field 'em))) ; usually italicized

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