emacs-orgmode
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: [Orgmode] Re: Org-mode version 6.31trans; Exporting src blocks to La


From: Carsten Dominik
Subject: Re: [Orgmode] Re: Org-mode version 6.31trans; Exporting src blocks to LaTeX produces .tex file that fails to compile
Date: Fri, 2 Oct 2009 13:12:13 +0200

I have applied the patch, thanks.

- Carsten

On Oct 2, 2009, at 12:45 PM, Chris Gray wrote:

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)




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





reply via email to

[Prev in Thread] Current Thread [Next in Thread]