:twif listen on twitter feed

This commit is contained in:
Anton Dyudin 2015-06-18 11:26:45 -07:00
parent 5130bd0715
commit 4a0044ed93
3 changed files with 9 additions and 2 deletions

View File

@ -170,7 +170,7 @@
;~(pfix lus (stag %ge dp-model-cat))
;~(pfix wut (stag %di dp-model-dog))
;~(pfix buc (stag %va sym))
;~(pfix pam (stag %ec ;~(plug sym ;~(pfix dot dp-twig))))
;~(pfix pam (stag %ec ;~(plug ;~(sfix sym dot) dp-twig)))
(stag %ex dp-twig)
(ifix [sel ser] (stag %tu (most ace dp-source)))
==

7
base/ape/twif.hoon Normal file
View File

@ -0,0 +1,7 @@
/- *twitter
!:
|_ [bowl ~]
++ poke-noun |=(span (onwards [%send / [our %twit] %peer /user/[+<]]))
++ onwards |*([mark *] [[ost +<]~ +>.$])
++ diff-twit-feed |=([* a=(list twit-stat)] ?~(a `+>.$ ~&(i.a $(a t.a))))
--

View File

@ -141,7 +141,7 @@
=+ ren=(cull t.pax rep) :: new messages
?~ ren
(wait pax ~) :: pump polling
~& spam-feed/ren
:: ~& spam-feed/ren
=: ran (~(del by ran) pax) :: clear poll delay
fed (~(put by fed) t.pax rep) :: saw last message
==