fix in org-publish-update-timestamp

fix in org-publish-update-timestamp

[Richard KLINDA]

[-- Attachment #1: Type: text/plain, Size: 522 bytes --]

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.


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: touch-fix.patch --]
[-- Type: text/x-diff, Size: 568 bytes --]

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


[-- Attachment #3: Type: text/plain, Size: 13 bytes --]


-- 
Richard

[-- Attachment #4: Type: text/plain, Size: 204 bytes --]

_______________________________________________
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

Re: fix in org-publish-update-timestamp

[Carsten Dominik]

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