Tumblr and Quicksilver

In the span of the last few hours I’ve discovered Tumblr (thanks to Erica), signed up and created my own, lamented its lack of a working (at least in Leopard) widget Tumblet, tried to implement a Quicksilver script for it, and then learned enough AppleScript to fix it. For posterity’s sake, if for nothing else, here’s the script–if you actually plan on using this, make sure to read the original instructions:

For some reason, I cannot for the life of me get WordPress’s HTML editor to save the stinking space in this post. So, if you really want it, comment here and I’ll give you a prettier version.

to extractBetween(SearchText, startText, endText)
set tid to AppleScript's text item delimiters
set AppleScript's text item delimiters to startText
set endItems to text of text item -1 of SearchText
set AppleScript's text item delimiters to endText
set beginningToEnd to text of text item 1 of endItems
set AppleScript's text item delimiters to tid
return beginningToEnd
end extractBetween

to parseLink(link)
set tid to AppleScript's text item delimiters
set AppleScript's text item delimiters to " "
set theURL to the 1st text item of link
set AppleScript's text item delimiters to theURL
set theName to 2nd text item of link
set AppleScript's text item delimiters to tid
return "url=" & theURL & "&name=" & theName
end parseLink

using terms from application "Quicksilver"
on process text post
tell application "Keychain Scripting"
set tumblr_key to first Internet key of current keychain whose server is "www.tumblr.net"
set tumblr_login to ("email=" & account of tumblr_key & "&password=" & password of tumblr_key)
end tell
set tid to AppleScript's text item delimiters
set AppleScript's text item delimiters to "."
if (1st word of post is "http") then
set type to "link"
set send to parseLink(post)
else if (1st text item of post is "www") then
set type to "link"
set send to parseLink(post)
else if (1st character of post is "\"") then
set type to "quote"
set AppleScript's text item delimiters to "\""
set theQuote to the 2nd text item of post
set AppleScript's text item delimiters to "--"
set source to the 2nd text item of post
set send to "quote=" & theQuote & "&source=" & source
else
set type to "regular"
set title to extractBetween(post, "", "")
set AppleScript's text item delimiters to ""
set body to 2nd text item of post
if (body is "") then set body to 3rd text item of post
set send to "title=" & title & "&body=" & body
end if
set AppleScript's text item delimiters to tid
set new_post to the quoted form of (tumblr_login & "&generator=Quicksilver&type=" & type & "&" & send)
set results to do shell script "curl --data-binary " & new_post & " http://www.tumblr.com/api/write"
if (results is "Authentication failed.") then show notification "Posting failed. Make sure your email and password are correct!"
return nothing
end process text
end using terms from