From mboxrd@z Thu Jan 1 00:00:00 1970 From: Carsten Dominik Subject: Re: fix in org-publish-update-timestamp Date: Sat, 30 May 2009 07:00:02 +0200 Message-ID: References: <87d49shux1.fsf@gmail.com> Mime-Version: 1.0 (Apple Message framework v935.3) Content-Type: text/plain; charset=US-ASCII; format=flowed; delsp=yes Content-Transfer-Encoding: 7bit Return-path: Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1MAGg2-0005E9-SM for emacs-orgmode@gnu.org; Sat, 30 May 2009 01:00:14 -0400 Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1MAGfx-0005DZ-F2 for emacs-orgmode@gnu.org; Sat, 30 May 2009 01:00:13 -0400 Received: from [199.232.76.173] (port=45897 helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1MAGfx-0005DW-6w for emacs-orgmode@gnu.org; Sat, 30 May 2009 01:00:09 -0400 Received: from mail-ew0-f162.google.com ([209.85.219.162]:36576) by monty-python.gnu.org with esmtp (Exim 4.60) (envelope-from ) id 1MAGfw-000247-NO for emacs-orgmode@gnu.org; Sat, 30 May 2009 01:00:08 -0400 Received: by ewy6 with SMTP id 6so8084091ewy.42 for ; Fri, 29 May 2009 22:00:07 -0700 (PDT) In-Reply-To: <87d49shux1.fsf@gmail.com> 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: Richard KLINDA Cc: emacs-orgmode@gnu.org Applied, thanks - Carsten On May 29, 2009, at 3:59 PM, Richard KLINDA wrote: > I use the ~ character to denote my home directory in > org-publish-project-alist (:base-directory and :publishing-directory), > like: > > ,---- > | (setq org-publish-project-alist > | (list > | '("foo" . (:base-directory "~/doc/foo/" ... > `---- > > When directories are given this way and ORG-PUBLISH-UPDATE-TIMESTAMP > uses the touch command to update the timestamp, it doesn't work > because > Emacs should expand the ~/ into the home directory via EXPAND-FILE- > NAME. > > See the attached patch, Carsten please include this, thanks. > > diff --git a/lisp/org-publish.el b/lisp/org-publish.el > index c6c7421..399fdd3 100644 > --- a/lisp/org-publish.el > +++ b/lisp/org-publish.el > @@ -233,7 +233,7 @@ If there is no timestamp, create one." > (if (and (fboundp 'set-file-times) > (not newly-created-timestamp)) > (set-file-times timestamp-file) > - (call-process "touch" nil 0 nil timestamp-file)))) > + (call-process "touch" nil 0 nil (expand-file-name timestamp- > file))))) > > ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; > ;;; Mapping files to project names > > > -- > Richard > _______________________________________________ > 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