QuickSilver to TaskPaper

I hope this script is useful for QuickSilver users. To install it:

1. Open Script Editor and paste in the script
2. Save the script as ~/Library/Application Support/QuickSilver/Actions/TaskPaper.scpt
3. Restart QuickSilver

To use it:

1. Invoke QuickSilver (Control-Space) by default
2. Press period ‘.’ and type your entry
3. Press tab and then type until the “TaskPaper” action is selected.

Your new entry will be added to your Inbox project.

Here’s the script:

using terms from application "Quicksilver" 
        on process text tasks_text 
                tell application "TaskPaper" 
                        tell front document 
                                if not (exists project named "Inbox") then 
                                        make new project with properties {name:"Inbox"} at front of projects 
                                end if 
                                tell project named "Inbox" 
                                        repeat with each in paragraphs of tasks_text 
                                                make new entry with properties {text line:each} 
                                        end repeat 
                                end tell 
                        end tell 
                end tell 
        end process text 
end using terms from