summaryrefslogtreecommitdiff
path: root/contrib/lisp/ox-freemind.el
diff options
context:
space:
mode:
authorSébastien Delafond <sdelafond@gmail.com>2014-07-13 13:35:29 +0200
committerSébastien Delafond <sdelafond@gmail.com>2014-07-13 13:35:29 +0200
commit40ce6b75e6245659a3a14622356e32e7dd1125dd (patch)
tree7d0051414493a78c84a3dfbec6143883c2ba8341 /contrib/lisp/ox-freemind.el
parente32a45ed36d6000db4b39171149072d11b77af72 (diff)
Imported Upstream version 8.2.1
Diffstat (limited to 'contrib/lisp/ox-freemind.el')
-rw-r--r--contrib/lisp/ox-freemind.el28
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)