Patch for Sitemap: org-publish-org-index

Patch for Sitemap: org-publish-org-index

[Sebastian Rose]

[-- Attachment #1: Type: text/plain, Size: 673 bytes --]

Hi,

the creation of the sitemap was not working for my project when publishing.

There were two bugs:

* The title of the page was made from index-file-name and a broken link.
* When publishing recursively, the links to files were not working 
(missing relative path)

The appended patch (in horror-lisp :-) fixes these two bugs. I diffed 
against the current git version (using 'git-diff lisp/org-publish.el').

Additionally subdirectories get an extra link with a '/' appended.
The files and directories in subdirectories are indented, so the tree 
structure of the published project is visible.


I know the code looks terrible, but it works just fine here.


Regards,

[-- Attachment #2: org-publish.diff --]
[-- Type: text/x-patch, Size: 2583 bytes --]

diff --git a/lisp/org-publish.el b/lisp/org-publish.el
index 54d489c..40553f1 100644
--- a/lisp/org-publish.el
+++ b/lisp/org-publish.el
@@ -583,6 +583,8 @@ Default for INDEX-FILENAME is 'index.org'."
   (let* ((project-plist (cdr project))
 	 (dir (file-name-as-directory
 	       (plist-get project-plist :base-directory)))
+     (localdir (file-name-directory dir))
+     (indent-str (make-string 2 ? ))
 	 (exclude-regexp (plist-get project-plist :exclude))
 	 (files (org-publish-get-base-files project exclude-regexp))
 	 (index-filename (concat dir (or index-filename "index.org")))
@@ -597,15 +599,35 @@ Default for INDEX-FILENAME is 'index.org'."
     (with-temp-buffer
       (insert (concat index-title "\n\n"))
       (while (setq file (pop files))
-	(let ((fn (file-name-nondirectory file)))
+	(let ((fn (file-name-nondirectory file))
+          (link (file-relative-name file dir))
+          (oldlocal localdir))
 	  ;; index shouldn't index itself
-	  (unless (string= fn ifn)
-	    (insert (concat " + [[file:" fn "]["
+      (unless (string= fn ifn)
+        (setq localdir (concat (file-name-as-directory dir) (file-name-directory link)))
+        (unless (string= localdir oldlocal)
+          (if (string= (file-name-directory (directory-file-name localdir))
+                       (file-name-directory (directory-file-name oldlocal)))
+              (progn                    ; next subdir, same parent
+                (setq indent-str (make-string (- (length indent-str) 2) ? ))
+                (insert (concat indent-str " + [[file:" (file-relative-name localdir dir)
+                                "][" (file-relative-name localdir dir) "]]\n"))
+                (setq indent-str (make-string (+ (length indent-str) 2) ? )))
+            (if (> (length localdir) (length oldlocal))
+                (progn                  ; entering deeper subdir
+                  (insert (concat indent-str " + [[file:" (file-relative-name localdir dir)
+                                  "][" (file-relative-name localdir dir) "]]\n"))
+                  (setq indent-str (make-string (+ (length indent-str) 2) ? )))
+                                        ; up directory
+              (setq indent-str (make-string (- (length indent-str) 2) ? )))))
+        (insert (concat indent-str " + [[file:" link "]["
 			    (file-name-sans-extension fn)
 			    "]]\n")))))
       (write-file index-filename)
       (kill-buffer (current-buffer)))))
 
+
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;; Interactive publishing functions
 

[-- Attachment #3: sebastian_rose.vcf --]
[-- Type: text/x-vcard, Size: 499 bytes --]

begin:vcard
fn:Sebastian Rose
n:Rose;Sebastian
email;internet:sebastian_rose@gmx.de
title:Fachinformatiker/Anwendendungsentwicklung
tel;cell:+49 173 / 83 93 417
note;quoted-printable:Entwicklung  von Internetanwendungen und Programmen  mit  freien  Werkzeu=
	gen  und Bibliotheken.=0D=0A=
	=0D=0A=
	PHP, Java, C/C++,  Bash,  Perl,  Apache, MySQL,  PostgreSQL, xt::commerce=
	, Typo3, Server,  Netzwerk,  Desktop, Datenbank, gtkmm=0D=0A=
	
x-mozilla-html:FALSE
version:2.1
end:vcard


[-- Attachment #4: Type: text/plain, Size: 204 bytes --]

_______________________________________________
Emacs-orgmode mailing list
Remember: use `Reply All' to send replies to the list.
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode