This one's a quickie-- it lets me create an outline (usually a to-do list) and copy it in a format suitable for pasting into our wiki. The weird whitespace is an end-of-line.
-- copy outline to the clipboard in a format suitable for wiki tell front document of application "OmniOutliner Professional" set theText to "" repeat with theRow in rows set theIndent to "" repeat (the level of theRow) times set theIndent to theIndent & " " end repeat set theText to theText & theIndent & "- [] " & the topic of theRow & " " end repeat set the clipboard to theText end tell
Posted by Jason at September 2, 2007 06:46 PM