forked from mirrors/org-mode
ox-html: Tiny fix
* lisp/ox-html.el (org-html-paragraph): Move space after the figure number within the "figure-number" class so it can be hidden if needed. Small refactoring.
This commit is contained in:
parent
579569cc84
commit
596f585a7d
|
@ -3112,16 +3112,16 @@ the plist used as a communication channel."
|
|||
(let ((raw (org-export-data
|
||||
(org-export-get-caption paragraph) info))
|
||||
(org-html-standalone-image-predicate
|
||||
'org-html--has-caption-p))
|
||||
#'org-html--has-caption-p))
|
||||
(if (not (org-string-nw-p raw)) raw
|
||||
(concat
|
||||
"<span class=\"figure-number\">"
|
||||
(format (org-html--translate "Figure %d:" info)
|
||||
(org-export-get-ordinal
|
||||
(org-element-map paragraph 'link
|
||||
'identity info t)
|
||||
info nil 'org-html-standalone-image-p))
|
||||
"</span> " raw))))
|
||||
(concat "<span class=\"figure-number\">"
|
||||
(format (org-html--translate "Figure %d:" info)
|
||||
(org-export-get-ordinal
|
||||
(org-element-map paragraph 'link
|
||||
#'identity info t)
|
||||
info nil #'org-html-standalone-image-p))
|
||||
" </span>"
|
||||
raw))))
|
||||
(label (and (org-element-property :name paragraph)
|
||||
(org-export-get-reference paragraph info))))
|
||||
(org-html--wrap-image contents info caption label)))
|
||||
|
|
Loading…
Reference in a new issue