set redmineName to "Mein persšnliches Redmine" tell application "Safari" set theTitle to name of front window set theURL to URL of front document end tell if (length of theTitle < 2) then display alert "Kann Titel nicht bekommen (leer)!" else set tid to AppleScript's text item delimiters set AppleScript's text item delimiters to "#" set theSubstring to (text item 2 of theTitle) as text set AppleScript's text item delimiters to " - " & redmineName set theName to "#" & (text item 1 of theSubstring) as text set AppleScript's text item delimiters to tid tell application "Things" set newToDo to make new to do with properties {name:theName} set notes of newToDo to "[url=" & theURL & "]" & theURL & "[/url]" & linefeed end tell tell application "Growl" set the allNotificationsList to {"Task Created"} set the enabledNotificationsList to {"Task Created"} register as application  "Create Task: " all notifications allNotificationsList  default notifications enabledNotificationsList  icon of application "Things" notify with name  "Task Created" title  "Task created in Things" description  theName application name "Create Task: " end tell end if