mirror of
https://github.com/urbit/shrub.git
synced 2024-12-02 08:55:07 +03:00
ac98cf1075
sed -i'' -e '/^|/{x;/./{p;s/.*//;};x;};/ *\\/-.*\\*/{h;s/ //g;s/,[a-z]*//g;s/^[^a-z]*/[/;s/ *::.*$//;s/$/ .]/;s/*/ /g;x;s/\\*//g;}' urb/zod/**.{hoon,hook}
Followed by manual fixes where e.g. the file didn't start with a core
32 lines
764 B
Plaintext
32 lines
764 B
Plaintext
::
|
|
:::: /hoon/bit-api-call/mar
|
|
::
|
|
/? 314
|
|
/- bit-api
|
|
[bit-api .]
|
|
|_ [access-token=@t req=bit-api-call]
|
|
::
|
|
++ wrap
|
|
|= [end-point=path req=$|(%get [%post p=json])]
|
|
[/com/coinbase/sandbox/api v1/end-point req ~ ['access_token' access-token]~]
|
|
::
|
|
++ order
|
|
|= [amount=@t currency=@t] ^- json
|
|
(jobe qty/s/amount ?~(currency ~ [currency/s/currency ~]))
|
|
++ grow
|
|
|% ++ httpreq
|
|
%- wrap
|
|
|-
|
|
?- -.req
|
|
%list [/accounts %get]
|
|
%buy [/buys %post (order +.req)]
|
|
%sell [/sells %post (order +.req)]
|
|
%send $(req [%txt-send (rsh 3 2 (scot %uc adr.req)) btc.req])
|
|
%txt-send
|
|
:+ /transactions/'send_money' %post
|
|
(joba %transaction (jobe to/s/to.req amount/s/btc.req ~))
|
|
|
|
==
|
|
--
|
|
--
|