From 4b9ec0c9a476570d52088328f4ff1fccdeb37728 Mon Sep 17 00:00:00 2001
From: Fang <git@fang.io>
Date: Tue, 26 May 2020 23:45:45 +0200
Subject: [PATCH] shoe: include example usage of %klr sole-effect

Seems worthwhile to signal the existence of richer console output.

Also adds a brief description of what the example app does.
---
 pkg/arvo/app/shoe.hoon | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/pkg/arvo/app/shoe.hoon b/pkg/arvo/app/shoe.hoon
index df9ef9bfb1..504365c591 100644
--- a/pkg/arvo/app/shoe.hoon
+++ b/pkg/arvo/app/shoe.hoon
@@ -1,5 +1,8 @@
 ::  shoe: example usage of /lib/shoe
 ::
+::    the app supports one command: "demo".
+::    running this command renders some text on all sole clients.
+::
 /+  shoe, verb, dbug, default-agent
 |%
 +$  state-0  [%0 ~]
@@ -49,8 +52,11 @@
 ++  on-command
   |=  [sole-id=@ta =command]
   ^-  (quip card _this)
-  :_  this
-  [%shoe ~ %sole %txt "{(scow %p src.bowl)} ran the command"]~
+  =-  [[%shoe ~ %sole -]~ this]
+  =/  =tape  "{(scow %p src.bowl)} ran the command"
+  ?.  =(src our):bowl
+    [%txt tape]
+  [%klr [[`%br ~ `%g] [(crip tape)]~]~]
 ::
 ++  can-connect
   |=  sole-id=@ta