tec/org-mode
tec/org-mode
1
0
Fork 0
forked from mirrors/org-mode
Code Pull requests Releases Activity

babel: cleaning up leftovers from block exportation

Browse source 
* contrib/babel/lisp/org-babel-exp.el (org-export-blocks-postblock-hook):
  adding function to cleanup leftovers after block exportation

  (org-exp-res/src-name-cleanup): function to cleanup leftovers from
  block exportation
This commit is contained in:
Eric Schulte 2010-06-15 16:21:22 -07:00
parent e55c7d8b44
commit b7e50cdc3d
1 changed files with 16 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
contrib/babel/lisp/org-babel-exp.el
View file

@ -34,6 +34,7 @@
(org-export-blocks-add-block '(src org-babel-exp-src-blocks nil))
(add-to-list 'org-export-interblocks '(src org-babel-exp-inline-src-blocks))
(add-to-list 'org-export-interblocks '(lob org-babel-exp-lob-one-liners))
(add-hook 'org-export-blocks-postblock-hook 'org-exp-res/src-name-cleanup)
(defvar org-babel-function-def-export-keyword "function"
"When exporting a source block function, this keyword will
@ -113,6 +114,21 @@ options and are taken from `org-babel-defualt-inline-header-args'."
(setq end (+ end (- (length replacement) (length (match-string 1)))))
(replace-match replacement t t nil 1)))))
(defun org-exp-res/src-name-cleanup ()
"Cleanup leftover #+results and #+srcname lines as part of the
org export cycle. This should only be called after all block
processing has taken place."
(interactive)
(save-excursion
(goto-char (point-min))
(while (re-search-forward
(concat
"\\("org-babel-source-name-regexp"\\|"org-babel-result-regexp"\\)")
nil t)
(delete-region
(progn (beginning-of-line) (point))
(progn (end-of-line) (point))))))
(defun org-babel-in-example-or-verbatim ()
"Return true if the point is currently in an escaped portion of
an org-mode buffer code which should be treated as normal