ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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.
This commit is contained in:
Nicolas Goaziou 2010-11-04 08:03:48 +01:00
parent 1ce04c5057
commit cd70dc1038
1 changed files with 10 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
lisp/org-inlinetask.el
View File

@ -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")