brmlab/hackerbase
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Implement row0-border.

Browse source
This commit is contained in:
Dominik Pantůček 2023-03-29 14:08:35 +02:00
parent 965b0432fa
commit 4d7330a086
2 changed files with 10 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

8
table.scm
View file

@ -259,6 +259,8 @@
(let* ((table-border (get-keyword #:table-border args (lambda () #f)))
(row-border (get-keyword #:row-border args (lambda () #f)))
(column-border (get-keyword #:col-border args (lambda () #f)))
(row0-border (get-keyword #:row0-border args (lambda () #f)))
(col0-border (get-keyword #:col0-border args (lambda () #f)))
(border-style (get-keyword #:border-style args (lambda () (*table-border-style*))))
(ansi? (get-keyword #:ansi args (lambda () #f)))
(stylepair (assq border-style table-borders-lookup))
@ -293,8 +295,10 @@
(flatten (reverse res0))
"\n"))
(let* ((res0
(if (and row-border
(> idx 0))
(if (or (and row-border
(> idx 0))
(and row0-border
(= idx 1)))
(cons (table-row-delimiter/styled table-border
column-border
cws