mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-12-29 11:02:33 +00:00
Code

org-odt.el: Improve TOC entries

Browse Source
This commit is contained in:
Jambunathan K 2012-12-15 22:05:16 +05:30 committed by Bastien Guerry
parent 6e3e0176e3
commit fddc312c29
1 changed files with 29 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1110,18 +1110,33 @@ See `org-e-odt--build-date-styles' for implementation details."
(defun* org-e-odt-format-toc-headline
(todo todo-type priority text tags
&key level section-number headline-label &allow-other-keys)
(setq text (concat
(and org-export-with-section-numbers
(concat section-number ". "))
text
(and tags
(concat
"<text:tab/>"
(format "<text:span text:style-name=\"%s\">%s</text:span>"
"OrgTag" tags)))))
(when todo
(setq text (format "<text:span text:style-name=\"%s\">%s</text:span>"
"OrgTodo" text)))
(setq text
(concat
;; Section number.
(when section-number (concat section-number ". "))
;; Todo.
(when todo
(let ((style (if (member todo org-done-keywords)
"OrgDone" "OrgTodo")))
(format "<text:span text:style-name=\"%s\">%s</text:span> "
style todo)))
(when priority
(let* ((style (format "OrgPriority-%s" priority))
(priority (format "[#%c]" priority)))
(format "<text:span text:style-name=\"%s\">%s</text:span> "
style priority)))
;; Title.
text
;; Tags.
(when tags
(concat
(format " <text:span text:style-name=\"%s\">[%s]</text:span>"
"OrgTags"
(mapconcat
(lambda (tag)
(format
"<text:span text:style-name=\"%s\">%s</text:span>"
"OrgTag" tag)) tags " : "))))))
(format "<text:a xlink:type=\"simple\" xlink:href=\"#%s\">%s</text:a>"
headline-label text))
@ -1720,8 +1735,8 @@ CONTENTS is nil. INFO is a plist holding contextual information."
(format "<text:span text:style-name=\"%s\">%s</text:span> "
style todo)))
(when priority
(let* ((priority (format "[#%c]" priority))
(style (format "OrgPriority-%s" priority)))
(let* ((style (format "OrgPriority-%s" priority))
(priority (format "[#%c]" priority)))
(format "<text:span text:style-name=\"%s\">%s</text:span> "
style priority)))
;; Title.