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

From: Nicolas Goaziou <n.goaziou@gmail.com>
To: Eric S Fraga <ucecesf@ucl.ac.uk>
Cc: Emacs Org mode mailing list <emacs-orgmode@gnu.org>
Subject: Re: [bug] two bugs: one with comments and with exporting	inline tasks
Date: Thu, 04 Nov 2010 08:41:08 +0100	[thread overview]
Message-ID: <87mxppcz8r.wl%n.goaziou@gmail.com> (raw)
In-Reply-To: <8739rjl3s6.fsf@ucl.ac.uk>

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

Hello,

>>>>> Eric S Fraga writes:

> I have done so and there's some interesting behaviour. Here is a
> summary of 4 different results exporting essentially the same
> content for the attached org file:

> 1. export the whole file (C-cC-ed) produces a document with all the
> content but with the inline task defining a latex =\item= with a
> strange label (as indicated in my earlier message).

> 2. go to the headline and select the sub-tree (C-c@) and then export
> (C-cC-ed) generates a PDF with only the text up to the start (but
> not including) of the inline task.

> 3. place the cursor on *point 1* and export the sub-tree (C-cC-e1d)
> generates the same output as the previous point.

> 4. finally, place the cursor on *point 2* and export the sub-tree
> (C-cC-e1d) exports only the text *after* the inline task.

I have made an attempt to solve the first problem. Please have a look
at the provided patch.

As I didn't know what inline tasks should like in latex, it is for now
a description list separated from its body (if any) with a newline.
This doesn't look so good but, well, if there is better as a default
value, tell me. Note that, AFAICS, there is no way to configure the
appearance either.

The others problems look hairier to me.

Regards,

-- Nicolas


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

From de9453852106fbdb542fa4751c355fd02da052bd 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 1/2] 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.
  Remove terminator as it is already handled by org-exp.el.
---
 lisp/org-inlinetask.el |   26 +++++++++++---------------
 1 files changed, 11 insertions(+), 15 deletions(-)

diff --git a/lisp/org-inlinetask.el b/lisp/org-inlinetask.el
index c000999..c305d56 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)))))
+	      (setq content (if latexp (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")
@@ -212,7 +210,7 @@ Either remove headline and meta data, or do special formatting."
 	    (insert "\n"))
 	  (insert indent)
 	  (backward-delete-char 2)
-	  (insert "THISISTHEINLINELISTTEMINATOR\n"))))))
+	  (unless latexp (insert "THISISTHEINLINELISTTEMINATOR\n")))))))
 
 (defun org-inlinetask-get-current-indentation ()
   "Get the indentation of the last non-while line above this one."
@@ -266,8 +264,6 @@ Either remove headline and meta data, or do special formatting."
   '(add-hook 'org-font-lock-hook 'org-inlinetask-fontify))
 (eval-after-load "org-html"
   '(add-hook 'org-export-html-final-hook 'org-inlinetask-remove-terminator))
-(eval-after-load "org-latex"
-  '(add-hook 'org-export-latex-final-hook 'org-inlinetask-remove-terminator))
 (eval-after-load "org-ascii"
   '(add-hook 'org-export-ascii-final-hook 'org-inlinetask-remove-terminator))
 (eval-after-load "org-docbook"
-- 
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
