mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-07-16 19:16:26 +00:00
Code Releases Activity

inlinetasks: fix latex export wrt conversion to lists

Browse source 
* 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

4
lisp/org-inlinetask.el
View file

@ -183,7 +183,6 @@ Either remove headline and meta data, or do special formatting."
(setq headline (concat (setq headline (concat
(if (match-end 2) (if (match-end 2)
(concat (concat
(org-add-props
(format (format
"@<span class=\"%s %s\"> %s@</span>" "@<span class=\"%s %s\"> %s@</span>"
(if (member (match-string 2 headline) (if (member (match-string 2 headline)
@ -191,7 +190,6 @@ Either remove headline and meta data, or do special formatting."
"done" "todo") "done" "todo")
(match-string 2 headline) (match-string 2 headline)
(match-string 2 headline)) (match-string 2 headline))
nil 'org-protected t)
" ") "") " ") "")
(match-string 4 headline))) (match-string 4 headline)))
(when content (when content
@ -200,7 +198,7 @@ Either remove headline and meta data, or do special formatting."
(if (string-match "[ \t\n]+\\'" content) (if (string-match "[ \t\n]+\\'" content)
(setq content (substring content 0 (match-beginning 0)))) (setq content (substring content 0 (match-beginning 0))))
(setq content (org-remove-indentation content)) (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) ?\ ) (insert (make-string (org-inlinetask-get-current-indentation) ?\ )
"- ") "- ")
(setq indent (make-string (current-column) ?\ )) (setq indent (make-string (current-column) ?\ ))