From a17ceed1cc300c4b3891739066aeb01418bbcd06 Mon Sep 17 00:00:00 2001 From: Jambunathan K Date: Thu, 20 Oct 2011 14:27:42 +0530 Subject: [PATCH] Update default value of org-export-odt-table-styles * contrib/lisp/org-odt.el (org-export-odt-table-styles): Add the required table style "OrgEquation". Continues the following commit: ,---- | commit 861ecb85baf0467610bb6bbdfa985a2f4adaa795 | Author: Jambunathan K | Date: Sun Sep 18 00:09:06 2011 +0530 | | contrib/lisp/org-odt.el: Typeset display equations using tables `---- --- contrib/lisp/org-odt.el | 31 +++++++++++++++++++------------ 1 file changed, 19 insertions(+), 12 deletions(-) diff --git a/contrib/lisp/org-odt.el b/contrib/lisp/org-odt.el index 9ec99c345..d658eb274 100644 --- a/contrib/lisp/org-odt.el +++ b/contrib/lisp/org-odt.el @@ -618,7 +618,10 @@ This is set during `org-odt-begin-table'.") (defvar org-odt-table-style-spec nil "Entry for `org-odt-table-style' in `org-export-odt-table-styles'.") -(defcustom org-export-odt-table-styles nil +(defcustom org-export-odt-table-styles + '(("OrgEquation" "OrgEquation" + ((use-first-column-styles . t) + (use-last-column-styles . t)))) "Specify how Table Styles should be derived from a Table Template. This is a list where each element is of the form (TABLE-STYLE-NAME TABLE-TEMPLATE-NAME TABLE-CELL-OPTIONS). @@ -683,22 +686,26 @@ TABLE-TEMPLATE-NAME TABLE-CELL-OPTIONS) correspond to \"table:template-name\" and \"table:use-first-row-styles\" etc attributes of \"\" element. Refer ODF-1.2 specification for more information. Also consult the -implementation filed under `org-odt-get-table-cell-styles'." +implementation filed under `org-odt-get-table-cell-styles'. + +The TABLE-STYLE-NAME \"OrgEquation\" is used internally for +formatting of numbered display equations. Do not delete this +style from the list." :group 'org-export-odt :type '(choice (const :tag "None" nil) (repeat :tag "Table Styles" (list :tag "Table Style Specification" - (string :tag "Table Style Name") - (string :tag "Table Template Name") - (alist :options (use-first-row-styles - use-last-row-styles - use-first-column-styles - use-last-column-styles - use-banding-rows-styles - use-banding-columns-styles) - :key-type symbol - :value-type (const :tag "True" t)))))) + (string :tag "Table Style Name") + (string :tag "Table Template Name") + (alist :options (use-first-row-styles + use-last-row-styles + use-first-column-styles + use-last-column-styles + use-banding-rows-styles + use-banding-columns-styles) + :key-type symbol + :value-type (const :tag "True" t)))))) (defun org-odt-begin-table (caption label attributes) (setq org-odt-table-style attributes) -- 2.11.4.GIT