Export hyperlink targets for ID properties

Fix #24
2016-12-20 02:28:45 +09:00
parent 8cb87db251
commit 6f8f10ac31
1 changed files with 5 additions and 4 deletions
--- a/ox-rst.el
+++ b/ox-rst.el
@@ -693,11 +693,12 @@ holding contextual information."
            (make-string
             (if org-rst-headline-spacing (car org-rst-headline-spacing)
               (org-element-property :pre-blank headline)) ?\n))
-           (customid (org-element-property :CUSTOM_ID headline))
-           (label (when customid
-                    (format ".. _%s:\n\n" customid))))
+           (id (org-element-property :ID headline))
+           (customid (org-element-property :CUSTOM_ID headline)))
      (concat
-       (or label "")
+       (if customid
+           (format ".. _%s:\n\n" customid)
+         (if id (format ".. _%s:\n\n" id) ""))
       (org-rst--build-title headline info 'underline)
       "\n" pre-blanks
       contents))))