mirror of
https://github.com/ilyakooo0/urbit.git
synced 2024-12-15 10:02:47 +03:00
gall: clean up +mo-claw, +mo-beak
This commit is contained in:
parent
a46234d60b
commit
4d8212ebf8
@ -687,26 +687,40 @@
|
|||||||
ap-abet:pouted
|
ap-abet:pouted
|
||||||
==
|
==
|
||||||
::
|
::
|
||||||
++ mo-claw :: clear queue
|
:: +mo-claw: clear queue.
|
||||||
|= dap/dude
|
|
||||||
^+ +>
|
|
||||||
?. (~(has by bum.mas) dap) +>
|
|
||||||
=+ suf=(~(get by wub.mas) dap)
|
|
||||||
?~ suf +>.$
|
|
||||||
|- ^+ +>.^$
|
|
||||||
?: =(~ kys.u.suf)
|
|
||||||
+>.^$(wub.mas (~(del by wub.mas) dap))
|
|
||||||
=^ lep kys.u.suf [p q]:~(get to kys.u.suf)
|
|
||||||
$(moz :_(moz [p.lep %slip %g %deal [q.q.q.lep our] dap r.lep]))
|
|
||||||
:: $(+>.^$ (mo-clip(hen p.lep) dap q.lep r.lep))
|
|
||||||
::
|
::
|
||||||
++ mo-beak :: build beak
|
++ mo-claw
|
||||||
|= dap/dude
|
|= =dude
|
||||||
=- ?.(=(p our) - -(r [%da now])) :: soft dependencies
|
^+ mo-state
|
||||||
|
::
|
||||||
|
?. (~(has by bum.mas) dude)
|
||||||
|
mo-state
|
||||||
|
::
|
||||||
|
=/ suf (~(get by wub.mas) dude)
|
||||||
|
?~ suf
|
||||||
|
mo-state
|
||||||
|
::
|
||||||
|
|-
|
||||||
|
^+ mo-state
|
||||||
|
::
|
||||||
|
?: =(~ kys.u.suf)
|
||||||
|
%_ mo-state
|
||||||
|
wub.mas (~(del by wub.mas) dude)
|
||||||
|
==
|
||||||
|
::
|
||||||
|
=^ lep kys.u.suf [p q]:~(get to kys.u.suf)
|
||||||
|
::
|
||||||
|
=/ move [p.lep %slip %g %deal [q.q.q.lep our] dude r.lep]
|
||||||
|
$(moves [move moves])
|
||||||
|
::
|
||||||
|
:: +mo-beak: build beak.
|
||||||
|
::
|
||||||
|
++ mo-beak
|
||||||
|
|= =dude
|
||||||
^- beak
|
^- beak
|
||||||
?~ app-data=(~(get by bum.mas) dap)
|
?~ app-data=(~(get by bum.mas) dude)
|
||||||
::
|
::
|
||||||
:: XX this fallback is necessary, as .dap could be either the source
|
:: XX this fallback is necessary, as .dude could be either the source
|
||||||
:: or the destination app. ie, it might not exist locally ...
|
:: or the destination app. ie, it might not exist locally ...
|
||||||
::
|
::
|
||||||
[our %home %da now]
|
[our %home %da now]
|
||||||
|
Loading…
Reference in New Issue
Block a user