[Top][All Lists]

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

[Orgmode] Re: org export as twiki - Failure to export with error: (wrong

From: Baoqiu Cui
Subject: [Orgmode] Re: org export as twiki - Failure to export with error: (wrong-type-argument stringp nil)
Date: Fri, 05 Mar 2010 10:51:30 -0800
User-agent: Gnus/5.11 (Gnus v5.11) Emacs/22.3 (darwin)

Carsten Dominik <address@hidden> writes:

> Hi Baoqiu and Mario,
> clearly, writing =double[3][3]= is the correct solution to this problem.
> As for the behavior of [3][3], this is not clearly defined.  Neither
> the LaTeX
> nor the HTML exporter handle this case gracefully, as in producing
> meaningful output.
> Maybe the right thing would be to have them both treated as a footnote
> reference, but that would also require changes to org-footnote.el.
> These changes are not entirely
> trivial, as far as I can see now.
> So uness you are willing to dig into org-footnote.el to changes this,
> the
> easy solution would be to simply catch the problem we have now in the
> docbook exporter, so that it does not crash.

Thanks for the suggestion, Carsten.

Attached below please find the patch for the easy solution for the
DocBook exporter (HTML and LaTeX exporters do not report any visible
errors).  Note that this patch also includes another fix that I had in
my local branch to avoid empty "<listitem></listitem>" caused by inline

diff --git a/lisp/org-docbook.el b/lisp/org-docbook.el
index ab0a086..492a660 100644
--- a/lisp/org-docbook.el
+++ b/lisp/org-docbook.el
@@ -624,7 +624,7 @@ publishing directory."
          ;; End of quote section?
          (when (and inquote (string-match "^\\*+ " line))
-           (insert "]]>\n</programlisting>\n")
+           (insert "]]></programlisting>\n")
            (setq inquote nil))
          ;; Inside a quote section?
@@ -644,7 +644,7 @@ publishing directory."
                      (not (string-match "^[ \t]*\\(:.*\\)"
                                         (car lines))))
              (setq infixed nil)
-             (insert "]]>\n</programlisting>\n")
+             (insert "]]></programlisting>\n")
            (throw 'nextline nil))
@@ -912,7 +912,8 @@ publishing directory."
            (while (string-match "\\([^* \t].*?\\)\\[\\([0-9]+\\)\\]" line 
              (if (get-text-property (match-beginning 2) 'org-protected line)
                  (setq start (match-end 2))
-               (let ((num (match-string 2 line)))
+               (let* ((num (match-string 2 line))
+                      (footnote-def (assoc num footnote-list)))
                  (if (assoc num footref-seen)
                      (setq line (replace-match
                                  (format "%s<footnoteref linkend=\"%s%s\"/>"
@@ -924,9 +925,10 @@ publishing directory."
                                        (match-string 1 line)
-                                       (save-match-data
-                                         (org-docbook-expand
-                                          (cdr (assoc num footnote-list)))))
+                                       (if footnote-def
+                                           (save-match-data
+                                             (org-docbook-expand (cdr 
+                                         (format "FOOTNOTE DEFINITION NOT 
FOUND: %s" num)))
                                t t line))
                    (push (cons num 1) footref-seen))))))
@@ -1092,7 +1094,7 @@ publishing directory."
       ;; Properly close all local lists and other lists
       (when inquote
-       (insert "]]>\n</programlisting>\n")
+       (insert "]]></programlisting>\n")
       (when in-local-list
        ;; Close any local lists before inserting a new header line
@@ -1121,6 +1123,13 @@ publishing directory."
              "[ \r\n\t]*\\(<para>\\)[ \r\n\t]*</para>[ \r\n\t]*" nil t)
        (when (not (get-text-property (match-beginning 1) 'org-protected))
          (replace-match "\n")
+         ;; Avoid empty <listitem></listitem> caused by inline tasks.
+         ;; We should add an empty para to make everything valid.
+         (when (and (looking-at "</listitem>")
+                    (save-excursion
+                      (backward-char (length "<listitem>\n"))
+                      (looking-at "<listitem>")))
+           (insert "<para></para>"))
          (backward-char 1)))
       ;; Fill empty sections with <para></para>.  This is to make sure
       ;; that the DocBook document generated is valid and well-formed.
diff --git a/lisp/org-exp.el b/lisp/org-exp.el
index f20b511..91feb3c 100644
--- a/lisp/org-exp.el
+++ b/lisp/org-exp.el
@@ -2423,7 +2423,7 @@ INDENT was the original indentation of the block."
              (concat "\n#+BEGIN_DOCBOOK\n"
                      (org-add-props (concat "<programlisting><![CDATA["
-                                            "]]>\n</programlisting>\n")
+                                            "]]></programlisting>\n")
                          '(org-protected t))
             ((eq backend 'html)


reply via email to

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