started work on ascii table

jlangch · Dec 9, 2023 · a68fb79 · a68fb79
1 parent 77d0431
commit a68fb79
Show file tree

Hide file tree

Showing 2 changed files with 34 additions and 0 deletions.
diff --git a/src/main/java/com/github/jlangch/venice/impl/modules/Modules.java b/src/main/java/com/github/jlangch/venice/impl/modules/Modules.java
@@ -46,6 +46,7 @@ public static boolean isValidModule(final VncKeyword module) {
                     Arrays.asList(
                         "ansi",
                         "app",
+                        "ascii-table",
                         "benchmark",
                         "cargo",
                         "cargo-arangodb",

diff --git a/src/main/resources/com/github/jlangch/venice/ascii-table.venice b/src/main/resources/com/github/jlangch/venice/ascii-table.venice
@@ -24,4 +24,37 @@
 
 (ns ascii-table)
 
+;;         standard         double          bold          alpha
+;;
+;;      +---+---+---+   ╔═══╤═══╤═══╗   ┏━━━┯━━━┯━━━┓  ABBBCBBBCBBBD
+;; head |   |   |   |   ║   │   │   ║   ┃   │   │   ┃  E   M   M   E
+;;      +---+---+---+   ╠═══╪═══╪═══╣   ┣━━━┿━━━┿━━━┫  KGGGJGGGJGGGL
+;; body |   |   |   |   ║   │   │   ║   ┃   │   │   ┃  E   M   M   E
+;;      +---+---+---+   ╟───┼───┼───╢   ┠───┼───┼───┫  KGGGJGGGJGGGL
+;; body |   |   |   |   ║   │   │   ║   ┃   │   │   ┃  E   M   M   E
+;;      +---+---+---+   ╠═══╪═══╪═══╣   ┣━━━┿━━━┿━━━┫  KGGGJGGGJGGGL
+;; foot |   |   |   |   ║   │   │   ║   ┃   │   │   ┃  E   M   M   E
+;;      +---+---+---+   ╚═══╧═══╧═══╝   ┗━━━┷━━━┷━━━┛  NBBBOBBBOBBBP
+
+;; https://www.charset.org/utf-8/10
+
+
+(def border-chars { :standard  "+-++|+-+++++|++++"
+                    :double    "╔═╤╗║╟─┬╢╪╠╣│╚╧╝┼"
+                    :bold      "┏━┯┓┃┠─┬┨┿┣┫│┗┷┛┼"
+                    :alpha     "ABCDEFGHIJKLMNOPQ" } )
+
+(def alignments #{:left :center :right})
+(def overflow #{:newline :clip-left :clip-right :ellipsis-left :ellipsis-right})
+(def modes #{:standard :double :bold :alpha})
+
+(def min-col-width 1)
+(def min-col-width 80)
+
+
+
+
+(defn render [cols header body & options]
+  (let [opts  (apply hash-map options)]
+    ))