tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

org-e-odt.el: Introduce :header-columns as a new table attribute

This commit is contained in:
Jambunathan K 2012-05-26 23:50:38 +05:30
parent 09164e5c72
commit c554052def
1 changed files with 10 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1069,12 +1069,6 @@ ATTR is a string of other attributes of the a element."
;; update display levels ;; update display levels
(org-e-odt-update-display-level org-e-odt-display-outline-level) (org-e-odt-update-display-level org-e-odt-display-outline-level)
;; write styles file
;; (when (equal org-lparse-backend 'odt) FIXME
;; )
;; (org-e-odt-update-styles-file opt-plist)
;; create mimetype file ;; create mimetype file
(let ((mimetype (org-e-odt-write-mimetype-file ;; org-lparse-backend FIXME (let ((mimetype (org-e-odt-write-mimetype-file ;; org-lparse-backend FIXME
'odt))) 'odt)))
@ -1139,7 +1133,6 @@ ATTR is a string of other attributes of the a element."
(message "Created %s" target) (message "Created %s" target)
(set-buffer (find-file-noselect target t))) (set-buffer (find-file-noselect target t)))
(defun org-e-odt-create-manifest-file-entry (&rest args) (defun org-e-odt-create-manifest-file-entry (&rest args)
(push args org-e-odt-manifest-file-entries)) (push args org-e-odt-manifest-file-entries))
@ -1230,14 +1223,6 @@ ATTR is a string of other attributes of the a element."
(declare-function org-create-math-formula "org" (declare-function org-create-math-formula "org"
(latex-frag &optional mathml-file)) (latex-frag &optional mathml-file))
(defun org-e-odt-get (what &optional opt-plist)
(case what
(EXPORT-DIR (org-export-directory :html opt-plist))
(TABLE-FIRST-COLUMN-AS-LABELS nil)
(CODING-SYSTEM-FOR-WRITE 'utf-8)
(CODING-SYSTEM-FOR-SAVE 'utf-8)
(t (error "Unknown property: %s" what))))
(defun org-e-odt-do-preprocess-latex-fragments () (defun org-e-odt-do-preprocess-latex-fragments ()
"Convert LaTeX fragments to images." "Convert LaTeX fragments to images."
(let* ((latex-frag-opt (plist-get org-lparse-opt-plist :LaTeX-fragments)) (let* ((latex-frag-opt (plist-get org-lparse-opt-plist :LaTeX-fragments))
@ -3937,8 +3922,14 @@ channel."
(org-export-table-has-header-p (org-export-table-has-header-p
(org-export-get-parent-table table-row info) info)) (org-export-get-parent-table table-row info) info))
"OrgTableHeading") "OrgTableHeading")
((and (zerop c) t ;; (org-lparse-get 'TABLE-FIRST-COLUMN-AS-LABELS) ((let* ((table (org-export-get-parent-table table-cell info))
) (table-attrs (org-e-odt-element-attributes table info))
(table-header-columns (plist-get table-attrs
:header-columns)))
(<= c (cond ((wholenump table-header-columns)
(- table-header-columns 1))
(table-header-columns 0)
(t -1))))
"OrgTableHeading") "OrgTableHeading")
(t "OrgTableContents")) (t "OrgTableContents"))
(capitalize (symbol-name (org-export-table-cell-alignment (capitalize (symbol-name (org-export-table-cell-alignment
@ -4305,6 +4296,8 @@ using `org-open-file'."
;;; FIXMES, TODOS, FOR REVIEW etc ;;; FIXMES, TODOS, FOR REVIEW etc
;; coding system
;; (defun org-e-odt-discontinue-list () ;; (defun org-e-odt-discontinue-list ()
;; (let ((stashed-stack org-lparse-list-stack)) ;; (let ((stashed-stack org-lparse-list-stack))
;; (loop for list-type in stashed-stack ;; (loop for list-type in stashed-stack