urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2025-01-07 13:37:36 +03:00
Code Issues Packages Projects Releases Wiki Activity

precommit

Browse Source
This commit is contained in:
henry 2015-05-07 19:25:22 -04:00
parent 19c6469956
commit f0e3a88ea8
1 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
base/app/bit/core.hook
View File

@ -38,7 +38,7 @@ $: client-id=(unit ,@t) app-secret=(unit ,@t)
|_ [hid=hide vat=axle] |_ [hid=hide vat=axle]
++ prep ,_`. ++ prep ,_`.
++ redirect-uri (crip (weld hostname "/~~/home/pub/bit/fab")) ++ redirect-uri (crip (weld hostname "/~~/home/pub/bit/fab"))
++ hostname "http://104.236.139.191:{?+((clan our.hid) !! %czar "8444", %duke "8443")}"::{+:<our.hid>}.urbit.org ++ hostname "http://104.236.139.191:{?+(our.hid !! %~zod "8443", %~reg "8444")}"::{+:<our.hid>}.urbit.org
++ auth-url ++ auth-url
%+ weld "https://www.coinbase.com/oauth/authorize" %+ weld "https://www.coinbase.com/oauth/authorize"
%- tail:earn :~ %- tail:earn :~
@ -64,8 +64,7 @@ $: client-id=(unit ,@t) app-secret=(unit ,@t)
== ==
=+ prl=`purl`(need (epur (crip auth-url))) =+ prl=`purl`(need (epur (crip auth-url)))
:_ +>.$ :_ +>.$
:+ %- publish :+ %^ publish ost you
:^ ost you ?+((clan our.hid) !! %czar %court, %duke %porch)
:~ [%lin & 'secret and client id saved successfully'] :~ [%lin & 'secret and client id saved successfully']
[%lin & 'please click on the url below to continue authentication'] [%lin & 'please click on the url below to continue authentication']
[%url prl] [%url prl]
@ -193,11 +192,11 @@ $: client-id=(unit ,@t) app-secret=(unit ,@t)
|= [ost=bone you=ship arg=json] |= [ost=bone you=ship arg=json]
~& arg ~& arg
:_ +>.$ :_ +>.$
=+ [adr amo]=(need %.(arg (ot address/sa amount/no ~):jo)) =+ [adr amo]=(need %.(arg (ot address/so amount/no ~):jo))
=+ frm=(~(get by incoming.vat) adr) =+ frm=(~(get by incoming.vat) adr)
:_ [ost %give %nice ~]~ :_ [ost %give %nice ~]~
~! frm ~! frm
(publish ost our.hid %porch [%lin & (crip "just received {(trip amo)} BTC from {<frm>}")]~) (publish ost our.hid [%lin & (crip "just received {(trip amo)} BTC from {<frm>}")]~)
::(api-call ost /get-id /transactions/[transaction-id] %get) ::(api-call ost /get-id /transactions/[transaction-id] %get)
++ pour-get-id :: display transaction info ++ pour-get-id :: display transaction info
|= [ost=bone pax=path rez=json] |= [ost=bone pax=path rez=json]
@ -239,14 +238,14 @@ $: client-id=(unit ,@t) app-secret=(unit ,@t)
== ==
:: ::
++ publish ++ publish
|= [ost=bone you=ship dest=?(%porch %court) act=(list speech)] |= [ost=bone you=ship act=(list speech)]
^- move ^- move
=+ ^= spchz =+ ^= spchz
%+ turn act %+ turn act
|= sp=speech |= sp=speech
=+ ^= tail =+ ^= tail
:- ^- audience :- ^- audience
:+ :- `partner`[%& our.hid dest] :+ :- `partner`[%& our.hid ?+((clan our.hid) !! %czar %court, %duke %porch)]
^- (pair envelope delivery) ^- (pair envelope delivery)
[`envelope`[& ~] %pending] [`envelope`[& ~] %pending]
~ ~