diff --git a/app/gh.hoon b/app/gh.hoon index 873542685..efea9c069 100644 --- a/app/gh.hoon +++ b/app/gh.hoon @@ -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. diff --git a/app/twit.hoon b/app/twit.hoon index 626641aa5..430f1054b 100644 --- a/app/twit.hoon +++ b/app/twit.hoon @@ -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