X-Git-Url: https://jxself.org/git/?p=mudsync.git;a=blobdiff_plain;f=mudsync%2Fscrubl.scm;h=d25200fbcd9d8cd5ede9a460e49eb00012c8d162;hp=1d82338e6d9999672fb1fa078438ce424ea009e2;hb=e5a7edc560717c95542df4b338ea14502e424694;hpb=c81524f4606c337e5282b22850dc4b1b93868eb7 diff --git a/mudsync/scrubl.scm b/mudsync/scrubl.scm index 1d82338..d25200f 100644 --- 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 . -;;; 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. ;;; @@ -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)) - (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))