Re: [patch] two bugs: one with comments and with exporting inline tasks

[Nicolas Goaziou <n.goaziou@gmail.com>]

[-- Attachment #1: Type: text/plain, Size: 107 bytes --]

Oh my...

Here is the third (and hopefully final) version of the patch.

Sorry for the noise.

-- Nicolas


[-- Attachment #2: 0001-inlinetasks-fix-latex-export-wrt-conversion-to-lists.patch --]
[-- Type: text/plain, Size: 2099 bytes --]

From a51b8a7919b935559a8716aa959851e7960d7ec4 Mon Sep 17 00:00:00 2001
From: Nicolas Goaziou <n.goaziou@gmail.com>
Date: Thu, 4 Nov 2010 08:03:48 +0100
Subject: [PATCH] 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.
---
 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 c000999..f3fcee9 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")
-- 
1.7.3.2


[-- Attachment #3: Type: text/plain, Size: 201 bytes --]

_______________________________________________
Emacs-orgmode mailing list
Please use `Reply All' to send replies to the list.
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode