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

contrib/lisp/org-e-texinfo: Properly format table heading rows 

* contrib/lisp/org-e-texinfo.el (org-e-texinfo-table-row): Check if the row is part of the first row group.  If it is treat it as @headitem rather than a normal @item.
This commit is contained in:
Jonathan Leech-Pepin 2012-08-29 15:14:03 -04:00
parent 3b792443c1
commit 2b9cc23dd0
1 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
contrib/lisp/org-e-texinfo.el
View File

@ -1623,7 +1623,19 @@ a communication channel."
;; Rules are ignored since table separators are deduced from
;; borders of the current row.
(when (eq (org-element-property :type table-row) 'standard)
(concat "@item " contents "\n")))
(let ((rowgroup-tag
(cond
;; Case 1: Belongs to second or subsequent rowgroup.
((not (= 1 (org-export-table-row-group table-row info)))
"@item ")
;; Case 2: Row is from first rowgroup. Table has >=1 rowgroups.
((org-export-table-has-header-p
(org-export-get-parent-table table-row) info)
"@headitem ")
;; Case 3: Row is from first and only row group.
(t "@item "))))
(when (eq (org-element-property :type table-row) 'standard)
(concat rowgroup-tag contents "\n")))))
;;; Target