[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Orgmode] Re: [BUG] nested blocks aren't protected on export
From: |
Eric Schulte |
Subject: |
[Orgmode] Re: [BUG] nested blocks aren't protected on export |
Date: |
Sun, 27 Jun 2010 19:42:24 -0700 |
User-agent: |
Gnus/5.13 (Gnus v5.13) Emacs/23.2 (gnu/linux) |
I've put together two patches which fix the problems I mention below.
I'd like to apply these patches, but I fear that they may cause
unanticipated export problems. I'd be much more comfortable if someone
who knows a little more about the exporters could take a look at these.
Thanks -- Eric
>From 47fcfd522294560dbe01f00b640631964e063cf0 Mon Sep 17 00:00:00 2001
From: Eric Schulte <address@hidden>
Date: Sun, 27 Jun 2010 19:35:34 -0700
Subject: [PATCH 1/2] org-exp: check for protection before removing comments
* lisp/org-exp.el (org-export-handle-comments): check for protection
before removing comments
---
lisp/org-exp.el | 6 ++++--
1 files changed, 4 insertions(+), 2 deletions(-)
diff --git a/lisp/org-exp.el b/lisp/org-exp.el
index 704c0b7..411557a 100644
--- a/lisp/org-exp.el
+++ b/lisp/org-exp.el
@@ -1650,8 +1650,10 @@ When it is nil, all comments will be removed."
(match-beginning 0) (match-end 0) '(org-protected t))
(replace-match (format commentsp (match-string 2)) t t))
(goto-char (1+ pos))
- (replace-match "")
- (goto-char (max (point-min) (1- pos)))))))
+ (org-if-unprotected
+ (replace-match "")
+ (goto-char (max (point-min) (1- pos))))))))
+
(defun org-export-mark-radio-links ()
"Find all matches for radio targets and turn them into internal links."
--
1.7.0.4
>From d422f564163e37c51d0727e2992b24b85caf54ea Mon Sep 17 00:00:00 2001
From: Eric Schulte <address@hidden>
Date: Sun, 27 Jun 2010 19:36:14 -0700
Subject: [PATCH 2/2] org-latex: check for protection before wrapping ": " lines
as verbatim
* lisp/org-latex.el (org-export-latex-fixed-width): check for
protection before wrapping ": " lines as verbatim
---
lisp/org-latex.el | 28 ++++++++++++++--------------
1 files changed, 14 insertions(+), 14 deletions(-)
diff --git a/lisp/org-latex.el b/lisp/org-latex.el
index 01a4b05..94f04e6 100644
--- a/lisp/org-latex.el
+++ b/lisp/org-latex.el
@@ -1537,20 +1537,20 @@ The conversion is made depending of STRING-BEFORE and
STRING-AFTER."
"When OPT is non-nil convert fixed-width sections to LaTeX."
(goto-char (point-min))
(while (re-search-forward "^[ \t]*:\\([ \t]\\|$\\)" nil t)
- (if opt
- (progn (goto-char (match-beginning 0))
- (insert "\\begin{verbatim}\n")
- (while (looking-at "^\\([ \t]*\\):\\(\\([ \t]\\|$\\).*\\)$")
- (replace-match (concat (match-string 1)
- (match-string 2)) t t)
- (forward-line))
- (insert "\\end{verbatim}\n\n"))
- (progn (goto-char (match-beginning 0))
- (while (looking-at "^\\([ \t]*\\):\\(\\([ \t]\\|$\\).*\\)$")
- (replace-match (concat "%" (match-string 1)
- (match-string 2)) t t)
- (forward-line))))))
-
+ (org-if-unprotected
+ (if opt
+ (progn (goto-char (match-beginning 0))
+ (insert "\\begin{verbatim}\n")
+ (while (looking-at "^\\([ \t]*\\):\\(\\([ \t]\\|$\\).*\\)$")
+ (replace-match (concat (match-string 1)
+ (match-string 2)) t t)
+ (forward-line))
+ (insert "\\end{verbatim}\n\n"))
+ (progn (goto-char (match-beginning 0))
+ (while (looking-at "^\\([ \t]*\\):\\(\\([ \t]\\|$\\).*\\)$")
+ (replace-match (concat "%" (match-string 1)
+ (match-string 2)) t t)
+ (forward-line)))))))
(defvar org-table-last-alignment) ; defined in org-table.el
(defvar org-table-last-column-widths) ; defined in org-table.el
--
1.7.0.4
"Eric Schulte" <address@hidden> writes:
> Hi,
>
> When exporting nested blocks, the results of the inner blocks are not
> fully protected from further exportation. For example, the following
> org-mode text
>
> ** protecting block bodies
> #+begin_src org
> ,#+begin_src emacs-lisp
> , (message "something")
> ,#+end_src
> #+end_src
>
> exports to the following LaTeX
>
> \section*{protecting block bodies}
> \label{sec-1}
>
> \begin{verbatim}
> (message "something")
> \end{verbatim}
>
> in which it looks like the "#+begin_src emacs-lisp" and the "#+end_src"
> lines are completely removed, and exports to the following html
> (newlines added for readability)
>
> <pre class="src src-org">
> <span class="org-org-meta-line">#+begin_src emacs-lisp</span>
> <span class="org-org-block"> (message "something")</span>
> <span class="org-org-meta-line">
> </pre>
>
> in which the #+begin_src line is in tact, but it appears everything
> following the end_src line (including the </span>) is removed.
>
> I've played around with adding 'org-protected properties during export
> but to no avail.
>
> Any suggestions are much appreciated.
>
> Thanks -- Eric
- [Orgmode] [BUG] nested blocks aren't protected on export, Eric Schulte, 2010/06/25
- [Orgmode] Re: [BUG] nested blocks aren't protected on export,
Eric Schulte <=
- Re: [Orgmode] Re: [BUG] nested blocks aren't protected on export, Carsten Dominik, 2010/06/28
- Re: [Orgmode] Re: [BUG] nested blocks aren't protected on export, Eric Schulte, 2010/06/28
- Re: [Orgmode] Re: [BUG] nested blocks aren't protected on export, Carsten Dominik, 2010/06/28
- Re: [Orgmode] Re: [BUG] nested blocks aren't protected on export, Eric Schulte, 2010/06/28
- Re: [Orgmode] Re: [BUG] nested blocks aren't protected on export, Eric Schulte, 2010/06/28
- Re: [Orgmode] Re: [BUG] nested blocks aren't protected on export, Carsten Dominik, 2010/06/29
- Re: [Orgmode] Re: [BUG] nested blocks aren't protected on export, Eric Schulte, 2010/06/29
- Re: [Orgmode] Re: [BUG] nested blocks aren't protected on export, Nicolas Goaziou, 2010/06/28
- Re: [Orgmode] Re: [BUG] nested blocks aren't protected on export, Eric Schulte, 2010/06/28
- Re: [Orgmode] Re: [BUG] nested blocks aren't protected on export, Nicolas Goaziou, 2010/06/28