steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

bit.ly: add more of the API.

db4
John Benediktsson 2012-09-22 12:54:51 -07:00
parent 0c68baf6b5
commit fa310fe054
2 changed files with 52 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
extra/bit/ly/authors.txt
View File

@ -1 +1,2 @@
Slava Pestov Slava Pestov
John Benediktsson

64
extra/bit/ly/ly.factor
View File

@ -1,33 +1,71 @@
! Copyright (C) 2010 Slava Pestov. ! Copyright (C) 2010-2012 Slava Pestov, John Benediktsson.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: assocs http.client json.reader kernel namespaces urls ; USING: assocs http.client json.reader kernel namespaces
sequences urls ;
IN: bit.ly IN: bit.ly
SYMBOLS: login api-key ; SYMBOLS: bitly-api-user bitly-api-key ;
<PRIVATE <PRIVATE
: of ( assoc key -- value ) swap at ; : of ( assoc key -- value ) swap at ;
: make-request ( long-url -- request ) : <bitly-url> ( path -- url )
"http://api.bit.ly/v3/shorten" >url "http://api.bitly.com/v3/" prepend >url
login get "login" set-query-param bitly-api-user get "login" set-query-param
api-key get "apiKey" set-query-param bitly-api-key get "apiKey" set-query-param
"json" "format" set-query-param "json" "format" set-query-param ;
swap "longUrl" set-query-param ;
ERROR: bad-response json status ; ERROR: bad-response json status ;
: check-response ( json -- json ) : check-status ( json -- json )
dup "status_code" of 200 = [ dup "status_code" of 200 = [
dup "status_txt" of dup "status_txt" of
bad-response bad-response
] unless ; ] unless ;
: parse-response ( response data -- short-url ) : json-data ( url -- json )
nip json> check-response "data" of "url" of ; http-get nip json> check-status "data" swap at ;
: get-short-url ( short-url path -- data )
<bitly-url> swap "shortUrl" set-query-param json-data ;
: get-long-url ( long-url path -- data )
<bitly-url> swap "longUrl" set-query-param json-data ;
PRIVATE> PRIVATE>
: shorten-url ( long-url -- short-url ) : shorten-url ( long-url -- short-url )
make-request http-get parse-response ; "shorten" get-long-url "url" of ;
: expand-url ( short-url -- url )
"expand" get-short-url "expand" of first "long_url" of ;
: valid-user? ( user api-key -- ? )
"validate" <bitly-url>
swap "x_apiKey" set-query-param
swap "x_login" set-query-param
json-data "valid" of 1 = ;
: clicks ( short-url -- clicks )
"clicks" get-short-url "clicks" of first "global_clicks" of ;
: referrers ( short-url -- referrers )
"referrers" get-short-url "referrers" of ;
: countries ( short-url -- countries )
"countries" get-short-url "countries" of ;
: clicks-by-minute ( short-url -- clicks )
"clicks_by_minute" get-short-url "clicks_by_minute" of ;
: clicks-by-day ( short-url -- clicks )
"clicks_by_day" get-short-url "clicks_by_day" of ;
: lookup ( long-urls -- short-urls )
"lookup" <bitly-url>
swap "url" set-query-param
json-data "lookup" of [ "short_url" of ] map ;
: info ( short-url -- title )
"info" get-short-url "info" of first "title" of ;