[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Orgmode] Re: Org-mode version 6.31trans; Exporting src blocks to LaTeX
From: |
Chris Gray |
Subject: |
[Orgmode] Re: Org-mode version 6.31trans; Exporting src blocks to LaTeX produces .tex file that fails to compile |
Date: |
Fri, 02 Oct 2009 12:45:43 +0200 |
User-agent: |
Gnus/5.13 (Gnus v5.13) Emacs/23.0.94 (gnu/linux) |
Carsten Dominik wrote:
> Hi Chris,
> the error was on my side - I did not remove the backend-specific
> markers after selecting the content. This is now again done
> correctly, so your patch should not be needed. But maybe you
> want it in anyway, with an empty configuration variable?
Famous last words, but I don't see how it can hurt. :)
Cheers,
Chris
> - Carsten
> On Oct 2, 2009, at 11:36 AM, Chris Gray wrote:
>> Hi,
>> The problem was with my org-special-blocks contrib package. The
>> attached patch fixes it. Sorry for the noise.
>> Cheers,
>> Chris
>> commit 4d327b5f1e80ea0e493aa70d09c53042216a1390
>> Author: Chris Gray <address@hidden>
>> Date: Fri Oct 2 11:31:21 2009 +0200
>> Added a variable to ignore some blocks.
>> Modified contrib/lisp/org-special-blocks.el
>> diff --git a/contrib/lisp/org-special-blocks.el b/contrib/lisp/org-
>> special-blocks.el
>> index b8ce4d5..af50b30 100644
>> --- a/contrib/lisp/org-special-blocks.el
>>>>> b/contrib/lisp/org-special-blocks.el
>> @@ -40,17 +40,23 @@
>> ;; user to add this class to his or her stylesheet if this div is to
>> ;; mean anything.
>>> (defvar org-special-blocks-ignore-regexp "^\\(LaTeX\\|HTML\\)$"
>>> "A regexp indicating the names of blocks that should be ignored
>>> by org-special-blocks. These blocks will presumably be
>>> interpreted by other mechanisms.")
>> (defun org-special-blocks-make-special-cookies ()
>> "Adds special cookies when #+begin_foo and #+end_foo tokens are
>> seen. This is run after a few special cases are taken care of."
>> (when (or htmlp latexp)
>> (goto-char (point-min))
>> (while (re-search-forward "^#\\+\\(begin\\|end\\)_\\(.*\\)$" nil
>> t)
>> - (replace-match
>> - (if (equal (downcase (match-string 1)) "begin")
>> - (concat "ORG-" (match-string 2) "-START")
>> - (concat "ORG-" (match-string 2) "-END"))
>> - t t))))
>>> (unless (string-match-p org-special-blocks-ignore-regexp
>> (match-string 2))
>>> (replace-match
>>> (if (equal (downcase (match-string 1)) "begin")
>>> (concat "ORG-" (match-string 2) "-START")
>>> (concat "ORG-" (match-string 2) "-END"))
>>> t t)))))
>> (add-hook 'org-export-preprocess-after-blockquote-hook
>> 'org-special-blocks-make-special-cookies)