From mboxrd@z Thu Jan 1 00:00:00 1970 From: Sebastian Rose Subject: STill errorneous Treestyle sitemap Date: Fri, 31 Oct 2008 21:22:01 +0100 Message-ID: <490B68E9.5060302@gmx.de> Reply-To: sebastian_rose@gmx.de Mime-Version: 1.0 Content-Type: text/plain; charset=UTF-8; format=flowed Content-Transfer-Encoding: 7bit Return-path: Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1Kw0VB-0006Yl-Ko for emacs-orgmode@gnu.org; Fri, 31 Oct 2008 16:21:49 -0400 Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1Kw0V9-0006Xs-Lt for emacs-orgmode@gnu.org; Fri, 31 Oct 2008 16:21:48 -0400 Received: from [199.232.76.173] (port=43715 helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1Kw0V9-0006Xp-G4 for emacs-orgmode@gnu.org; Fri, 31 Oct 2008 16:21:47 -0400 Received: from mail.gmx.net ([213.165.64.20]:43108) by monty-python.gnu.org with smtp (Exim 4.60) (envelope-from ) id 1Kw0V9-00074Z-DF for emacs-orgmode@gnu.org; Fri, 31 Oct 2008 16:21:47 -0400 List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: "[emacs-orgmode]" Hi, mea culpa: The treestyle sitemap is still wrong. This tree pub | +--A | | | +-- B | | | | | +-- file1 | | | +-- C | | | +-- file2 _looks_ great in the sitemap, but _is_ wrong. The link to C looks like this: C instead of C Two different ways to fix this: A) Don't link to directories anymore. I think this is quite a good solution, since in production evironments those links will not work, if no index.html exists in the directory. If it exists, it will be in the index file anyway. diff --git a/lisp/org-publish.el b/lisp/org-publish.el index e0cf4bd..d2b4c1f 100644 --- a/lisp/org-publish.el +++ b/lisp/org-publish.el @@ -656,9 +656,8 @@ Default for INDEX-FILENAME is 'index.org'." (pop subdirs)) (dolist (d subdirs) (setq subdir (concat subdir d "/")) - (insert (concat indent-str " + [[file:" - subdir "][" d "/]]\n")) - (setq indent-str (make-string + (insert (concat indent-str " + " d "\n")) + (setq indent-str (make-string (+ (length indent-str) 2) ?\ ))))))) ;; This is common to 'flat and 'tree (insert (concat indent-str " + [[file:" link "][" B) Fix it, so that the link is correct (no patch yet :-( ). What do you think? Sebastian