tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

New option `org-export-html-headline-anchor-format'. 

* org-html.el (org-export-html-headline-anchor-format): New
option.
(org-html-level-start): Use the new option.

This was requested by Alan L Tyree.
This commit is contained in:
Bastien Guerry 2011-12-11 16:50:05 +01:00
parent 8af710c41c
commit b7f5efdc4e
1 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lisp/org-html.el
View File

@ -355,6 +355,14 @@ CSS classes, then this prefix can be very useful."
:group 'org-export-html
:type 'string)
(defcustom org-export-html-headline-anchor-format "<a name=\"%s\" id=\"%s\"></a>"
"Format for anchors in HTML headlines.
It requires to %s: both will be replaced by the anchor referring
to the headline (e.g. \"sec-2\"). When set to `nil', don't insert
HTML anchors in headlines."
:group 'org-export-html
:type 'string)
(defcustom org-export-html-preamble t
"Non-nil means insert a preamble in HTML export.
@ -2438,8 +2446,9 @@ When TITLE is nil, just close all open levels."
(mapconcat (lambda (x)
(setq x (org-solidify-link-text
(if (org-uuidgen-p x) (concat "ID-" x) x)))
(format "<a name=\"%s\" id=\"%s\"></a>"
x x))
(if (stringp org-export-html-headline-anchor-format)
(format org-export-html-headline-anchor-format x x)
""))
extra-targets
""))
(while (>= l level)