|% ++ post {id/@u who/@ta now/@da txt/@t} :: recieved tweet ++ keys :: twitter-key type $: con/{tok/@t sec/@t} :: user key pair acc/{tok/@t sec/@t} :: app key pair == :: ++ command :: poke action $% {$post p/@uvI q/cord} :: post a tweet == ++ sur-twit . :: XX :: ++ reqs |% ++ args |% ++ dev @t :: device name ++ gat @t :: grant type ++ lat @t :: latitude ++ lid (list tid) :: screen names ++ lon @t :: longitude ++ lsc (list scr) :: ++ nam @t :: location name ++ pla @t :: place-id ++ scr @t :: screen name ++ slu @t :: category name ++ tid @u :: user id ++ tok @t :: oauth token ++ url @t :: callback url -- ++ param => args =< $? 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} ++ gr {$grant-type p/gat} ++ id {$id p/tid} ++ is {$id p/lid} ++ la {$lat p/lat} ++ lo {$long p/lon} ++ na {$name p/lid} ++ os {$source-screen-name p/scr} ++ pl {$place-id p/pla} ++ qq {$q p/@t} ++ sc {$screen-name p/scr} ++ sd ?(ui sc) ++ ss {$screen-name p/lsc} ++ sl {$slug p/slu} ++ si {$source-id p/tid} ++ st {$status p/@t} ++ te {$text p/@t} ++ ti {$target-id p/tid} ++ ts {$target-screen-name p/scr} ++ ur {$url p/url} ++ ui {$user-id p/tid} ++ us {$user-id p/lid} -- :: :: the head of every element in ++doc-data is a hoon type for an endpoint :: ++endpoint is the grand union of all of them ++ endpoint (normalize (fork-clams (heads doc-data))) ++ heads |*(a/(pole) ?~(a a [-<.a (heads +.a)])) ++ fork-clams |* a/{_{term *} (pole _{term *})} :: ^- _{term *} ?~ +.a -.a ?(-.a (fork-clams +.a)) :: ++ normalize :: XX smarter pretty-printing |* a/_{@ *} :: ^+ a |= b/* ^+ [?@(- . .)]:(a b) (a b) :: ++ doc-data-dry :: staticly typed for endpoint lookup =, param ^- (list {typ/_{term (list param)} met/?($get $post) pax/path}) doc-data :: ++ doc-data :: scraped from api docs, used to create types and requests :: ^- (pole {_{term _(pole *param)} ?($get $post) path}) => param :~ [ {$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' ] :: [ {$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] :: [ {$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] :: [ {$blocks $~} %get /blocks/list ] [ {$blocks-ids $~} %get /blocks/ids ] [ {$block sd $~} %post /blocks/create ] [ {$unblock sd $~} %post /blocks/destroy ] :: [ {$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 ] :: [ {$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 ] == -- --