mirror of
https://github.com/urbit/shrub.git
synced 2024-12-28 14:42:53 +03:00
45 lines
1.1 KiB
Plaintext
45 lines
1.1 KiB
Plaintext
|%
|
|
+$ move [bone card]
|
|
+$ card
|
|
$% [%conf-mall wire dock dock]
|
|
[%deal-mall wire sock internal-task:mall]
|
|
==
|
|
--
|
|
|_ [=bowl:gall ~]
|
|
++ this .
|
|
++ poke-noun
|
|
|= arg=*
|
|
^- (quip move _this)
|
|
:_ this :_ ~
|
|
?+ arg ~|(%bad-arg !!)
|
|
%conf [ost.bowl %conf-mall / [our.bowl %hood] [our.bowl %home]]
|
|
%poke [ost.bowl %deal-mall / [our.bowl our.bowl] %hood %poke %atom !>(%hey)]
|
|
%hi [ost.bowl %deal-mall / [our.bowl our.bowl] %hood %poke %helm-send-hi !>([our.bowl `"heyza"])]
|
|
%start [ost.bowl %deal-mall / [our.bowl our.bowl] %hood %poke %drum-start !>([%home %dojo])]
|
|
%first [ost.bowl %deal-mall / [our.bowl our.bowl] %first %poke %atom !>(%hey)]
|
|
==
|
|
::
|
|
++ onto
|
|
|= [wire res=(each suss:mall tang)]
|
|
?: ?=(%& -.res)
|
|
~& %ontoad
|
|
`this
|
|
%- (slog >'conf-failed'< p.res)
|
|
`this
|
|
::
|
|
++ unto
|
|
|= [wire res=internal-gift:mall]
|
|
?- -.res
|
|
%diff !!
|
|
%quit !!
|
|
%reap !!
|
|
%http-response !!
|
|
%coup
|
|
?~ p.res
|
|
~& %mall-coup-good
|
|
`this
|
|
%- (slog >'mall-coup-failed'< u.p.res)
|
|
`this
|
|
==
|
|
--
|