TypeIt4Me URL shortener using Bitly
Here's a quick thingy for bit.ly-ing urls. Copy a url, type your snippet and TypeIt4Me makes it a bit.ly url.
To make applescript work right in TypeIt4Me, you'll need to add the a/s character at the beginning of your snippet content. At the bottom of the window, go to Insert> Special> a/s (Execute As Applescript)
set the ClipURL to (the clipboard as string)
# to get your api key, go to http://bitly.com/a/your_api_key
set u to "" # your username goes in the quotes
set k to "" # your api key goes in the quotes
if ((characters 1 through 4 of ClipURL as string) is not "http") then
return "Malformed URL."
set ClipURL to deHash(ClipURL)
set curlCMD to ¬
"curl --stderr /dev/null \"http://api.bitly.com/v3/shorten?login=" & u & "&apiKey=" & k & "&longUrl=" & ClipURL & "&format=txt\""
-- Run the script and get the result:
set tinyURL to (do shell script curlCMD)
set hash to "#"
set rehash to "%23"
set ditd to text item delimiters of AppleScript
set text item delimiters of AppleScript to hash
set uri to text items of uri
set text item delimiters of AppleScript to rehash
set uri to "" & uri
set text item delimiters of AppleScript to ditd