From 8b8e0376808a52e20af5987175f43041bb592bd9 Mon Sep 17 00:00:00 2001
From: crc <>
Date: Tue, 16 Apr 2024 10:59:10 +0000
Subject: [PATCH] takawiri: string previews working

FossilOrigin-Name: dceec910de7f9dd191cdaf60d388776cf58641c1fbe51e40aa71a35595e5b515
---
 takawiri.retro | 15 +++++++++++++--
 1 file changed, 13 insertions(+), 2 deletions(-)

diff --git a/takawiri.retro b/takawiri.retro
index 3ed4249..d559452 100755
--- a/takawiri.retro
+++ b/takawiri.retro
@@ -161,8 +161,19 @@ Note: this won't be useful until after the alternate `s:evaluate`
 is done.
 
 ~~~
+:string? (v-vf) dup STRINGS gt? ;
+:ss:display
+ over n:inc #12 n:add #84 vt:row,col
+ fg:red
+ tos? [ 'TOS:___ s:put ] [ '_______ s:put ] choose
+ vt:reset
+ s:put ;
+
+:ss:not-string
+ over n:inc #12 n:add #84 vt:row,col fg:blue '_______n/a s:put drop vt:reset ;
+
 :ss/later (-)
-  #0 &Items [ dup STRINGS gt? [ over n:inc #12 n:add #84 vt:row,col s:put ] &drop choose n:inc  ] a:for-each drop
+  #0 &Items [ string? &ss:display &ss:not-string choose n:inc  ] a:for-each drop
 ;
 ~~~
 
@@ -198,7 +209,7 @@ is done.
   [ vt:reset vt:clear vt:home
     display:tob
     sections
-    stats dss (ss watchlist
+    stats dss ss/later watchlist
     prompt s:get-word vt:reset
     [ dup s:put sp interpret ] tob:with
  ] forever ;