diff options
author | Bastien Guerry <bzg@altern.org> | 2011-12-11 16:50:05 +0100 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2011-12-11 16:50:05 +0100 |
commit | b7f5efdc4e1ed07f295d28a05fab3588c4194110 (patch) | |
tree | 402352c63f327b2a3919f7038b6aee143b386021 | |
parent | 8af710c41c8cfe5977255a0ccd17853de8d3dd96 (diff) | |
download | org-mode-b7f5efdc4e1ed07f295d28a05fab3588c4194110.tar.gz |
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.
-rw-r--r-- | lisp/org-html.el | 13 |
1 files changed, 11 insertions, 2 deletions
diff --git a/lisp/org-html.el b/lisp/org-html.el index fa3811f..9527fcf 100644 --- a/lisp/org-html.el +++ b/lisp/org-html.el @@ -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) |