Browse Source

New option `org-export-html-table-use-header-tags-for-first-column'

Carsten Dominik 16 years ago
parent
commit
e28c8b7329
2 changed files with 12 additions and 1 deletions
  1. 4 0
      lisp/ChangeLog
  2. 8 1
      lisp/org-html.el

+ 4 - 0
lisp/ChangeLog

@@ -1,5 +1,9 @@
 2009-05-07  Carsten Dominik  <carsten.dominik@gmail.com>
 
+	* org-html.el
+	(org-export-html-table-use-header-tags-for-first-column): New
+	option.
+
 	* org.el (org-autoload): Fix autoloading of ascii export
 	functions.
 	(org-modules): Add org-special-blocks.

+ 8 - 1
lisp/org-html.el

@@ -267,6 +267,12 @@ This is customizable so that alignment options can be specified."
   :group 'org-export-tables
   :type '(cons (string :tag "Opening tag") (string :tag "Closing tag")))
 
+(defcustom org-export-html-table-use-header-tags-for-first-column nil
+  "Non-nil means, format column one in tables with header tags.
+When nil, also column one will use data tags."
+  :group 'org-export-tables
+  :type 'boolean)
+
 (defcustom org-export-html-validation-link nil
   "Non-nil means, add validationlink to postamble of HTML exported files."
   :group 'org-export-html
@@ -1478,7 +1484,8 @@ lang=\"%s\" xml:lang=\"%s\">
 			 (if (and (< i nlines)
 				  (string-match org-table-number-regexp x))
 			     (incf (aref fnum i)))
-			 (if head
+			 (if (or head
+				 (and (= i 0) org-export-html-table-use-header-tags-for-first-column))
 			     (concat (car org-export-table-header-tags) x
 				     (cdr org-export-table-header-tags))
 			   (concat (car org-export-table-data-tags) x