; -*- Mode: Emacs-Lisp ; Coding: utf-8 -*-

;; ox.el
;; バックグラウンドで変換する
;; http://d.hatena.ne.jp/rubikitch/20101107/org2html
;; (setq org-export-run-in-background t)  ; => old version?
(setq org-export-in-background t)

;; org-modeで別のディレクトリにHTML他エクスポートする | sshfs支援
;; http://emacs.rubikitch.com/org-export-to-html-another-directory/

(defvar org-export-directory nil)

(defun org-export-output-file-name--set-directory
    (orig-fn extension &optional subtreep pub-dir)
  (setq pub-dir (or pub-dir org-export-directory))
  (funcall orig-fn extension subtreep pub-dir))

(advice-add
 'org-export-output-file-name :around
 'org-export-output-file-name--set-directory)

(setq org-export-directory nil)