Streamline table border styles.

bbstool.scm

@@ -81,6 +81,8 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
  (-tests () "Run self-tests upon startup" (-run-tests?- #t))
  (-idstats () "Returns information about available member ids" (-action- 'print-idstats))
  (-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"
 	    (print "TODO: " file:cards " " file:desfires))
  )

table.scm

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