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

Compatibility layer for table-old style.

Browse source
This commit is contained in:
Dominik Pantůček 2023-06-15 16:30:53 +02:00
parent 3da5d55530
commit 0806be2420
3 changed files with 9 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/Makefile
View file

@ -39,7 +39,7 @@ HACKERBASE-DEPS=hackerbase.scm cal-month.import.scm \
mailman.import.scm texts.import.scm tests.import.scm \ mailman.import.scm texts.import.scm tests.import.scm \
notifications.import.scm logging.import.scm \ notifications.import.scm logging.import.scm \
progress.import.scm cal-period.import.scm \ progress.import.scm cal-period.import.scm \
util-stdout.import.scm util-stdout.import.scm table-old.import.scm
HACKERBASE-OBJS=hackerbase.o testing.o listing.o cal-month.o \ HACKERBASE-OBJS=hackerbase.o testing.o listing.o cal-month.o \
cal-period.o ansi.o util-dict-list.o command-line.o mbase.o \ cal-period.o ansi.o util-dict-list.o command-line.o mbase.o \
@ -405,7 +405,8 @@ racket-kwargs.import.scm: $(RACKET-KWARGS-SOURCES)
TABLE-SOURCES=table.scm sgr-list.import.scm sgr-block.import.scm \ TABLE-SOURCES=table.scm sgr-list.import.scm sgr-block.import.scm \
racket-kwargs.import.scm table-processor.import.scm \ racket-kwargs.import.scm table-processor.import.scm \
table-border.import.scm table-style.import.scm table-border.import.scm table-style.import.scm \
table-old.import.scm
table.o: table.import.scm table.o: table.import.scm
table.import.scm: $(TABLE-SOURCES) table.import.scm: $(TABLE-SOURCES)

3
src/hackerbase.scm
View file

@ -45,7 +45,8 @@
cal-day cal-day
util-git util-git
util-dict-list util-dict-list
util-stdout) util-stdout
table-old)
;; Command-line options and configurable parameters ;; Command-line options and configurable parameters
(define -needs-bank- (make-parameter #f)) (define -needs-bank- (make-parameter #f))

6
src/table.scm
View file

@ -41,7 +41,9 @@
racket-kwargs racket-kwargs
table-processor table-processor
table-border table-border
table-style) table-style
(only table-old *table-border-style*)
)
(define (print-table . args) (define (print-table . args)
(print (apply table->string args))) (print (apply table->string args)))
@ -73,7 +75,7 @@
#:border (border-spec '((none ...) ...)) #:border (border-spec '((none ...) ...))
#:widths (widths-spec '(0 ...)) #:widths (widths-spec '(0 ...))
#:width (width #f) #:width (width #f)
#:unicode? (unicode? #t)) #:unicode? (unicode? (eq? (*table-border-style*) 'unicode)))
(let-values (((ptbl col-widths) (let-values (((ptbl col-widths)
(table-prepare tbl width widths-spec))) (table-prepare tbl width widths-spec)))
(let* ((num-columns (length (car tbl))) (let* ((num-columns (length (car tbl)))