forked from mirrors/org-mode
ox-html: Allow "Figure %d:", etc. to be styled
* lisp/ox-html.el (org-html-paragraph): Wrap "Figure %d:" in <span class="figure-number">. (org-html-list-of-tables, org-html-table): Wrap "Table %d:" in <span class="table-number">. (org-html-list-of-listings): Wrap "Listing %d:" in <span class="listing-number">. * doc/org.text (CSS support): Mention .figure-number, .listing-number, and .table-number. I didn't change org-html-style-default, so these labels won't appear special by default. TINYCHANGE
This commit is contained in:
parent
d5c11e6b5a
commit
03040dd44d
|
@ -11345,6 +11345,9 @@ p.creator @r{creator info, about org mode version}
|
||||||
div.outline-N @r{div for outline level N (headline plus text))}
|
div.outline-N @r{div for outline level N (headline plus text))}
|
||||||
div.outline-text-N @r{extra div for text at outline level N}
|
div.outline-text-N @r{extra div for text at outline level N}
|
||||||
.section-number-N @r{section number in headlines, different for each level}
|
.section-number-N @r{section number in headlines, different for each level}
|
||||||
|
.figure-number @r{label like "Figure 1:"}
|
||||||
|
.table-number @r{label like "Table 1:"}
|
||||||
|
.listing-number @r{label like "Listing 1:"}
|
||||||
div.figure @r{how to format an inlined image}
|
div.figure @r{how to format an inlined image}
|
||||||
pre.src @r{formatted source code}
|
pre.src @r{formatted source code}
|
||||||
pre.example @r{normal example}
|
pre.example @r{normal example}
|
||||||
|
|
|
@ -2010,7 +2010,8 @@ of listings as a string, or nil if it is empty."
|
||||||
org-html-toplevel-hlevel)
|
org-html-toplevel-hlevel)
|
||||||
"<div id=\"text-list-of-listings\">\n<ul>\n"
|
"<div id=\"text-list-of-listings\">\n<ul>\n"
|
||||||
(let ((count 0)
|
(let ((count 0)
|
||||||
(initial-fmt (org-html--translate "Listing %d:" info)))
|
(initial-fmt (format "<span class=\"listing-number\">%s</span>"
|
||||||
|
(org-html--translate "Listing %d:" info))))
|
||||||
(mapconcat
|
(mapconcat
|
||||||
(lambda (entry)
|
(lambda (entry)
|
||||||
(let ((label (org-element-property :name entry))
|
(let ((label (org-element-property :name entry))
|
||||||
|
@ -2044,7 +2045,8 @@ of tables as a string, or nil if it is empty."
|
||||||
org-html-toplevel-hlevel)
|
org-html-toplevel-hlevel)
|
||||||
"<div id=\"text-list-of-tables\">\n<ul>\n"
|
"<div id=\"text-list-of-tables\">\n<ul>\n"
|
||||||
(let ((count 0)
|
(let ((count 0)
|
||||||
(initial-fmt (org-html--translate "Table %d:" info)))
|
(initial-fmt (format "<span class=\"table-number\">%s</span>"
|
||||||
|
(org-html--translate "Table %d:" info))))
|
||||||
(mapconcat
|
(mapconcat
|
||||||
(lambda (entry)
|
(lambda (entry)
|
||||||
(let ((label (org-element-property :name entry))
|
(let ((label (org-element-property :name entry))
|
||||||
|
@ -2789,12 +2791,13 @@ the plist used as a communication channel."
|
||||||
'org-html--has-caption-p))
|
'org-html--has-caption-p))
|
||||||
(if (not (org-string-nw-p raw)) raw
|
(if (not (org-string-nw-p raw)) raw
|
||||||
(concat
|
(concat
|
||||||
|
"<span class=\"figure-number\">"
|
||||||
(format (org-html--translate "Figure %d:" info)
|
(format (org-html--translate "Figure %d:" info)
|
||||||
(org-export-get-ordinal
|
(org-export-get-ordinal
|
||||||
(org-element-map paragraph 'link
|
(org-element-map paragraph 'link
|
||||||
'identity info t)
|
'identity info t)
|
||||||
info nil 'org-html-standalone-image-p))
|
info nil 'org-html-standalone-image-p))
|
||||||
" " raw))))
|
"</span> " raw))))
|
||||||
(label (org-element-property :name paragraph)))
|
(label (org-element-property :name paragraph)))
|
||||||
(org-html--wrap-image contents info caption label)))
|
(org-html--wrap-image contents info caption label)))
|
||||||
;; Regular paragraph.
|
;; Regular paragraph.
|
||||||
|
@ -3203,8 +3206,9 @@ contextual information."
|
||||||
"<caption align=\"above\">%s</caption>"
|
"<caption align=\"above\">%s</caption>"
|
||||||
"<caption align=\"bottom\">%s</caption>")
|
"<caption align=\"bottom\">%s</caption>")
|
||||||
(concat
|
(concat
|
||||||
(format (org-html--translate "Table %d:" info) number)
|
"<span class=\"table-number\">"
|
||||||
" " (org-export-data caption info))))
|
(format (org-html--translate "Table %d:" info) number)
|
||||||
|
"</span> " (org-export-data caption info))))
|
||||||
(funcall table-column-specs table info)
|
(funcall table-column-specs table info)
|
||||||
contents)))))
|
contents)))))
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue