Adicionar linhas como lembretes

Adicione as linhas de texto selecionadas como novos lembretes.
Pergunta qual lista.
Use como script de serviço do Automator.

on run {input, parameters}
    set input to (first item of input)
    tell script "_string" to set input to trimBoth(input)
    set lst to every paragraph of input

    tell application "Reminders"
        activate
        set aList to (name of lists)

        set theList to some list whose name is (first item of (choose from list aList))

        tell theList
            repeat with s in lst
                tell script "_string" to set s to trimBoth(s)
                make new reminder with properties {name:s}
            end repeat
        end tell
    end tell
    return input
end run

Requer biblioteca de String (adicione http://applescript.bratis-lover.net/library/string em ~ / Bibliotecas de Script)

https://gist.github.com/8524793