adding (srfi 159) wrapper around (chibi show)

lib/chibi/show/color.sld

@@ -2,5 +2,6 @@
 (define-library (chibi show color)
   (import (scheme base) (chibi show base))
   (export as-red as-blue as-green as-cyan as-yellow
-          as-magenta as-white as-black as-bold)
+          as-magenta as-white as-black
+          as-bold as-underline)
   (include "color.scm"))

lib/srfi/159.sld

@@ -0,0 +1,27 @@
+
+(define-library (srfi 159)
+  (import (srfi 159 base) (srfi 159 columnar)
+          (srfi 159 unicode) (srfi 159 color))
+  (export
+   ;; base
+   show fn fn-fork with update! each each-in-list call-with-output
+   displayed written written-shared written-simply
+   numeric numeric/comma numeric/si numeric/fitted
+   nothing nl fl space-to tab-to escaped maybe-escaped
+   padded padded/left padded/right padded/both
+   trimmed trimmed/left trimmed/right trimmed/both trimmed/lazy
+   fitted fitted/left fitted/right fitted/both
+   joined joined/prefix joined/suffix joined/last joined/dot joined/range
+   upcased downcased
+   ;; columnar
+   call-with-output-generator call-with-output-generators
+   string->line-generator
+   tabular columnar show-columns wrapped wrapped/list wrapped/char
+   justified line-numbers from-file
+   ;; unicode
+   as-unicode unicode-terminal-width
+   ;; color
+   as-red as-blue as-green as-cyan as-yellow
+   as-magenta as-white as-black
+   as-bold as-underline
+   ))

lib/srfi/159/base.sld

@@ -0,0 +1,13 @@
+
+(define-library (srfi 159 base)
+  (import (chibi show))
+  (export
+   show fn fn-fork with update! each each-in-list call-with-output
+   displayed written written-shared written-simply
+   numeric numeric/comma numeric/si numeric/fitted
+   nothing nl fl space-to tab-to escaped maybe-escaped
+   padded padded/left padded/right padded/both
+   trimmed trimmed/left trimmed/right trimmed/both trimmed/lazy
+   fitted fitted/left fitted/right fitted/both
+   joined joined/prefix joined/suffix joined/last joined/dot joined/range
+   upcased downcased))

lib/srfi/159/color.sld

@@ -0,0 +1,6 @@
+
+(define-library (srfi 159 color)
+  (import (chibi show color))
+  (export as-red as-blue as-green as-cyan as-yellow
+          as-magenta as-white as-black
+          as-bold as-underline))

lib/srfi/159/columnar.sld

@@ -0,0 +1,8 @@
+
+(define-library (srfi 159 columnar)
+  (import (chibi show column))
+  (export
+   call-with-output-generator call-with-output-generators
+   string->line-generator
+   tabular columnar show-columns wrapped wrapped/list wrapped/char
+   justified line-numbers from-file))

lib/srfi/159/unicode.sld

@@ -0,0 +1,4 @@
+
+(define-library (srfi 159 unicode)
+  (import (chibi show unicode))
+  (export as-unicode unicode-terminal-width))