Pere Quintana Seguí <pquint...@obsebre.es> writes: > 2011/9/8 Bernt Hansen <be...@norang.ca> >> >> Pere Quintana Seguí <pquint...@obsebre.es> writes: >> >> > Hi, >> > >> > I'm using Org-mode to publish my website. One of my site's pages has >> > a lot of sections and the number of sections is increasing rapidly. >> > >> > My problem is that the HTML exporter, in the Table of Contents, is >> > using the section numbers as anchors. As the section numbers change >> > with time, I can't get stable links across versions of the document. >> > >> > As many of the sections (headings) have id properties, I'd like the >> > HTML exporter to use them as anchor for the Table of Contents, when >> > available. >> > >> > Is this possible? I didn't find an answer in the manual. >> > >> > As an example. This is the document I'm working on: >> > http://pere.quintanasegui.com/diccionari-tecnologia.html#sec-2-78 >> > >> > As you can see, section 2.78, called RSS, has the anchor sec-2-78. If >> > the anchor was its id "04E3903E-EAF1-499F-98CD-9E3E4BA0806A", the >> > link would remain the same in the future. I don't mind if the URL is >> > not human readable. Sec-2-78 isn't human readable too. >> >> Hi Pere, >> >> You can manually provide CUSTOM_ID properties. These ids are used in >> the TOC. >> >> e.g. >> >> * Reminders >> :PROPERTIES: >> :CUSTOM_ID: Reminders >> :END: >> >> for >> >> http://doc.norang.ca/org-mode.html#Reminders > > OK, thanks for the tip. That's an option, but unfortunately it is not > automatic. > >> I don't know if there is a way to use the ID property automatically. > > Unfortunately I don't know lisp, so I can't modify org-mode to provide > this feature :'( > > If anyone is willing, I would be very grateful.
You might try this *untested* patch. It is against git master. How did you create ID properties for all entries? Have you exported your org-files to icalendar? And please, don't forget to backup your files!
diff --git a/lisp/org-html.el b/lisp/org-html.el index fde563b..806bbb9 100644 --- a/lisp/org-html.el +++ b/lisp/org-html.el @@ -1438,8 +1438,9 @@ lang=\"%s\" xml:lang=\"%s\"> (replace-regexp-in-string "\\." "-" (format "sec-%s" snumber))) (setq href (org-solidify-link-text - (or (cdr (assoc href - org-export-preferred-target-alist)) href))) + (or (cdr (assoc href org-export-preferred-target-alist)) + (cdr (assoc href org-export-id-target-alist)) + href))) (push (format (if todo @@ -2413,7 +2414,8 @@ When TITLE is nil, just close all open levels." (assoc target org-export-target-aliases))) (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)))) + (or (cdr (assoc target org-export-preferred-target-alist)) + (cdr (assoc target org-export-id-target-alist))))) (l org-level-max) (num (plist-get opt-plist :section-numbers)) snumber snu href suffix)
Regards, Olaf
