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)]
::
?: ?& =(%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)
~
?. =([%$ %da now] coin)