daniel/emacs
1
2
Fork 0
Code Issues 7 Pull Requests Projects Releases Wiki Activity

header line only at the end

Browse Source
This commit is contained in:
Daniel Weschke
2025-12-27 12:32:25 +01:00
parent 40f24268a1
commit 9cbb87d441
2 changed files with 27 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
lisp/0patches/ox-rst_ox-rst.el_table-header-line.patch Normal file
View File

@@ -0,0 +1,20 @@
diff --git a/lisp/ox-rst/ox-rst.el b/lisp/ox-rst/ox-rst.el
index 0b19576d..ce958352 100644
--- a/lisp/ox-rst/ox-rst.el
+++ b/lisp/ox-rst/ox-rst.el
@@ -1513,8 +1513,13 @@ a communication channel."
(cond
((not (= 1 rowgroup-number))
?-)
- ((org-export-table-has-header-p
- (org-element-lineage table-row 'table) info)
+ ;; ((org-export-table-has-header-p
+ ;; (org-element-lineage table-row 'table) info)
+ ;; ?=)
+ ;; double line only at the end of the header
+ ((and (org-export-table-has-header-p
+ (org-element-lineage table-row 'table) info)
+ (org-export-table-row-ends-header-p table-row info))
?=)
(t ?-)))
(makeline

9
lisp/ox-rst/ox-rst.el
View File

@@ -1513,8 +1513,13 @@ a communication channel."
(cond (cond
((not (= 1 rowgroup-number)) ((not (= 1 rowgroup-number))
?-) ?-)
((org-export-table-has-header-p ;; ((org-export-table-has-header-p
(org-element-lineage table-row 'table) info) ;; (org-element-lineage table-row 'table) info)
;; ?=)
;; double line only at the end of the header
((and (org-export-table-has-header-p
(org-element-lineage table-row 'table) info)
(org-export-table-row-ends-header-p table-row info))
?=) ?=)
(t ?-))) (t ?-)))
(makeline (makeline