ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-09-21 23:47:35 +03:00
Code Issues Packages Projects Releases Wiki Activity

register twitter account with web.plan

Browse Source
This commit is contained in:
Anton Dyudin 2016-03-30 17:04:27 -07:00
parent 6470dbb912
commit 49129bcc4e
2 changed files with 13 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
app/gh.hoon
View File

@ -42,8 +42,8 @@
::
|_ {hid/bowl cnt/@ hook/(map @t {id/@t listeners/(set bone)})}
++ prep
|= a/(unit) ^- (quip move +>)
?^ a [~ +>]
|= a/(unit _+<+) ^- (quip move +>)
?^ a [~ +>(+<+ u.a)]
(peer-scry %x %read /user)
::
:: This core manages everything related to a particular request.

12
app/twit.hoon
View File

@ -38,12 +38,16 @@
++ card :: arvo request
$? gift
$% {$hiss wire (unit iden) api-call} :: api request
{$poke wire dock $talk-command command:talk} ::
{$poke wire app-message} ::
{$wait wire p/@da} :: timeout
== ==
::
++ api-call {response-mark $twit-req {endpoint quay}} :: full hiss payload
++ response-mark ?($twit-post $twit-feed $twit-cred) :: sigh options
++ app-message
$? {{ship $talk} $talk-command command:talk} :: chat message
{{ship $hood} $write-plan-account iden plan-acct} :: registration
== ::
++ sign :: arvo response
$% {$e $thou p/httr} :: HTTP result
{$t $wake $~} :: timeout ping
@ -66,6 +70,11 @@
::
|_ {bowl axle}
::
++ prep
|= a/(unit axle) ^- (quip move +>)
?^ a [~ +>(+<+ u.a)]
(peer-scry-x /cred)
::
++ cull :: remove seen tweets
|= {pax/path rep/(list stat)} ^+ rep
=+ pev=(silt (turn (~(get ja fed) pax) |=(stat id)))
@ -133,6 +142,7 @@
?> ?=($~ wir)
=+ pax=`twit-path`cred+wir
:_ +>.$(ced `[now raw])
:- [ost %poke pax [our %hood] %write-plan-account ~.twitter acc]
(spam-with-scry-x pax json+raw)
::
++ sigh-twit-post-post :: status acknowledged