From 3ada986ba37d1718df3bad4b0ed39e339c193116 Mon Sep 17 00:00:00 2001
From: Nicolas Goaziou <n.goaziou@gmail.com>
Date: Wed, 4 Jan 2012 23:02:46 +0100
Subject: [PATCH] contrib/lisp/org-export: Make export to file compatible with
 org-publish

* contrib/lisp/org-export.el (org-export-to-file): Automatically
  retrieve output file name.  Also add a PUB-DIR optional argument.
---
 contrib/lisp/org-export.el | 63 +++++++++++++++++++++++++-------------
 1 file changed, 41 insertions(+), 22 deletions(-)

diff --git a/contrib/lisp/org-export.el b/contrib/lisp/org-export.el
index 2a613b5d3..65f205580 100644
--- a/contrib/lisp/org-export.el
+++ b/contrib/lisp/org-export.el
@@ -2017,16 +2017,12 @@ Return buffer."
       (goto-char (point-min)))
     buffer))
 
-(defun org-export-to-file (backend filename &optional post-process subtreep
-                                   visible-only body-only ext-plist)
+(defun org-export-to-file (backend &optional post-process subtreep visible-only
+				   body-only ext-plist pub-dir)
   "Call `org-export-as' with output to a specified file.
 
 BACKEND is the back-end used for transcoding, as a symbol.
 
-FILENAME is the output file name.  If it already exists, it will
-be erased first, unless it isn't writable, in which case an error
-will be returned.  Otherwise, the file will be created.
-
 Optional argument POST-PROCESS, when non-nil, is a function
 applied to the output file.  It expects one argument: the file
 name, as a string.  It can be used to call shell commands on that
@@ -2036,22 +2032,45 @@ Optional arguments SUBTREEP, VISIBLE-ONLY, BODY-ONLY and
 EXT-PLIST are similar to those used in `org-export-as', which
 see.
 
-Return file name."
-  ;; Checks for file and directory permissions.
-  (cond
-   ((not (file-exists-p filename))
-    (let ((dir (or (file-name-directory filename) default-directory)))
-      (unless (file-writable-p dir) (error "Output directory not writable"))))
-   ((not (file-writable-p filename)) (error "Output file not writable")))
-  ;; All checks passed: insert contents to a temporary buffer and
-  ;; write it to the specified file.
-  (let ((out (org-export-as backend subtreep visible-only body-only ext-plist)))
-    (with-temp-buffer
-      (insert out)
-      (write-file filename)))
-  (when post-process (funcall post-process filename))
-  ;; Return value.
-  filename)
+When optional argument PUB-DIR is set, use it as the publishing
+directory.
+
+Return output file's name."
+  ;; First get output directory and output file name.
+  (let ((out-file
+	 (concat (file-name-as-directory (or pub-dir "."))
+		 ;; Output file name either comes from
+		 ;; EXPORT_FILE_NAME sub-tree property, assuming input
+		 ;; is narrowed to said sub-tree, or to the name of
+		 ;; buffer's associated file.
+		 (file-name-sans-extension
+		  (or (and subtreep
+			   (org-entry-get
+			    (save-excursion
+			      (ignore-errors
+				(org-back-to-heading (not visible-only))
+				(point)))
+			    "EXPORT_FILE_NAME" t))
+		      (file-name-nondirectory
+		       (or (buffer-file-name (buffer-base-buffer))
+			   (error "Output file's name undefined")))))
+		 ".tex")))
+    ;; Checks for file and directory permissions.
+    (cond
+     ((not (file-exists-p out-file))
+      (unless (file-writable-p (or pub-dir "."))
+	(error "Output directory not writable")))
+     ((not (file-writable-p out-file)) (error "Output file not writable")))
+    ;; All checks passed: insert contents to a temporary buffer and
+    ;; write it to the specified file.
+    (let ((out (org-export-as
+		backend subtreep visible-only body-only ext-plist)))
+      (with-temp-buffer
+	(insert out)
+	(write-file out-file)))
+    (when post-process (funcall post-process out-file))
+    ;; Return full path.
+    out-file))
 
 (defmacro org-export-with-current-buffer-copy (&rest body)
   "Apply BODY in a copy of the current buffer.