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