1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
on idle
  tell application "OmniFocus"
    tell front document
      set theInbox to every inbox task
      if theInbox is not equal to {} then
        repeat with n from 1 to length of theInbox
          set currentTask to item n of theInbox
          set taskName to name of currentTask
          if taskName starts with "--" then
            set taskName to ((characters 3 thru -1 of taskName) as string)
            set newTask to parse tasks into with transport text taskName with as single task
            delete currentTask
          end if
        end repeat
      end if
    end tell
  end tell
  return 120
end idle