Harvard-ize script

OmniOutliner
#1

I came across an applescript called Harvard-ize in a ‘usefulscripts’ folder on the net. I think it is fairly old. Anyway, it doesn’t seem to work with Omnioutliner Pro 5. Is anyone familiar with this script, and if so, have you modified it to work with the latest version?

Here it is, in case anyone wants to take it on.

Thanks,

Greg

tell front document of application “OmniOutliner”
tell level style 1
set value of attribute “heading-type(com.omnigroup.OmniOutliner)” to “Roman”
set value of attribute “heading-suffix(com.omnigroup.OmniOutliner)” to “.”
end tell

tell level style 2
	set value of attribute "heading-type(com.omnigroup.OmniOutliner)" to "Letters"
	set value of attribute "heading-suffix(com.omnigroup.OmniOutliner)" to "."
end tell

tell level style 3
	set value of attribute "heading-type(com.omnigroup.OmniOutliner)" to "Numeric"
	set value of attribute "heading-suffix(com.omnigroup.OmniOutliner)" to "."
end tell

tell level style 4
	set value of attribute "heading-type(com.omnigroup.OmniOutliner)" to "Letters"
	set value of attribute "heading-suffix(com.omnigroup.OmniOutliner)" to ")"
	set value of attribute "heading-lowercase(com.omnigroup.OmniOutliner)" to true
end tell

tell level style 5
	set value of attribute "heading-type(com.omnigroup.OmniOutliner)" to "Numeric"
	set value of attribute "heading-prefix(com.omnigroup.OmniOutliner)" to "("
	set value of attribute "heading-suffix(com.omnigroup.OmniOutliner)" to ")"
end tell

tell level style 6
	set value of attribute "heading-type(com.omnigroup.OmniOutliner)" to "Roman"
	set value of attribute "heading-prefix(com.omnigroup.OmniOutliner)" to ""
	set value of attribute "heading-suffix(com.omnigroup.OmniOutliner)" to ")"
	set value of attribute "heading-lowercase(com.omnigroup.OmniOutliner)" to true
end tell

tell level style 7
	set value of attribute "heading-type(com.omnigroup.OmniOutliner)" to "Letters"
	set value of attribute "heading-prefix(com.omnigroup.OmniOutliner)" to "("
	set value of attribute "heading-suffix(com.omnigroup.OmniOutliner)" to ")"
	set value of attribute "heading-lowercase(com.omnigroup.OmniOutliner)" to true
end tell

tell level style 8
	set value of attribute "heading-type(com.omnigroup.OmniOutliner)" to "Roman"
	set value of attribute "heading-prefix(com.omnigroup.OmniOutliner)" to ""
	set value of attribute "heading-suffix(com.omnigroup.OmniOutliner)" to ")"
	set value of attribute "heading-lowercase(com.omnigroup.OmniOutliner)" to true
end tell

tell level style 9
	set value of attribute "heading-type(com.omnigroup.OmniOutliner)" to "Letters"
	set value of attribute "heading-prefix(com.omnigroup.OmniOutliner)" to "("
	set value of attribute "heading-suffix(com.omnigroup.OmniOutliner)" to ")"
end tell

tell level style 10
	set value of attribute "heading-type(com.omnigroup.OmniOutliner)" to "Roman"
	set value of attribute "heading-prefix(com.omnigroup.OmniOutliner)" to ""
	set value of attribute "heading-suffix(com.omnigroup.OmniOutliner)" to ")"
	set value of attribute "heading-lowercase(com.omnigroup.OmniOutliner)" to true
end tell

tell level style 11
	set value of attribute "heading-type(com.omnigroup.OmniOutliner)" to "Numeric"
	set value of attribute "heading-prefix(com.omnigroup.OmniOutliner)" to "("
	set value of attribute "heading-suffix(com.omnigroup.OmniOutliner)" to ")"
end tell

tell level style 12
	set value of attribute "heading-type(com.omnigroup.OmniOutliner)" to "Letters"
	set value of attribute "heading-prefix(com.omnigroup.OmniOutliner)" to "("
	set value of attribute "heading-suffix(com.omnigroup.OmniOutliner)" to ")"
	set value of attribute "heading-lowercase(com.omnigroup.OmniOutliner)" to true
end tell

tell level style 13
	set value of attribute "heading-type(com.omnigroup.OmniOutliner)" to "Roman"
	set value of attribute "heading-prefix(com.omnigroup.OmniOutliner)" to ""
	set value of attribute "heading-suffix(com.omnigroup.OmniOutliner)" to ")"
	set value of attribute "heading-lowercase(com.omnigroup.OmniOutliner)" to true
end tell

tell level style 14
	set value of attribute "heading-type(com.omnigroup.OmniOutliner)" to "Numeric"
	set value of attribute "heading-prefix(com.omnigroup.OmniOutliner)" to "("
	set value of attribute "heading-suffix(com.omnigroup.OmniOutliner)" to ")"
end tell

end tell

#2

An easy way to do this now is to use the Class Notes theme, which has Harvard notation already set up. Just click the Theme button in the toolbar, then click Notetaking and Class Notes. (Requires Pro, much like the above AppleScript.)

You can also use the Class Notes theme as a starting point for creating your own custom theme (if you like the Harvard notation, say, but don’t like the rest of the formatting). Just set up a document the way you want, then use File > Save As Template….