1
1
mirror of https://github.com/urbit/shrub.git synced 2024-12-28 14:42:53 +03:00
shrub/pkg/arvo/app/cop.hoon
2019-09-06 12:34:04 -07:00

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
==
--