diff options
author | Sébastien Delafond <sdelafond@gmail.com> | 2014-07-13 13:35:29 +0200 |
---|---|---|
committer | Sébastien Delafond <sdelafond@gmail.com> | 2014-07-13 13:35:29 +0200 |
commit | 40ce6b75e6245659a3a14622356e32e7dd1125dd (patch) | |
tree | 7d0051414493a78c84a3dfbec6143883c2ba8341 /contrib/lisp/ox-freemind.el | |
parent | e32a45ed36d6000db4b39171149072d11b77af72 (diff) |
Imported Upstream version 8.2.1
Diffstat (limited to 'contrib/lisp/ox-freemind.el')
-rw-r--r-- | contrib/lisp/ox-freemind.el | 28 |
1 files changed, 10 insertions, 18 deletions
diff --git a/contrib/lisp/ox-freemind.el b/contrib/lisp/ox-freemind.el index 4e90eff..aafd714 100644 --- a/contrib/lisp/ox-freemind.el +++ b/contrib/lisp/ox-freemind.el @@ -314,14 +314,13 @@ will result in following node: (plist-get info :title)) (t (error "Shouldn't come here.")))) (element-contents (org-element-contents element)) - (section (assoc 'section element-contents)) + (section (assq 'section element-contents)) (section-contents - (let* ((translations - (nconc (list (cons 'section - (lambda (section contents info) - contents))) - (plist-get info :translate-alist)))) - (org-export-data-with-translations section translations info))) + (let ((backend (org-export-create-backend + :parent (org-export-backend-name + (plist-get info :back-end)) + :transcoders '((section . (lambda (e c i) c)))))) + (org-export-data-with-backend section backend info))) (itemized-contents-p (let ((first-child-headline (org-element-map element-contents 'headline 'identity info t))) @@ -519,17 +518,10 @@ file-local settings. Return output file's name." (interactive) (let* ((extension (concat ".mm" )) - (file (org-export-output-file-name extension subtreep))) - (if async - (org-export-async-start - (lambda (f) (org-export-add-to-stack f 'freemind)) - (let ((org-export-coding-system 'utf-8)) - `(expand-file-name - (org-export-to-file - 'freemind ,file ,subtreep ,visible-only ,body-only ',ext-plist)))) - (let ((org-export-coding-system 'utf-8)) - (org-export-to-file - 'freemind file subtreep visible-only body-only ext-plist))))) + (file (org-export-output-file-name extension subtreep)) + (org-export-coding-system 'utf-8)) + (org-export-to-file 'freemind ,file + async subtreep visible-only body-only ext-plist))) (provide 'ox-freemind) |