gall: %e scry to list apps on a desk

This commit is contained in:
Ted Blackman 2021-07-01 20:33:43 -04:00
parent 1e07e347ff
commit 82581ae993

View File

@ -1775,6 +1775,20 @@
[~ ~] [~ ~]
[~ ~ desk+!>(q.beak.u.yok)] [~ ~ desk+!>(q.beak.u.yok)]
:: ::
?: ?& =(%e care)
=(~ path)
=([%$ %da now] coin)
=(our ship)
==
:+ ~ ~
:- %apps !> ^- (set dude)
=* syd=desk dap
%+ roll ~(tap by yokes.state)
|= [[=dude =yoke] acc=(set dude)]
?. =(syd q.beak.yoke)
acc
(~(put in acc) dude)
::
?. =(our ship) ?. =(our ship)
~ ~
?. =([%$ %da now] coin) ?. =([%$ %da now] coin)