summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAaron Ecay <aaronecay@gmail.com>2014-06-21 21:54:32 -0400
committerAaron Ecay <aaronecay@gmail.com>2014-06-21 21:54:32 -0400
commitf05216987dafe407db790f4d738994b6ffa4426a (patch)
tree52dd9435b3435a929890ba207fb9bd2ac96f6720
parentc4ceeb34f1bb8930de02b2f92a177fc4939f3612 (diff)
downloadorg-mode-f05216987dafe407db790f4d738994b6ffa4426a.tar.gz
contrib/lisp/ox-extra.el: fix typos/thinkos
-rw-r--r--contrib/lisp/ox-extra.el57
1 files changed, 29 insertions, 28 deletions
diff --git a/contrib/lisp/ox-extra.el b/contrib/lisp/ox-extra.el
index 187727b..f4f0b76 100644
--- a/contrib/lisp/ox-extra.el
+++ b/contrib/lisp/ox-extra.el
@@ -46,36 +46,37 @@
(require 'ox)
(eval-when-compile (require 'cl))
-(defun org-latex-header-blocks-filter ()
- (let ((positions
- (org-element-map (org-element-parse-buffer 'greater-element nil) 'export-block
- (lambda (block)
- (when (and (string= (org-element-property :type block) "LATEX")
- (string= (org-export-read-attribute
- :header block :header)
- "yes"))
- (list (org-element-property :begin block)
- (org-element-property :end block)
- (org-element-property :post-affiliated block)))))))
- (mapc (lambda (pos)
- (goto-char (nth 2 pos))
- (destructuring-bind
- (beg end &rest ignore)
- (org-edit-src-find-region-and-lang)
- (let ((contents-lines (split-string
- (buffer-substring-no-properties beg end)
- "\n")))
- (delete-region (nth 0 pos) (nth 1 pos))
- (dolist (line contents-lines)
- (insert (concat "#+latex_header: "
- (replace-regexp-in-string "\\` *" "" line)
- "\n"))))))
- ;; go in reverse, to avoid wrecking the numeric positions
- ;; earlier in the file
- (reverse positions))))
+(defun org-latex-header-blocks-filter (backend)
+ (when (org-export-derived-backend-p backend 'latex)
+ (let ((positions
+ (org-element-map (org-element-parse-buffer 'greater-element nil) 'export-block
+ (lambda (block)
+ (when (and (string= (org-element-property :type block) "LATEX")
+ (string= (org-export-read-attribute
+ :header block :header)
+ "yes"))
+ (list (org-element-property :begin block)
+ (org-element-property :end block)
+ (org-element-property :post-affiliated block)))))))
+ (mapc (lambda (pos)
+ (goto-char (nth 2 pos))
+ (destructuring-bind
+ (beg end &rest ignore)
+ (org-edit-src-find-region-and-lang)
+ (let ((contents-lines (split-string
+ (buffer-substring-no-properties beg end)
+ "\n")))
+ (delete-region (nth 0 pos) (nth 1 pos))
+ (dolist (line contents-lines)
+ (insert (concat "#+latex_header: "
+ (replace-regexp-in-string "\\` *" "" line)
+ "\n"))))))
+ ;; go in reverse, to avoid wrecking the numeric positions
+ ;; earlier in the file
+ (reverse positions)))))
(defconst ox-extras
- '((latex-header-blocks org-latex-latex-header-blocks-filter org-export-before-parsing-hook))
+ '((latex-header-blocks org-latex-header-blocks-filter org-export-before-parsing-hook))
"A list of org export extras that can be enabled.
Should be a list of items of the form (NAME FN HOOK). NAME is a