mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-12-28 10:56:57 +00:00
Code

Fix Table of Contents, Clock block and various styles

Browse Source
This commit is contained in:
Jambunathan K 2012-11-14 07:32:24 +05:30 committed by Bastien Guerry
parent 8cf8c1d8c0
commit 4680247236
1 changed files with 18 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
contrib/lisp/org-e-odt.el
View File

@ -1006,7 +1006,7 @@ style from the list."
(defun org-e-odt-begin-toc (index-title depth)
(concat
(format "
<text:table-of-content text:style-name=\"Sect2\" text:protected=\"true\" text:name=\"Table of Contents1\">
<text:table-of-content text:style-name=\"OrgIndexSection\" text:protected=\"true\" text:name=\"Table of Contents\">
<text:table-of-content-source text:outline-level=\"%d\">
<text:index-title-template text:style-name=\"Contents_20_Heading\">%s</text:index-title-template>
" depth index-title)
@ -1381,19 +1381,23 @@ holding contextual information."
"Transcode a CLOCK element from Org to ODT.
CONTENTS is nil. INFO is a plist used as a communication
channel."
(format "<text:span text:style-name=\"%s\">%s</text:span>"
"OrgTimestampWrapper"
(concat
(format "<text:span text:style-name=\"%s\">%s</text:span>"
"OrgTimestampKeyword" org-clock-string)
(format "<text:span text:style-name=\"%s\">%s</text:span>"
"OrgTimestamp"
(concat
(org-translate-time
(org-element-property :raw-value
(org-element-property :value clock)))
(let ((time (org-element-property :duration clock)))
(and time (format " (%s)" time))))))))
(concat
;; Open a paragraph before the first clock line.
(and (not (eq (org-element-type (org-export-get-previous-element clock info))
'clock))
"\n<text:p text:style-name=\"OrgClock\">")
(let ((timestamp (org-element-property :value clock))
(duration (org-element-property :duration clock)))
(concat
(format "<text:span text:style-name=\"%s\">%s</text:span>"
"OrgTimestampKeyword" org-clock-string)
;; Add a line break after the clock line.
(org-e-odt-timestamp timestamp contents info) "<text:tab/>"
(and duration (format " (%s)" duration)) "<text:line-break/>"))
;; Close the paragraph after the last clock line.
(and (not (eq (org-element-type (org-export-get-next-element clock info))
'clock))
"\n</text:p>")))
;;;; Code