From mboxrd@z Thu Jan 1 00:00:00 1970 From: Manuel Giraud Subject: Re: Babel for blogging Date: Mon, 18 Oct 2010 16:22:58 +0200 Message-ID: <871v7nmvgd.fsf@univ-nantes.fr> References: <87y69zqw20.fsf@univ-nantes.fr> <87ocavfkqu.fsf@gmail.com> <87pqvbm53q.wl%ucecesf@ucl.ac.uk> Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii Return-path: Received: from [140.186.70.92] (port=57418 helo=eggs.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1P7qcB-00009x-QY for emacs-orgmode@gnu.org; Mon, 18 Oct 2010 10:23:04 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1P7qcA-0006Ku-I7 for emacs-orgmode@gnu.org; Mon, 18 Oct 2010 10:23:03 -0400 Received: from smtp-tls2.univ-nantes.fr ([193.52.101.146]:42333 helo=smtp-tls.univ-nantes.fr) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1P7qcA-0006KB-DP for emacs-orgmode@gnu.org; Mon, 18 Oct 2010 10:23:02 -0400 In-Reply-To: <87pqvbm53q.wl%ucecesf@ucl.ac.uk> (Eric S. Fraga's message of "Sat, 16 Oct 2010 00:03:05 +0100") 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: Eric S Fraga Cc: emacs-orgmode@gnu.org Eric S Fraga writes: > On Fri, 15 Oct 2010 11:07:05 -0600, "Eric Schulte" wrote: >> >> Hi Manuel, >> >> The following works for me, it creates an index of all files in the same >> directory as the Org-mode file. >> >> --8<---------------cut here---------------start------------->8--- >> * index >> >> Create an index automatically with an elisp code block. >> >> #+begin_src emacs-lisp :exports results :results raw >> (mapconcat >> (lambda (file) >> (unless (file-directory-p file) >> (format "- [[%s][%s]]" (file-name-sans-extension file) file))) >> (directory-files (or default-directory >> (file-name-directory (buffer-file-name)))) >> "\n") >> #+end_src >> --8<---------------cut here---------------end--------------->8--- > > Maybe the format statement should look like this instead (swap the two > arguments to the format string around): > > : (format "- [[%s][%s]]" file (file-name-sans-extension file)))) > > Also, maybe change the link to include the current directory: > > : (format "- [[./%s][%s]]" file (file-name-sans-extension file)))) > > Just some thoughts late on a Friday night... ;-) Thanks that does the trick. But searching the org-mode source (version 7.01trans) , I discovered that this function is already here (called sitemap instead of index). So now, I can generate the correct sitemap with the following project: --8<---------------cut here---------------end--------------->8--- (setq org-publish-project-alist '(("orgfiles" :base-directory "~/org/" :base-extension "org" :publishing-directory "~/public_html/" :publishing-function org-publish-org-to-html :section-numbers nil :table-of-contents nil :auto-sitemap t :sitemap-title "Blog" :style "") ("css" :base-directory "~/org/" :base-extension "css" :publishing-directory "~/public_html/" :publishing-function org-publish-attachment) ("blog" :components ("orgfiles" "css")))) --8<---------------cut here---------------end--------------->8--- What's missing now is that the sitemap list is ordered alphabetically and I'd like to have it sorted by modification time or, even better, by there #+date tag. -- Manuel Giraud