Tweet.scpt

-- Tweet.scpt
-- Applescript for Quicksilver to post to Twitter using Twitterrific credentials stored in the keychain
-- Copy to ~/Library/Application Support/Quicksilver/Actions and restart Quicksilver
-- Modified from http://blog.codahale.com/2007/01/15/tweet-twitter-quicksilver/

using terms from application "Quicksilver"
        on process text tweet
                tell application "Keychain Scripting"
                        set twitter_key to first key of current keychain whose name is "Twitterrific"
                        set twitter_login to quoted form of (account of twitter_key & ":" & password of twitter_key)
                end tell
                set twitter_status to quoted form of ("source=qucs&status=" & tweet)
                set results to do shell script "curl --user " & twitter_login & " --data-binary " & twitter_status & " http://twitter.com/statuses/update.json"
                -- display dialog results
                log results
        end process text
end using terms from