diff --git a/main/app/twit/core.hook b/main/app/twit/core.hook index a7161f0924..07c1d9d289 100644 --- a/main/app/twit/core.hook +++ b/main/app/twit/core.hook @@ -72,22 +72,22 @@ ++ poke-json :: client message |= [ost=bone his=ship jon=json] ^- [(list move) _+>] + :_ +>.$ ~& [%got-json ost] =+ jop=(need ((of [%tweet sa] [%time sa] ~):jo jon)) ~& [%got-jop ost] - =+ key=-.jop - :_ +>.$ - ?+ -.jop !! - - ?=(%tweet key) - ~& [%tweet-pax /tweet/(scot %ud ost)] + ?- -.jop + %tweet + ~& [%poke-tweet-path /tweet/(scot %ud ost)] + :~ [ost %pass /tweet/(scot %ud ost) %e [%them (some (posl jon))]] [ost %give %nice ~] == - ?: ?=(%time key) - ~& [% - [ost %give %nice ~] - !! + :: + %time + ~& %poke-time + [ost %give %nice ~]~ + == :: ++ page :: build front page ^- manx diff --git a/main/lib/twitter/core.hook b/main/lib/twitter/core.hook index e39e40522c..445891a80a 100644 --- a/main/lib/twitter/core.hook +++ b/main/lib/twitter/core.hook @@ -117,7 +117,6 @@ %^ gsub '-' '_' %+ reel a |= [p=@t q=@t] - (cat 3 :(catt '/' p q) :: :: Twitter types ++ tid ,@u