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

Use new table for listings.

Browse source
This commit is contained in:
Dominik Pantůček 2023-06-15 15:08:02 +02:00
parent 3e4e8c4672
commit eaced78aee
3 changed files with 6 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/table-processor.scm
View file

@ -183,14 +183,15 @@
;;(_ (print min-widths0))
(min-widths (combine-column-widths min-widths0 widths))
;;(_ (print min-widths))
(col-weights (table-column-weights ptbl))
(col-weights (table-column-weights ptbl)) ;; Also ideal widths
;;(_ (print col-weights))
(min-width (foldl + 0 min-widths))
(max-width (foldl + 0 col-weights))
;;(_ (print min-width))
(width (if (and width-arg
(> width-arg min-width))
width-arg
min-width))
max-width))
;;(_ (print width))
(width-surplus (- width min-width))
;;(_ (print width-surplus))