diff options
author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2017-05-25 11:08:02 +0200 |
---|---|---|
committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2017-05-25 11:08:02 +0200 |
commit | 118ec40c53c1834f5af790e92443f9fc8c8eb169 (patch) | |
tree | 0e93d8963c0c4d1134f3aaa43d4ec48ef48e0658 | |
parent | f4803cfad4e33c4559f47214ff9967077231f774 (diff) | |
download | org-mode-118ec40c53c1834f5af790e92443f9fc8c8eb169.tar.gz |
ox-publish: Fix symlink publishing
* lisp/ox-publish.el (org-publish-file): Do not expand symlinks so as
to get proper publishing directory.
Reported-by: Julien Cubizolles <j.cubizolles@free.fr>
<http://permalink.gmane.org/gmane.emacs.orgmode/113611>
-rw-r--r-- | lisp/ox-publish.el | 19 |
1 files changed, 8 insertions, 11 deletions
diff --git a/lisp/ox-publish.el b/lisp/ox-publish.el index bd059e8..884d6bf 100644 --- a/lisp/ox-publish.el +++ b/lisp/ox-publish.el @@ -665,8 +665,7 @@ If NO-CACHE is not nil, do not initialize `org-publish-cache'. This is needed, since this function is used to publish single files, when entire projects are published (see `org-publish-projects')." - (let* ((filename (file-truename filename)) ;normalize name - (project + (let* ((project (or project (org-publish-get-project-from-filename filename) (user-error "File %S is not part of any known project" @@ -679,17 +678,15 @@ files, when entire projects are published (see (f (list f)))) (base-dir (file-name-as-directory - (file-truename - (or (plist-get project-plist :base-directory) - (user-error "Project %S does not have :base-directory defined" - (car project)))))) + (or (org-publish-property :base-directory project) + (user-error "Project %S does not have :base-directory defined" + (car project))))) (pub-base-dir (file-name-as-directory - (file-truename - (or (eval (plist-get project-plist :publishing-directory)) - (user-error - "Project %S does not have :publishing-directory defined" - (car project)))))) + (or (org-publish-property :publishing-directory project) + (user-error + "Project %S does not have :publishing-directory defined" + (car project))))) (pub-dir (file-name-directory (expand-file-name (file-relative-name filename base-dir) |