ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-12-16 19:22:22 +03:00
Code Issues Packages Projects Releases Wiki Activity

better error reporting, backlog saving

Browse Source
This commit is contained in:
Anton Dyudin 2016-03-16 17:20:29 -07:00
parent 3637fd2d42
commit 2111836ba4
1 changed files with 11 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
app/twit.hoon
View File

@ -130,20 +130,21 @@
:_ +>.$
=+ pax=/[who.rep]/status/(rsh 3 2 (scot %ui id.rep))
:- (show-url [& ~ &+/com/twitter] `pax ~)
%+ weld (spam pax (tweet-good rep))
(spam scry+x+pax (tweet-good rep))
%+ weld (spam post+wir (tweet-good rep))
(spam scry+x+post+wir (tweet-good rep))
::
++ sigh-twit-feed :: feed data
|= {wir/wire rep/(list stat)} ^+ done
?> ?=({?($peer $scry) *} wir)
=* pax t.wir
:: ~& got-feed+[(scag 5 (turn rep |=(stat id))) fed]
=: ran (~(del by ran) wir) :: clear poll delay
fed (~(put by fed) pax rep) :: saw last message
=+ ren=(cull pax rep) :: new messages
=. rep (weld ren (~(get ja fed) pax))
=: fed (~(put by fed) pax rep) :: save full list
ran (~(del by ran) wir) :: clear poll delay
==
?: ?=($scry -.wir)
[(spam scry+x+pax [%diff twit-feed+(flop rep)] [%quit ~] ~) +>.$]
=+ ren=(cull pax rep) :: new messages
?~ ren
(wait wir ~) :: pump polling
:: ~& spam-feed+ren
@ -151,6 +152,8 @@
::
++ sigh-tang :: Err
|= {pax/path tan/tang} ^+ done
~& sigh-tang+pax
%- (slog (flop tan))
=+ ^- git/gift
=+ err='' ::%.(q:(need r.hit) ;~(biff poja mean:twir)) :: XX parse?
:^ %diff %ares %bad-http
@ -226,8 +229,8 @@
|= pax/twit-path ^- $%({$none $~} {$part p/gilt} {$full p/gilt})
?- -.pax
$post
=+ mez=(slav %uv p.pax)
=+ (raid +.pax mez=%uv ~)
~& [mez=mez out=out]
=+ sta=(~(get by out) mez)
?. ?=({$~ $| *} sta)
[%none ~]
@ -272,6 +275,8 @@
++ spam :: send by path
|= {a/path b/(list gift)} ^- (list move)
%- zing ^- (list (list move))
~& spam+[(turn b head) a]
~& sup
%+ turn (~(tap by sup))
|= {ost/bone @ pax/path}
?. =(pax a) ~