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:
Hiroki Sato 2008-12-24 17:18:27 +00:00
parent 3b81966abe
commit 7dd62cc679
Notes: svn2git 2020-12-08 03:00:23 +00:00
svn path=/head/; revision=33527

View file

@ -64,19 +64,20 @@
;; Taken from Norm's stylesheets; modified to add support for TITLE so
;; that we get a mouse over definition for acronyms in HTML output.
(define ($acronym-seq$ #!optional (sosofo (process-children)))
;; FIXME: html4 only
(let ((title (attribute-string (normalize "role") (current-node))))
(if title
(make element gi: "ACRONYM"
attributes: (list
(list "TITLE" title)
(list "CLASS" (gi)))
sosofo)
(make element gi: "ACRONYM"
attributes: (list
(list "CLASS" (gi)))
sosofo))))
(define ($acronym-seq$ #!optional (sosofo (process-children)))
(let* ((acronym-remark (select-elements
(children (current-node))
(normalize "remark"))))
(let* ((title (if (and acronym-remark
(equal? (attribute-string (normalize "role") acronym-remark) "acronym"))
(data acronym-remark)
"")))
(make element gi: "ACRONYM"
attributes: (list
(list "CLASS" (gi))
(list "TITLE" title))
sosofo))))
(define (book-titlepage-recto-elements)
(list (normalize "title")