The Omni Group
These forums are now read-only. Please visit our new forums to participate in discussion. A new account will be required to post in the new forums. For more info on the switch, see this post. Thank you!

Go Back   The Omni Group Forums > OmniFocus > OmniFocus Extras
FAQ Members List Calendar Search Today's Posts Mark Forums Read

 
Jumping to a folder Thread Tools Search this Thread Display Modes
I could use some help modify a script that I had a lot of help with. The script below finds a project that starts with a name that I enter into the dialog. I would like to do something similar but at the folder level. What I would like to do is type in the name of the folder, then have it open a new window with just that folder and all the available and remaining projects showing.

Can anyone help?

Here is the original script:

tell application "OmniFocus"
set MyDoc to default document
tell MyDoc
display dialog "Enter Project to Jump to" buttons {"Cancel", "Jump"} default button 2 default answer "" with title "Jump"
if button returned of result is "Jump" then
set ProjectString to text returned of result
set MyProjectArray to complete ProjectString as project maximum matches 1
set MyProjectID to id of first item of MyProjectArray
set ThisProject to project id MyProjectID
set newW to make document window with properties {focus:{ThisProject}, selected view mode identifier:"project", search term:""}
set (selected smart group identifier of sidebar of newW) to "remaining-projects"
set selected task state filter identifier of content of newW to "incomplete"
-- set selected task state filter identifier of content of newW to "all"
activate
end if
end tell
end tell
 
Try this on for size:

Code:
tell application "OmniFocus"
	set MyDoc to default document
	tell MyDoc
		display dialog "Enter Folder to Jump to" buttons {"Cancel", "Jump"} default button 2 default answer "" with title "Jump"
		if button returned of result is "Jump" then
			set ProjectString to text returned of result
			set MyProjectArray to complete ProjectString as project maximum matches 1
			set MyProjectID to id of first item of MyProjectArray
			set ThisProject to project id MyProjectID
			set ThisFolder to container of ThisProject
			set newW to make document window with properties {focus:{ThisFolder}, selected view mode identifier:"project", search term:""}
			set (selected smart group identifier of sidebar of newW) to "remaining-projects"
			set selected task state filter identifier of content of newW to "incomplete"
			-- set selected task state filter identifier of content of newW to "all"
			activate
		end if
	end tell
end tell
 
whpalmer4: Perfection! Thanks very much.
 
I already gave this to George, but here's a beefed-up script that works with LaunchBar as well as when invoked directly.
 
 


Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes


Similar Threads
Thread Thread Starter Forum Replies Last Post
The mysterious jumping holiday PelayoBesa OmniPlan General 4 2009-11-17 05:18 AM
Perspective windows jumping about BevvyB OmniFocus 1 for Mac 5 2009-08-28 09:19 AM
Jumping tabs II daiyi666@yahoo.com OmniWeb Bug Reports 4 2007-02-12 06:00 AM
Jumping tabs? daiyi666@yahoo.com OmniWeb Bug Reports 0 2007-01-26 06:46 AM
Jumping to the top and end of a page synotic OmniWeb General 3 2006-11-03 08:17 AM


All times are GMT -8. The time now is 09:07 AM.


Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2020, vBulletin Solutions, Inc.