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

Add support for separator columns.

Browse source
This commit is contained in:
Dominik Pantůček 2023-06-17 08:04:07 +02:00
parent c2ed294feb
commit 750bf14cac
1 changed files with 5 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/listing.scm
View file

@ -141,14 +141,15 @@
#:highlight-pre (hl-pre a:error) #:highlight-pre (hl-pre a:error)
#:highlight-post (hl-post a:default) #:highlight-post (hl-post a:default)
#:context (context 3) #:context (context 3)
#:keys (keys '(number line comment))) #:keys (keys '(number -- line -- comment)))
(let loop ((lines lines) (let loop ((lines lines)
(number 1) (number 1)
(printed-something #f) (printed-something #f)
(was-printing #f) (was-printing #f)
(rtbl '())) (rtbl '()))
(if (null? lines) (if (null? lines)
(print (table->string (reverse rtbl))) (print (table->string (reverse rtbl)
))
(let* ((highlight (match-highlight number highlights)) (let* ((highlight (match-highlight number highlights))
(hl-type (if highlight (cadddr highlight) #f)) (hl-type (if highlight (cadddr highlight) #f))
(hl-def (assq hl-type highlight-rules)) (hl-def (assq hl-type highlight-rules))
@ -198,6 +199,8 @@
comment comment
post-str) post-str)
"")) ""))
((--)
"\xc2\xa0")
(else (else
(format "~A~A ~A" (format "~A~A ~A"
pre-str pre-str