tentative synchronous export for batch mode

emacsorphanage · Jul 23, 2024 · c539038 · c539038
1 parent 34e6ea9
commit c539038
Showing 1 changed file with 18 additions and 13 deletions.
diff --git a/ox-pandoc.el b/ox-pandoc.el
@@ -1885,13 +1885,16 @@ If 0, target is file and converted file will automatically be opend."
         (org-pandoc-put-options `((epub-metadata ,meta-temp-file)))
         (with-temp-file meta-temp-file
           (insert org-pandoc-epub-meta))))
-    (let ((process
-           (org-pandoc-run input-file output-file format
-                           'org-pandoc-sentinel org-pandoc-option-table)))
-      (process-put process 'files (list input-file meta-temp-file css-temp-file))
-      (process-put process 'output-file output-file)
-      (process-put process 'local-hook-symbol local-hook-symbol)
-      (process-put process 'buffer-or-open buffer-or-open))))
+    (if noninteractive
+      (org-pandoc-run input-file output-file format
+                      'org-pandoc-sentinel org-pandoc-option-table)
+      (let ((process
+             (org-pandoc-run input-file output-file format
+                             'org-pandoc-sentinel org-pandoc-option-table)))
+        (process-put process 'files (list input-file meta-temp-file css-temp-file))
+        (process-put process 'output-file output-file)
+        (process-put process 'local-hook-symbol local-hook-symbol)
+        (process-put process 'buffer-or-open buffer-or-open)))))
 
 (defun org-pandoc-sentinel (process message)
   "PROCESS sentinel with MESSAGE.
@@ -1953,12 +1956,14 @@ when the process completes."
                        (ht-keys options))
             ,(expand-file-name input-file))))
     (message "Running pandoc with args: %s" args)
-    (let ((process
-           (apply 'start-process
-                  `("pandoc" ,(generate-new-buffer "*Pandoc*")
-                    ,org-pandoc-command ,@args))))
-      (set-process-sentinel process sentinel)
-      process)))
+    (if noninteractive
+      (apply 'call-process `(,org-pandoc-command nil nil nil ,@args))
+      (let ((process
+             (apply 'start-process
+                    `("pandoc" ,(generate-new-buffer "*Pandoc*")
+                      ,org-pandoc-command ,@args))))
+        (set-process-sentinel process sentinel)
+        process))))
 
 (defun org-pandoc-startup-check ()
   "Check the current pandoc version."