◊(Local Yarn Code "Check-in [64f3b580]")

Overview
Comment:Fix smallcaps tag (HTML output)
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256: 64f3b580de6c56c097be03da19e267ce96e9ceb1bb73764bfffe82da93ce1bed
User & Date: joel on 2019-06-16 17:08:04
Other Links: manifest | tags
Context
2019-06-16
17:41
Add image-link tag check-in: 41875538 user: joel tags: trunk
17:08
Fix smallcaps tag (HTML output) check-in: 64f3b580 user: joel tags: trunk
17:07
Ignore images (Fossil settings), get it right this time check-in: 5ae867db user: joel tags: trunk
Changes

Modified tags-html.rkt from [aadcedd5] to [2b372a09].

74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
         html-fndef
         html-note)

(define html-item (default-tag-function 'li))
(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)))








|







74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
         html-fndef
         html-note)

(define html-item (default-tag-function 'li))
(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 "caps"))
(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)))