Add the following idiom for <acronym> with description:
<acronym>FOO<remark role="acronym">DESC OF FOO</remark></acronym> Discussed on: -doc
This commit is contained in:
parent
3b81966abe
commit
7dd62cc679
Notes:
svn2git
2020-12-08 03:00:23 +00:00
svn path=/head/; revision=33527
1 changed files with 14 additions and 13 deletions
|
@ -64,19 +64,20 @@
|
||||||
|
|
||||||
;; Taken from Norm's stylesheets; modified to add support for TITLE so
|
;; Taken from Norm's stylesheets; modified to add support for TITLE so
|
||||||
;; that we get a mouse over definition for acronyms in HTML output.
|
;; that we get a mouse over definition for acronyms in HTML output.
|
||||||
(define ($acronym-seq$ #!optional (sosofo (process-children)))
|
|
||||||
;; FIXME: html4 only
|
(define ($acronym-seq$ #!optional (sosofo (process-children)))
|
||||||
(let ((title (attribute-string (normalize "role") (current-node))))
|
(let* ((acronym-remark (select-elements
|
||||||
(if title
|
(children (current-node))
|
||||||
(make element gi: "ACRONYM"
|
(normalize "remark"))))
|
||||||
attributes: (list
|
(let* ((title (if (and acronym-remark
|
||||||
(list "TITLE" title)
|
(equal? (attribute-string (normalize "role") acronym-remark) "acronym"))
|
||||||
(list "CLASS" (gi)))
|
(data acronym-remark)
|
||||||
sosofo)
|
"")))
|
||||||
(make element gi: "ACRONYM"
|
(make element gi: "ACRONYM"
|
||||||
attributes: (list
|
attributes: (list
|
||||||
(list "CLASS" (gi)))
|
(list "CLASS" (gi))
|
||||||
sosofo))))
|
(list "TITLE" title))
|
||||||
|
sosofo))))
|
||||||
|
|
||||||
(define (book-titlepage-recto-elements)
|
(define (book-titlepage-recto-elements)
|
||||||
(list (normalize "title")
|
(list (normalize "title")
|
||||||
|
|
Loading…
Reference in a new issue