From 941d9b90c0c7c44ef9dc6f83225024ad0a83be67 Mon Sep 17 00:00:00 2001
From: Fang <git@fang.io>
Date: Tue, 1 Sep 2020 20:13:48 +0200
Subject: [PATCH] shoe: add %table and %row usage to example app

Adds "table" and "row" commands, in addition to the existing "demo" one,
to provide examples of dime-table rendering, text wrapping etc.
---
 pkg/arvo/app/shoe.hoon | 42 +++++++++++++++++++++++++++++++++++-------
 1 file changed, 35 insertions(+), 7 deletions(-)

diff --git a/pkg/arvo/app/shoe.hoon b/pkg/arvo/app/shoe.hoon
index 83f24b9d6..4b0538ad3 100644
--- a/pkg/arvo/app/shoe.hoon
+++ b/pkg/arvo/app/shoe.hoon
@@ -6,7 +6,11 @@
 /+  shoe, verb, dbug, default-agent
 |%
 +$  state-0  [%0 ~]
-+$  command  ~
++$  command
+  $?  %demo
+      %row
+      %table
+  ==
 ::
 +$  card  card:shoe
 --
@@ -41,22 +45,46 @@
 ++  command-parser
   |=  sole-id=@ta
   ^+  |~(nail *(like [? command]))
-  (cold [& ~] (jest 'demo'))
+  %+  stag  &
+  (perk %demo %row %table ~)
 ::
 ++  tab-list
   |=  sole-id=@ta
   ^-  (list [@t tank])
   :~  ['demo' leaf+"run example command"]
+      ['row' leaf+"print a row"]
+      ['table' leaf+"display a table"]
   ==
 ::
 ++  on-command
   |=  [sole-id=@ta =command]
   ^-  (quip card _this)
-  =-  [[%shoe ~ %sole -]~ this]
-  =/  =tape  "{(scow %p src.bowl)} ran the command"
-  ?.  =(src our):bowl
-    [%txt tape]
-  [%klr [[`%br ~ `%g] [(crip tape)]~]~]
+  =;  [to=(list _sole-id) fec=shoe-effect:shoe]
+    [[%shoe to fec]~ this]
+  ?-  command
+      %demo
+    :-  ~
+    :-  %sole
+    =/  =tape  "{(scow %p src.bowl)} ran the command"
+    ?.  =(src our):bowl
+      [%txt tape]
+    [%klr [[`%br ~ `%g] [(crip tape)]~]~]
+  ::
+      %row
+    :-  [sole-id]~
+    :+  %row
+      ~[8 27 35 5]
+    ~[p+src.bowl da+now.bowl t+'plenty room here!' t+'less here!']
+  ::
+      %table
+    :-  [sole-id]~
+    :^  %table
+        ~[t+'ship' t+'date' t+'long text' t+'tldr']
+      ~[8 27 35 5]
+    :~  ~[p+src.bowl da+now.bowl t+'plenty room here!' t+'less here!']
+        ~[p+~marzod t+'yesterday' t+'sometimes:\0anewlines' t+'newlines']
+    ==
+  ==
 ::
 ++  can-connect
   |=  sole-id=@ta