From ef29557e6a6c3e82384f12e96f0533b2ecd859e5 Mon Sep 17 00:00:00 2001 From: Jambunathan K Date: Mon, 10 Dec 2012 10:58:40 +0530 Subject: [PATCH] org-e-odt.el: Not all keywords are supported --- contrib/lisp/org-e-odt.el | 20 +++++++------------- 1 file changed, 7 insertions(+), 13 deletions(-) diff --git a/contrib/lisp/org-e-odt.el b/contrib/lisp/org-e-odt.el index 727812a6c..4d6eff128 100644 --- a/contrib/lisp/org-e-odt.el +++ b/contrib/lisp/org-e-odt.el @@ -1107,8 +1107,6 @@ 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) @@ -1951,10 +1949,10 @@ CONTENTS is nil. INFO is a plist holding contextual information." (value (org-element-property :value keyword))) (cond ((string= key "ODT") value) - ((string= key "INDEX") (format "\\index{%s}" value)) - ((string= key "TARGET") nil ; FIXME - ;; (format "\\label{%s}" (org-export-solidify-link-text value)) - ) + ((string= key "INDEX") + ;; FIXME + (ignore)) + ((string= key "TARGET") nil) ((string= key "toc") (let ((value (downcase value))) (cond @@ -1963,13 +1961,9 @@ CONTENTS is nil. INFO is a plist holding contextual information." (string-to-number (match-string 0 value))) (plist-get info :with-toc)))) (when (wholenump depth) (org-e-odt-toc depth info)))) - ((string= "tables" value) "FIXME") - ((string= "figures" value) "FIXME") - ((string= "listings" value) - (cond - ;; At the moment, src blocks with a caption are wrapped - ;; into a figure environment. - (t "FIXME"))))))))) + ((member value '("tables" "figures" "listings")) + ;; FIXME + (ignore)))))))) ;;;; Latex Environment -- 2.11.4.GIT