Index: tags-html.rkt ================================================================== --- tags-html.rkt +++ tags-html.rkt @@ -44,11 +44,10 @@ (provide/define-html-default-tags p b strong i em - strike ol ul sup blockquote code) @@ -58,10 +57,11 @@ html-section html-subsection html-newthought html-smallcaps html-center + html-strike html-block html-blockcode html-index html-figure html-figure-@2x @@ -78,10 +78,11 @@ (define html-section (default-tag-function 'h2)) (define html-subsection (default-tag-function 'h3)) (define html-newthought (default-tag-function 'span #:class "newthought")) (define html-smallcaps (default-tag-function 'span #:class "smallcaps")) (define html-center (default-tag-function 'div #:style "text-align: center")) +(define html-strike (default-tag-function 'span #:style "text-decoration: line-through")) (define html-dialogue (default-tag-function 'dl #:class "dialogue")) (define (html-block . elements) `(section [[class "content-block"]] (div [[class "content-block-main"]] ,@elements)))