mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2025-01-25 20:15:22 +00:00
Code

* contrib/lisp/org-special-blocks.el

Browse Source 
(org-special-blocks-convert-latex-special-cookies): Allow arguments to
TeX macros
This commit is contained in:
Carsten Dominik 2010-06-22 14:51:48 +02:00
parent 36b6471858
commit 80531d8d71
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
contrib/lisp/org-special-blocks.el
View File

@ -64,13 +64,14 @@ seen. This is run after a few special cases are taken care of."
(defun org-special-blocks-convert-latex-special-cookies ()
"Converts the special cookies into LaTeX blocks."
(goto-char (point-min))
(while (re-search-forward "^ORG-\\(.*\\)-\\(START\\|END\\)$" nil t)
(while (re-search-forward "^ORG-\\([^ \t\n]*\\)[ \t]*\\(.*\\)-\\(START\\|END\\)$" nil t)
(replace-match
(if (equal (match-string 2) "START")
(concat "\\begin{" (match-string 1) "}")
(if (equal (match-string 3) "START")
(concat "\\begin{" (match-string 1) "}" (match-string 2))
(concat "\\end{" (match-string 1) "}"))
t t)))
(add-hook 'org-export-latex-after-blockquotes-hook
'org-special-blocks-convert-latex-special-cookies)