Does anyone know how to edit the below Scrip to enable focused projects in the sidebar to also be prioritizable?
Many thanks!
Josh
property pTitle : "Focus on flagged projects"
tell application "OmniFocus"
set oDoc to default document
set lstProjects to my ProjectList(oDoc)
if length of lstProjects > 0 then
set focus of front document window of oDoc to lstProjects
else
set focus of front document window of oDoc to {}
display dialog "No flagged projects found" with title pTitle
end if
end tell
on ProjectList(oParent)
using terms from application "OmniFocus"
tell oParent
-- ADJUST THE WHERE QUERIES TO MATCH
--THE TYPE OF PROJECTS YOU WANT TO LIST
set lstProjects to projects where (flagged is true) and ((status is active) or (status is on hold))
set lstFolders to folders where hidden is false
end tell
repeat with oFolder in lstFolders
set lstProjects to lstProjects & my ProjectList(oFolder)
end repeat
return lstProjects
end using terms from
end ProjectList
Many thanks!
Josh
property pTitle : "Focus on flagged projects"
tell application "OmniFocus"
set oDoc to default document
set lstProjects to my ProjectList(oDoc)
if length of lstProjects > 0 then
set focus of front document window of oDoc to lstProjects
else
set focus of front document window of oDoc to {}
display dialog "No flagged projects found" with title pTitle
end if
end tell
on ProjectList(oParent)
using terms from application "OmniFocus"
tell oParent
-- ADJUST THE WHERE QUERIES TO MATCH
--THE TYPE OF PROJECTS YOU WANT TO LIST
set lstProjects to projects where (flagged is true) and ((status is active) or (status is on hold))
set lstFolders to folders where hidden is false
end tell
repeat with oFolder in lstFolders
set lstProjects to lstProjects & my ProjectList(oFolder)
end repeat
return lstProjects
end using terms from
end ProjectList