From mboxrd@z Thu Jan  1 00:00:00 1970
From: Bastien <bastien.guerry@wikimedia.fr>
Subject: Re: Re: [PATCH] can't :include files in org-publish-project-alist
Date: Thu, 02 Sep 2010 16:03:19 +0200
Message-ID: <87fwxs1bvc.fsf@gnu.org>
References: <87occwjb6k.fsf@kotik.lan>
	<18070.1282401296@gamaville.dokosmarshall.org>
	<87k4njkj6v.fsf@kotik.lan>
Mime-Version: 1.0
Content-Type: text/plain; charset=utf-8
Content-Transfer-Encoding: 8bit
Return-path: <emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org>
Received: from [140.186.70.92] (port=49572 helo=eggs.gnu.org)
	by lists.gnu.org with esmtp (Exim 4.43) id 1OrAPQ-0003KI-74
	for emacs-orgmode@gnu.org; Thu, 02 Sep 2010 10:04:57 -0400
Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.69)
	(envelope-from <bastienguerry@googlemail.com>) id 1OrANq-0006EX-C6
	for emacs-orgmode@gnu.org; Thu, 02 Sep 2010 10:03:19 -0400
Received: from mail-ww0-f49.google.com ([74.125.82.49]:46618)
	by eggs.gnu.org with esmtp (Exim 4.69)
	(envelope-from <bastienguerry@googlemail.com>) id 1OrANq-0006EQ-6x
	for emacs-orgmode@gnu.org; Thu, 02 Sep 2010 10:03:18 -0400
Received: by wwb24 with SMTP id 24so709284wwb.30
	for <emacs-orgmode@gnu.org>; Thu, 02 Sep 2010 07:03:17 -0700 (PDT)
In-Reply-To: <87k4njkj6v.fsf@kotik.lan> (=?utf-8?Q?=22=C5=81ukasz?=
	Stelmach"'s message of "Sat, 21 Aug 2010 18:46:16 +0200")
List-Id: "General discussions about Org-mode." <emacs-orgmode.gnu.org>
List-Unsubscribe: <http://lists.gnu.org/mailman/listinfo/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=unsubscribe>
List-Archive: <http://lists.gnu.org/archive/html/emacs-orgmode>
List-Post: <mailto:emacs-orgmode@gnu.org>
List-Help: <mailto:emacs-orgmode-request@gnu.org?subject=help>
List-Subscribe: <http://lists.gnu.org/mailman/listinfo/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=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: =?utf-8?Q?=C5=81ukasz?= Stelmach <lukasz.stelmach@iem.pw.edu.pl>
Cc: emacs-orgmode@gnu.org

Łukasz Stelmach <lukasz.stelmach@iem.pw.edu.pl> writes:

> Yes it was. I forgot to pull. However the part with appending "/" to b
> might still be valuable at least for building xm regexp. If
> :base-directory is set to "~/dydaktyka" (my example) then xm becomes
> "^/home/steelman/dydaktyka[^/]+\.\(org\)" which not necessarily makes
> sense. It may go like this
>
>    (xm (concat "^" b
>     (when (string-match "^[/]$" b) "/")
>     (if r ".+" "[^/]+")
>      "\\.\\(" x "\\)$")))

:base-directory now allows a directory name with no ending slash.

I did this in a slightly different way than the one you suggest:

,----
|  	  (let* ((r (plist-get (cdr prj) :recursive))
| -		 (b (expand-file-name (plist-get (cdr prj) :base-directory)))
| +		 (b (expand-file-name (file-name-as-directory
| +				       (plist-get (cdr prj) :base-directory))))
|  		 (x (or (plist-get (cdr prj) :base-extension) "org"))
`----

Thanks!

-- 
 Bastien