gall: support %t scry

This commit is contained in:
~wicrum-wicrun 2023-03-31 00:20:22 +02:00
parent 8544c571bf
commit 94a4eca649

View File

@ -2068,6 +2068,19 @@
?. ?=(%.y -.shop)
~
=/ =ship p.shop
?: ?& =(%t care)
=([%$ %da now] coin)
=(our ship)
==
=/ yok (~(get by yokes.state) q.bem)
?. ?=([~ %live *] yok) ~
:^ ~ ~ %file-list !> ^- (list ^path)
%+ skim ~(tap in ~(key by sky.u.yok))
|= =spur
?& =(s.bem (scag (lent s.bem) spur))
!=(s.bem spur)
==
::
?: ?& =(%z care)
=(our ship)
==