diff options
author | Nicolas Goaziou <n.goaziou@gmail.com> | 2010-11-04 08:03:48 +0100 |
---|---|---|
committer | Nicolas Goaziou <n.goaziou@gmail.com> | 2010-12-06 19:13:09 +0100 |
commit | cd70dc1038226e2031dc64cac201ab870a842b33 (patch) | |
tree | a2fd775ccd91ab69c14d710cfff856c32b24b1fb | |
parent | 1ce04c50572a243ff6c92342b3b15df121eeb857 (diff) | |
download | org-mode-cd70dc1038226e2031dc64cac201ab870a842b33.tar.gz |
inlinetasks: fix latex export wrt conversion to lists
* org-inlinetask.el (org-inlinetask-export-handler): Remove protection
from @<span class...> so it can be removed during LaTeX export.
-rw-r--r-- | lisp/org-inlinetask.el | 22 |
1 files changed, 10 insertions, 12 deletions
diff --git a/lisp/org-inlinetask.el b/lisp/org-inlinetask.el index 29d8c40..ab2fc76 100644 --- a/lisp/org-inlinetask.el +++ b/lisp/org-inlinetask.el @@ -183,15 +183,13 @@ Either remove headline and meta data, or do special formatting." (setq headline (concat (if (match-end 2) (concat - (org-add-props - (format - "@<span class=\"%s %s\"> %s@</span>" - (if (member (match-string 2 headline) - org-done-keywords) - "done" "todo") - (match-string 2 headline) - (match-string 2 headline)) - nil 'org-protected t) + (format + "@<span class=\"%s %s\"> %s@</span>" + (if (member (match-string 2 headline) + org-done-keywords) + "done" "todo") + (match-string 2 headline) + (match-string 2 headline)) " ") "") (match-string 4 headline))) (when content @@ -200,11 +198,11 @@ Either remove headline and meta data, or do special formatting." (if (string-match "[ \t\n]+\\'" content) (setq content (substring content 0 (match-beginning 0)))) (setq content (org-remove-indentation content)) - (if latexp (setq content (concat "\\quad \\\\\n" content))))) + (if latexp (setq content (concat "\\nbsp\\\\ \\quad " content))))) (insert (make-string (org-inlinetask-get-current-indentation) ?\ ) - "- ") + "- ") (setq indent (make-string (current-column) ?\ )) - (insert headline " ::") + (insert headline " :: ") (if content (insert (if htmlp " " (concat "\n" indent)) (mapconcat 'identity (org-split-string content "\n") |