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

ox-md: Fix TOC's internal links

Browse source 
* lisp/ox-md.el (org-md-headline): Use CUSTOM-ID when available.

TOC is generated using HTML export back-end, which links to headlines
through their custom ID, when available.  By anchoring that custom ID,
we make sure these links are not broken.

Reported-by: dbitouze@wanadoo.fr (Denis Bitouzé)
<http://permalink.gmane.org/gmane.emacs.orgmode/101344>
This commit is contained in:
Nicolas Goaziou 2015-09-20 21:50:50 +02:00
parent 54a65250a8
commit d70a0b6251
1 changed files with 6 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
lisp/ox-md.el
View file

@ -196,8 +196,9 @@ a communication channel."
(and char (format "[#%c] " char)))))
(anchor
(and (plist-get info :with-toc)
(org-html--anchor
(org-export-get-reference headline info) nil nil info)))
(format "<a id=\"%s\"></a>"
(or (org-element-property :CUSTOM_ID headline)
(org-export-get-reference headline info)))))
;; Headline text without tags.
(heading (concat todo priority title))
(style (plist-get info :md-headline-style)))
@ -213,7 +214,7 @@ a communication channel."
(car (last (org-export-get-headline-number
headline info))))
"."))))
(concat bullet (make-string (- 4 (length bullet)) ? ) heading tags
(concat bullet (make-string (- 4 (length bullet)) ?\s) heading tags
"\n\n"
(and contents
(replace-regexp-in-string "^" " " contents)))))
@ -224,7 +225,8 @@ a communication channel."
"\n\n"
contents))
;; Use "atx" style.
(t (concat (make-string level ?#) " " heading tags anchor "\n\n" contents))))))
(t (concat (make-string level ?#) " " heading tags anchor "\n\n"
contents))))))
;;;; Horizontal Rule