[Orgmode] Re: Org-mode version 6.31trans; Exporting src blocks to LaTeX produces .tex file that fails to compile

[Chris Gray]

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)



Chris Gray wrote:

> Eric Schulte wrote:

> Hi Eric,


>> I tried to recreate this problem but was unable to do so on my
>> computer.  To recreate I exported

>> #+srcname: determine the neighbors of the segments that the bisector hits
>> #+begin_src lua :tangle no :exports code
>>   local s1, s2 = intersecting_segs[1], intersecting_segs[2]
>>   local n1 = table_find_segment(cell.neighbors, s1)
>>   local n2 = table_find_segment(cell.neighbors, s2)
>> #+end_src

>> with my personal Emacs configuration and I got the following in the
>> resulting .tex file

>> #+begin_example
>> \lstset{language=lua}
>> \begin{lstlisting}
>> local s1, s2 = intersecting_segs[1], intersecting_segs[2]
>> local n1 = table_find_segment(cell.neighbors, s1)
>> local n2 = table_find_segment(cell.neighbors, s2)
>> \end{lstlisting}
>> #+end_example

> Are you exporting to LaTeX or some intermediate org-based format?  I am
> just using C-c C-e L to export.  Should I be using an org-babel command?

>> note that Org-babel shouldn't have any effect here as it currently
>> doesn't recognize the lua language.

> Sorry, I should have been more clear about that.  I have added the
> following to my setup.

> (org-babel-add-interpreter "lua")

> (add-to-list 'org-babel-tangle-langs '("lua" "lua" "#!/usr/bin/env lua"))


>> Sorry I can't be of more help.  Maybe try with emacs -Q and
>> incrementally add your personal configuration until the problem
>> re-appears.

> Will do.

> Cheers,
> Chris



> _______________________________________________
> Emacs-orgmode mailing list
> Remember: use `Reply All' to send replies to the list.
> address@hidden
> http://lists.gnu.org/mailman/listinfo/emacs-orgmode


--