mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-09-29 22:47:56 +00:00
Code Releases Activity

org-babel: Haskell lhs export: ensure all \[begin|end]{code} statements start at the first column

Browse source
This commit is contained in:
Eric Schulte 2009-10-07 16:01:24 -06:00
parent 27df66d8da
commit c0d54a9a6b
1 changed files with 4 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
contrib/babel/lisp/langs/org-babel-haskell.el
View file

@ -174,6 +174,10 @@ constructs (header arguments, no-web syntax etc...) are ignored."
(find-file tmp-tex-file)
(goto-char (point-min)) (forward-line 2)
(insert "%include polycode.fmt\n")
;; ensure all \begin/end{code} statements start at the first column
(while (re-search-forward "^[ \t]+\\\\begin{code}[^\000]+\\\\end{code}" nil t)
(replace-match (save-match-data (org-remove-indentation (match-string 0)))
t t))
(setq contents (buffer-string))
(save-buffer) (kill-buffer))
(delete-file tmp-tex-file)