Override the default $acronym-seq$ formatting to look for a role
attribute in acronym DocBook tags and use this for the title attribute in acronym HTML4 tags, which will then give a mouseover definition of the acronym.
This commit is contained in:
parent
4aa1046cc0
commit
524c6a7c57
Notes:
svn2git
2020-12-08 03:00:23 +00:00
svn path=/head/; revision=21509
1 changed files with 17 additions and 0 deletions
|
@ -71,6 +71,23 @@
|
||||||
;; Create docformat navi link for HTML output?
|
;; Create docformat navi link for HTML output?
|
||||||
#f)
|
#f)
|
||||||
|
|
||||||
|
;; 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 (book-titlepage-recto-elements)
|
(define (book-titlepage-recto-elements)
|
||||||
(list (normalize "title")
|
(list (normalize "title")
|
||||||
(normalize "subtitle")
|
(normalize "subtitle")
|
||||||
|
|
Loading…
Reference in a new issue