emacs-orgmode
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Orgmode] Sitemap patch - better version


From: Sebastian Rose
Subject: [Orgmode] Sitemap patch - better version
Date: Mon, 16 Jun 2008 01:31:44 +0200
User-agent: Mozilla-Thunderbird 2.0.0.9 (X11/20080110)

Hello again,

this is a reworked version of the last patch I sent for the function org-publish-org-index. It addresses a weekness of the former patch:


* foodir/
   + bardir/
      - somefile
* g


instead of


* g
* foodir/bardir/
   + somefile


Note that foodir/ is empty.
Indentation should now correct in all cases.
The sitemap now lists the files in alphabetical order.


M-x org-version RET
Org-mode version 6.04c

Sorry, could not pull the current version (git repo not reachable).

Diff was created using
git-diff org-publish.el
diff --git a/lisp/org-publish.el b/lisp/org-publish.el
index 54d489c..2c3ff7b 100644
--- a/lisp/org-publish.el
+++ b/lisp/org-publish.el
@@ -583,8 +583,10 @@ 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))
+        (files (nreverse (org-publish-get-base-files project exclude-regexp)))
         (index-filename (concat dir (or index-filename "index.org")))
         (index-title (or (plist-get project-plist :index-title)
                          (concat "Index for project " (car project))))
@@ -597,15 +599,34 @@ 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= localdir dir)
+              (setq indent-str (make-string 2 ? ))
+            (let ((subdirs
+                   (split-string
+                    (directory-file-name
+                     (file-name-directory
+                      (file-relative-name localdir dir))) "/"))
+                  (subdir ""))
+              (setq indent-str (make-string 2 ? ))
+              (dolist (d subdirs)
+                (setq subdir (concat subdir d "/"))
+                (insert (concat indent-str " + [[file:" subdir "][" d "/]]\n"))
+                (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: sebastian_rose.vcf
Description: Vcard


reply via email to

[Prev in Thread] Current Thread [Next in Thread]