(declare (module (jimmy html))) (import scheme (chicken base) (chicken irregex) (jimmy emit) (jimmy util) utf8-srfi-13) (output-type 'html) (define (escape-entities s) (irregex-replace/all "[&<>]" s (lambda (m) (let ((c (irregex-match-substring m))) (cond ((equal? c "&") "&") ((equal? c "<") "<") ((equal? c ">") ">")))))) (define (add-inline-markup s) (define (char->tag ch tag) (lambda (s) (irregex-replace/all `(: ,ch ($ (* (~ ,ch))) ,ch) s "<" tag ">" 1 "" tag ">"))) ((o (char->tag "*" "b") (char->tag "_" "i") (char->tag "`" "code")) s)) (set-formats! '((para (line . "~a~%") (stanza . "
~% ~a
~%")) (verb (line . "~a~%") (stanza . "~a
~%"))
(link (line . "~% ~a~%")) (hdr1 (line . "~a") (stanza . "