move sur/twitter to "t-style" naming scheme

This commit is contained in:
Anton Dyudin 2016-03-23 16:19:56 -07:00
parent b7efb9bee5
commit 067540d9ac
3 changed files with 108 additions and 113 deletions

View File

@ -99,7 +99,7 @@
$post
=. out (~(put by out) p.act %& usr q.act)
%+ wait-new /peer/home/[usr]
=+ req=[%twit-req `endpoint`stat-upda+[%status q.act]~ ~]
=+ req=[%twit-req `endpoint`update+[%status q.act]~ ~]
[ost %hiss post+(dray ~[%uv] p.act) `usr %twit-post req]~
==
::
@ -247,12 +247,12 @@
$user
=+ ole=(~(get ja fed) pax)
=+ opt=?~(ole ~ ['since_id' (tid:print id.i.ole)]~)
`[`~. [%twit-feed twit-req+[stat-user+[(to-sd p.pax)]~ opt]]]
`[`~. [%twit-feed twit-req+[posts-by+[(to-sd p.pax)]~ opt]]]
::
$home
=+ ole=(~(get ja fed) pax)
=+ opt=?~(ole ~ ['since_id' (tid:print id.i.ole)]~)
`[`p.pax [%twit-feed twit-req+[stat-home+~ opt]]]
`[`p.pax [%twit-feed twit-req+[timeline+~ opt]]]
==
::
++ to-sd :: parse user name/numb

View File

@ -109,10 +109,6 @@
|= a/$@(^scr ^lsc) ^- @t
?@(a `@t`a (join ',' a))
::
++ lst
|= a/$@(@t ^lst) ^- @t
?@(a `@t`a (join ',' a))
::
++ lid
|= a/$@(^tid (list ^tid)) ^- @t
?~ a ~|(%nil-id !!)
@ -157,8 +153,7 @@
:- (gsub '-' '_' -.p)
?+ -.p p.p :: usually plain text
?($source-id $target-id) (tid:print p.p)
?($follow $id $name $user-id) (lid:print p.p)
$track (lst:print p.p)
?($id $name $user-id) (lid:print p.p)
$screen-name (lsc:print p.p)
==
--

View File

@ -20,7 +20,6 @@
++ lid (list tid) :: screen names
++ lon @t :: longitude
++ lsc (list scr) ::
++ lst (list @t)
++ nam @t :: location name
++ pla @t :: place-id
++ scr @t :: screen name
@ -31,12 +30,11 @@
--
++ param
=> args
=< $? de fo gr id is la lo na os pl qq sc
sd ss sl si st te ti ts tr ur ui us
=< $? de gr id is la lo na os pl qq sc
sd ss sl si st te ti ts ur ui us
==
|%
++ de {$device p/dev}
++ fo {$follow p/lid}
++ gr {$grant-type p/gat}
++ id {$id p/tid}
++ is {$id p/lid}
@ -55,7 +53,6 @@
++ te {$text p/@t}
++ ti {$target-id p/tid}
++ ts {$target-screen-name p/scr}
++ tr {$track p/lst}
++ ur {$url p/url}
++ ui {$user-id p/tid}
++ us {$user-id p/lid}
@ -84,112 +81,115 @@
:: ^- (pole {_{term _(pole *param)} ?($get $post) path})
=> param
:~
[ {$stat-ment $~} %get /statuses/mentions-timeline ]
[ {$stat-user sd $~} %get /statuses/user-timeline ]
[ {$stat-home $~} %get /statuses/home-timeline ]
[ {$stat-retw $~} %get /statuses/retweets-of-me ]
[ {$stat-rets-iddd id $~} %get /statuses/retweets/':id' ]
[ {$stat-show id $~} %get /statuses/show ]
[ {$stat-dest-iddd id $~} %post /statuses/destroy/':id' ]
[ {$stat-upda st $~} %post /statuses/update ]
[ {$stat-retw-iddd id $~} %post /statuses/retweet/':id' ]
[ {$stat-oemb-iddd id $~} %get /statuses/oembed ]
[ {$stat-oemb-urll ur $~} %get /statuses/oembed ]
[ {$stat-retw-idss id $~} %get /statuses/retweeters/ids ]
[ {$sear-twee qq $~} %get /search/tweets ]
:- {$stat-filt-foll ?(fo tr) $~}
[%post /statuses/filter]
[ {$mentions $~} %get /statuses/mentions-timeline ]
[ {$posts-by sd $~} %get /statuses/user-timeline ]
[ {$timeline $~} %get /statuses/home-timeline ]
[ {$retweets-mine $~} %get /statuses/retweets-of-me ]
[ {$retweets-of id $~} %get /statuses/retweets/':id' ]
[ {$show-status id $~} %get /statuses/show ]
[ {$del-status id $~} %post /statuses/destroy/':id' ]
[ {$full-status id $~} %post /statuses/looup ]
[ {$update st $~} %post /statuses/update ]
[ {$retweet id $~} %post /statuses/retweet/':id' ]
[ {$unretweet id $~} %post /statuses/unretweet/':id' ]
::
[ {$stat-samp $~} %get /statuses/sample ]
[ {$stat-fire $~} %get /statuses/firehose ]
[ {$dire $~} %get /direct-messages ]
[ {$dire-sent $~} %get /direct-messages/sent ]
[ {$dire-show id $~} %get /direct-messages/show ]
[ {$dire-dest id $~} %post /direct-messages/destroy ]
[ {$dire-neww sd te $~} %post /direct-messages/new ]
[ {$frie-nore-idss $~} %get /friendships/no-retweets/ids ]
[ {$frie-idss sd $~} %get /friends/ids ]
[ {$foll-idss sd $~} %get /followers/ids ]
[ {$frie-inco $~} %get /friendships/incoming ]
[ {$frie-outg $~} %get /friendships/outgoing ]
[ {$frie-crea sd $~} %post /friendships/create ]
[ {$frie-dest sd $~} %post /friendships/destroy ]
[ {$frie-upda sd $~} %post /friendships/update ]
:- {$frie-show ?(si os) ?(ti ts) $~}
[ {$oembed-from-id id $~} %get /statuses/oembed ]
[ {$oembed-from-url ur $~} %get /statuses/oembed ]
[ {$retweeters id $~} %get /statuses/retweeters/ids ]
[ {$search qq $~} %get /search/tweets ]
[ {$all-dms $~} %get /direct-messages ]
[ {$all-dms-sent $~} %get /direct-messages/sent ]
[ {$show-dm id $~} %get /direct-messages/show ]
[ {$del-dm id $~} %post /direct-messages/destroy ]
[ {$dm sd te $~} %post /direct-messages/new ]
::
[ {$blocked-retweeters $~} %get /friendships/no-retweets/ids ]
[ {$followers sd $~} %get /followers/list ]
[ {$follower-ids sd $~} %get /followers/ids ]
[ {$friends sd $~} %get /friends/list ]
[ {$friend-ids sd $~} %get /friends/ids ]
[ {$friend-requests $~} %get /friendships/incoming ]
[ {$friend-requesting $~} %get /friendships/outgoing ]
[ {$follow sd $~} %post /friendships/create ]
[ {$unfollow sd $~} %post /friendships/destroy ]
[ {$set-friendship sd $~} %post /friendships/update ]
[ {$relationships ?(us ss) $~} %get /friendships/lookup ]
:- {$relationship ?(si os) ?(ti ts) $~}
[%get /friendships/show]
::
[ {$frie-list sd $~} %get /friends/list ]
[ {$foll-list sd $~} %get /followers/list ]
[ {$frie-look ?(us ss) $~} %get /friendships/lookup ]
[ {$acco-sett-gett $~} %get /account/settings ]
[ {$acco-veri $~} %get /account/verify-credentials ]
[ {$acco-sett-post $~} %post /account/settings ]
[ {$acco-upda-deli de $~} %post /account/update-delivery-device ]
[ {$acco-upda-prof $~} %post /account/update-profile ]
:- {$acco-upda-prof-back $~}
[ {$show-settings $~} %get /account/settings ]
[ {$test-login $~} %get /account/verify-credentials ]
[ {$set-settings $~} %post /account/settings ]
[ {$set-sms-target de $~} %post /account/update-delivery-device ]
[ {$set-profile $~} %post /account/update-profile ]
[ {$set-colors $~} %post /account/update-profile-colors ]
[ {$del-background $~} %post /account/remove-profile-banner ]
:- {$set-background $~}
[%post /account/update-profile-background-image]
::
[ {$acco-upda-prof-colo $~} %post /account/update-profile-colors ]
[ {$bloc-list $~} %get /blocks/list ]
[ {$bloc-idss $~} %get /blocks/ids ]
[ {$bloc-crea sd $~} %post /blocks/create ]
[ {$bloc-dest sd $~} %post /blocks/destroy ]
[ {$user-look ?(us ss) $~} %get /users/lookup ]
[ {$user-show sd $~} %get /users/show ]
[ {$user-sear qq $~} %get /users/search ]
[ {$user-cont-tees sd $~} %get /users/contributees ]
[ {$user-cont-tors sd $~} %get /users/contributors ]
[ {$acco-remo $~} %post /account/remove-profile-banner ]
[ {$user-prof sd $~} %get /users/profile-banner ]
[ {$mute-user-crea sd $~} %post /mutes/users/create ]
[ {$mute-user-dest sd $~} %post /mutes/users/destroy ]
[ {$mute-user-idss $~} %get /mutes/users/ids ]
[ {$mute-user-list $~} %get /mutes/users/list ]
[ {$user-sugg-slug sl $~} %get /users/suggestions ]
[ {$user-sugg $~} %get /users/suggestions ]
[ {$favo-list $~} %get /favorites/list ]
[ {$favo-dest id $~} %post /favorites/destroy ]
[ {$favo-crea id $~} %post /favorites/create ]
[ {$list-list $~} %get /lists/list ]
[ {$list-stat $~} %get /lists/statuses ]
[ {$list-memb-dest $~} %post /lists/members/destroy ]
[ {$list-memb-hips sd $~} %get /lists/memberships ]
[ {$list-subs-bers $~} %get /lists/subscribers ]
[ {$list-subs-crea $~} %post /lists/subscribers/create ]
[ {$list-subs-show sd $~} %get /lists/subscribers/show ]
[ {$list-subs-dest $~} %post /lists/subscribers/destroy ]
:- {$list-memb-crea-alll ?(us ss) $~}
[%post /lists/members/create-all]
[ {$blocks $~} %get /blocks/list ]
[ {$blocks-ids $~} %get /blocks/ids ]
[ {$block sd $~} %post /blocks/create ]
[ {$unblock sd $~} %post /blocks/destroy ]
::
[ {$list-memb-show sd $~} %get /lists/members/show ]
[ {$list-memb-bers $~} %get /lists/members ]
[ {$list-memb-crea sd $~} %post /lists/members/create ]
[ {$list-dest $~} %post /lists/destroy ]
[ {$list-upda $~} %post /lists/update ]
[ {$list-crea na $~} %post /lists/create ]
[ {$list-show $~} %get /lists/show ]
[ {$list-subs-ions sd $~} %get /lists/subscriptions ]
:- {$list-memb-dest-alll ?(us ss) $~}
[%post /lists/members/destroy-all]
[ {$full-users ?(us ss) $~} %get /users/lookup ]
[ {$user sd $~} %get /users/show ]
[ {$search-users qq $~} %get /users/search ]
[ {$user-contributees sd $~} %get /users/contributees ] :: undoc'd
[ {$user-contributors sd $~} %get /users/contributors ] :: undoc'd
[ {$user-prof sd $~} %get /users/profile-banner ]
::
[ {$list-owne sd $~} %get /lists/ownerships ]
[ {$save-list $~} %get /saved-searches/list ]
[ {$save-show-iddd id $~} %get /saved-searches/show/':id' ]
[ {$save-crea qq $~} %post /saved-searches/create ]
[ {$save-dest-iddd id $~} %post /saved-searches/destroy/':id' ]
[ {$geoo-iddd-plac id $~} %get /geo/id/':id' ]
[ {$geoo-reve la lo $~} %get /geo/reverse-geocode ]
[ {$geoo-sear $~} %get /geo/search ]
[ {$geoo-simi la lo na $~} %get /geo/similar-places ]
[ {$tren-plac id $~} %get /trends/place ]
[ {$tren-avai $~} %get /trends/available ]
[ {$tren-clos la lo $~} %get /trends/closest ]
[ {$user-repo sd $~} %post /users/report-spam ]
[ {$help-conf $~} %get /help/configuration ]
[ {$help-lang $~} %get /help/languages ]
[ {$help-priv $~} %get /help/privacy ]
[ {$help-toss $~} %get /help/tos ]
[ {$appl-rate $~} %get /application/rate-limit-status ]
[ {$mute-user sd $~} %post /mutes/users/create ]
[ {$unmute-user sd $~} %post /mutes/users/destroy ]
[ {$muted $~} %get /mutes/users/list ]
[ {$muted-ids $~} %get /mutes/users/ids ]
::
[ {$suggested $~} %get /users/suggestions ]
[ {$suggestion sl $~} %get /users/suggestions/':slug' ]
:- {$suggestion-posts sl $~}
[%get /users/suggestions/':slug'/members]
::
[ {$favorites $~} %get /favorites/list ]
[ {$del-favorite id $~} %post /favorites/destroy ]
[ {$favorite id $~} %post /favorites/create ]
::
[ {$lists $~} %get /lists/list ]
[ {$lists-of sd $~} %get /lists/memberships ]
[ {$lists-by sd $~} %get /lists/ownerships ]
[ {$lists-subscribed sd $~} %get /lists/subscriptions ]
[ {$list $~} %get /lists/show ]
[ {$list-posts $~} %get /lists/statuses ]
[ {$list-remove ?(us ss) $~} %post /lists/members/destroy-all ]
[ {$list-subscribers $~} %get /lists/subscribers ]
[ {$list-subscribe $~} %post /lists/subscribers/create ]
[ {$list-unsubscribe $~} %post /lists/subscribers/destroy ]
[ {$list-is-subscribed sd $~} %get /lists/subscribers/show ]
[ {$list-add ?(us ss) $~} %post /lists/members/create-all ]
[ {$list-is-in sd $~} %get /lists/members/show ]
[ {$list-members $~} %get /lists/members ]
[ {$del-list $~} %post /lists/destroy ]
[ {$config-list $~} %post /lists/update ]
[ {$new-list na $~} %post /lists/create ]
::
[ {$saved-searches $~} %get /saved-searches/list ]
[ {$full-saved-search id $~} %get /saved-searches/show/':id' ]
[ {$save-search qq $~} %post /saved-searches/create ]
[ {$del-saved-search id $~} %post /saved-searches/destroy/':id' ]
::
[ {$full-geo id $~} %get /geo/id/':id' ]
[ {$geo-reverse la lo $~} %get /geo/reverse-geocode ]
[ {$search-geo $~} %get /geo/search ]
[ {$geo-similar la lo na $~} %get /geo/similar-places ]
[ {$trend-locations $~} %get /trends/available ]
[ {$trends-at id $~} %get /trends/place ]
[ {$trends-near la lo $~} %get /trends/closest ]
::
[ {$user-report sd $~} %post /users/report-spam ]
[ {$help-config $~} %get /help/configuration ]
[ {$help-langs $~} %get /help/languages ]
[ {$help-privacy $~} %get /help/privacy ]
[ {$help-tos $~} %get /help/tos ]
[ {$rate-limit-info $~} %get /application/rate-limit-status ]
==
--
--