mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-08-24 21:02:51 +00:00
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:
parent
3b792443c1
commit
2b9cc23dd0
|
@ -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
|
||||
|
||||
|
|
Loading…
Reference in a new issue