diff options
author | Carsten Dominik <carsten.dominik@gmail.com> | 2010-11-21 09:45:02 +0100 |
---|---|---|
committer | Carsten Dominik <carsten.dominik@gmail.com> | 2010-11-21 09:45:02 +0100 |
commit | d637546804727d2fb4eacf3086a923c645efd2e5 (patch) | |
tree | 3a22b2f8abd6ec6cc241ea82038f63b19551c905 | |
parent | f692ba3c2604e522a04c333c7404fc6bd66f8336 (diff) | |
download | org-mode-d637546804727d2fb4eacf3086a923c645efd2e5.tar.gz |
Mark listitifed headings wiht custom id
* lisp/org-html.el (org-html-level-start): Mark listified headings
with a custom id.
Patch by Jambunathan
-rw-r--r-- | lisp/org-html.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/org-html.el b/lisp/org-html.el index 4305af2..d1fe06d 100644 --- a/lisp/org-html.el +++ b/lisp/org-html.el @@ -2320,10 +2320,9 @@ When TITLE is nil, just close all open levels." (extra-class (and title (org-get-text-property-any 0 'html-container-class title))) (preferred (and target (cdr (assoc target org-export-preferred-target-alist)))) - (remove (or preferred target)) (l org-level-max) snumber snu href suffix) - (setq extra-targets (remove remove extra-targets)) + (setq extra-targets (remove (or preferred target) extra-targets)) (setq extra-targets (mapconcat (lambda (x) (if (org-uuidgen-p x) (setq x (concat "ID-" x))) @@ -2362,12 +2361,13 @@ When TITLE is nil, just close all open levels." (progn (org-close-li) (if target - (insert (format "<li id=\"%s\">" target) extra-targets title "<br/>\n") + (insert (format "<li id=\"%s\">" (or preferred target)) + extra-targets title "<br/>\n") (insert "<li>" title "<br/>\n"))) (aset org-levels-open (1- level) t) (org-close-par-maybe) (if target - (insert (format "<ul>\n<li id=\"%s\">" target) + (insert (format "<ul>\n<li id=\"%s\">" (or preferred target)) extra-targets title "<br/>\n") (insert "<ul>\n<li>" title "<br/>\n")))) (aset org-levels-open (1- level) t) |