shrub/gen/twit/feed.hoon
2017-11-09 16:53:30 -08:00

21 lines
430 B
Plaintext

:: Display twitter feed
::
:::: /hoon/feed/twit/gen
::
/? 310
/- twitter
/+ old-zuse
=, old-zuse
::
:::: ~fyr
::
:- %say
|= $: {now/@da eny/@uvJ bek/beak}
{{who/iden $~} typ/?($home $user)}
==
=+ pax=/(scot %p p.bek)/twit/(scot %da now)/[typ]/[who]
:- %tang
%+ turn (flop .^((list post:twitter) %gx pax))
|= post:twitter ^- tank
rose+[": " `~]^~[leaf+"{<now>} @{(trip who)}" leaf+(trip txt)]