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

Back to compiling.

Browse Source
This commit is contained in:
C. Guy Yarvin 2014-08-10 22:28:10 -07:00
parent 2a10f4dd34
commit 0f23312aec
2 changed files with 10 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
main/app/twit/core.hook
View File

@ -72,22 +72,22 @@
++ poke-json :: client message ++ poke-json :: client message
|= [ost=bone his=ship jon=json] |= [ost=bone his=ship jon=json]
^- [(list move) _+>] ^- [(list move) _+>]
:_ +>.$
~& [%got-json ost] ~& [%got-json ost]
=+ jop=(need ((of [%tweet sa] [%time sa] ~):jo jon)) =+ jop=(need ((of [%tweet sa] [%time sa] ~):jo jon))
~& [%got-jop ost] ~& [%got-jop ost]
=+ key=-.jop ?- -.jop
:_ +>.$ %tweet
?+ -.jop !! ~& [%poke-tweet-path /tweet/(scot %ud ost)]
?=(%tweet key)
~& [%tweet-pax /tweet/(scot %ud ost)]
:~ [ost %pass /tweet/(scot %ud ost) %e [%them (some (posl jon))]] :~ [ost %pass /tweet/(scot %ud ost) %e [%them (some (posl jon))]]
[ost %give %nice ~] [ost %give %nice ~]
== ==
?: ?=(%time key) ::
~& [% %time
[ost %give %nice ~] ~& %poke-time
!! [ost %give %nice ~]~
==
:: ::
++ page :: build front page ++ page :: build front page
^- manx ^- manx

1
main/lib/twitter/core.hook
View File

@ -117,7 +117,6 @@
%^ gsub '-' '_' %^ gsub '-' '_'
%+ reel a %+ reel a
|= [p=@t q=@t] |= [p=@t q=@t]
(cat 3
:(catt '/' p q) :(catt '/' p q)
:: :: Twitter types :: :: Twitter types
++ tid ,@u ++ tid ,@u