From c0d54a9a6b6573e89f0e433d618b224defb5f797 Mon Sep 17 00:00:00 2001 From: Eric Schulte Date: Wed, 7 Oct 2009 16:01:24 -0600 Subject: [PATCH] org-babel: Haskell lhs export: ensure all \[begin|end]{code} statements start at the first column --- contrib/babel/lisp/langs/org-babel-haskell.el | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/contrib/babel/lisp/langs/org-babel-haskell.el b/contrib/babel/lisp/langs/org-babel-haskell.el index d41c0587..25e297fa 100644 --- a/contrib/babel/lisp/langs/org-babel-haskell.el +++ b/contrib/babel/lisp/langs/org-babel-haskell.el @@ -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) -- 2.11.4.GIT