Browse Source

org-e-odt.el: Not all keywords are supported

Jambunathan K 12 years ago
parent
commit
ef29557e6a
1 changed files with 7 additions and 13 deletions
  1. 7 13
      contrib/lisp/org-e-odt.el

+ 7 - 13
contrib/lisp/org-e-odt.el

@@ -1107,8 +1107,6 @@ See `org-e-odt--build-date-styles' for implementation details."
     </text:table-of-content>
 "))
 
-
-
 (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