mirror of
https://github.com/urbit/shrub.git
synced 2024-12-15 12:43:31 +03:00
31 lines
758 B
Plaintext
31 lines
758 B
Plaintext
::
|
|
:::: /hook/door/bit-api-call/mar
|
|
::
|
|
/? 314
|
|
/- *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 ~))
|
|
|
|
==
|
|
--
|
|
--
|