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

Streamline table border styles.

Browse source
This commit is contained in:
Dominik Pantůček 2023-03-23 16:08:52 +01:00
parent 4e7fbb2df9
commit 2db2624d21
2 changed files with 8 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
bbstool.scm
View file

@ -81,6 +81,8 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
(-tests () "Run self-tests upon startup" (-run-tests?- #t)) (-tests () "Run self-tests upon startup" (-run-tests?- #t))
(-idstats () "Returns information about available member ids" (-action- 'print-idstats)) (-idstats () "Returns information about available member ids" (-action- 'print-idstats))
(-genid () "Generates random member id" (-action- 'genid)) (-genid () "Generates random member id" (-action- 'genid))
(-tstyle (style) "Use given table style: debug, ascii, unicode"
(*table-border-style* (string->symbol style)))
(-gencards (file:cards file:desfires) "Generates brmdoor-compatible card files" (-gencards (file:cards file:desfires) "Generates brmdoor-compatible card files"
(print "TODO: " file:cards " " file:desfires)) (print "TODO: " file:cards " " file:desfires))
) )

7
table.scm
View file

@ -48,11 +48,16 @@
;; Table border styles in visual form ;; Table border styles in visual form
(define table-borders-lookup-source (define table-borders-lookup-source
'((ascii '((debug
"/=,\\" "/=,\\"
"] |[" "] |["
">-+<" ">-+<"
"'~^`") "'~^`")
(ascii
"+-++"
"| ||"
"+-++"
"+-++")
(unicode (unicode
"┌─┬┐" "┌─┬┐"
"│ ││" "│ ││"