matellis · July 11, 2024 06:50 · lgeorge · Aug 28, 2022 · HelloThisIsFlo · Apr 18, 2023
diff --git a/things3-to-of3.applescript b/things3-to-of3.applescript
 --------------------------------------------------
 --------------------------------------------------
 -- Import tasks from Things to OmniFocus
 --------------------------------------------------
 --------------------------------------------------
 --
 -- Script taken from: http://forums.omnigroup.com/showthread.php?t=14846&page=2 && https://gist.github.com/cdzombak/11265615 
 -- Added: OF3 & Things 3 compatibility; task order; areas/folders; tags
 -- Empty your Things Trash first.
 --
 -- Does not support:
 --  Recurring tasks
 --  Sub-tasks
 --  Someday tasks (can't get them from T3 unless they are not in a project)
 --  Tag short cuts (not an OF3 feature)
 --  Cancellation date (no OF3 equivalent)
 --  Contact for a task (no OF3 equivalent)
 --  Modification date from Things (it's a read only attribute in OF3)

 --
 -- Title of project for stuff in things with no project (avoids going into the Inbox)
 --
 property noProjectTitle : "No Project In Things"

 set answer to the button returned of ¬
 	(display alert ¬
 		¬
 			"Things 3 to Omnifocus 3 Importer" & return & return & "PLEASE READ BEFORE PROCEEDING" message ¬
 		"The script does not yet import sub-tasks or recurrences.
 >> 'Some Day' tasks that are assigned to a project will not be imported. <<
 Omnifocus does not support tag short cuts, cancellation dates or contact info for a task,
 and does not permit the importation of modification date.

 1. TAKE BACKUPS!
 2. Empty your trash on Things 3.
 3. Reset your database on OmniFocus 3 & delete default tags.
 4. Run Clean Up when done on OmniFocus to remove logged tasks.
 5. Setup sync after import has completed.

 Then press 'I Understand' to get going.
 Importation will take a while, about 3,000 tasks per hour.
 " buttons {"How do I reset Omnifocus?", "I Understand", "    Cancel    "} default button 3)
 if answer is "    Cancel    " then return
 if answer is "How do I reset Omnifocus?" then
 	display dialog "Make sure you take backups of your Omnifocus database if you've used it before. Resetting will delete even the backups unless they are copied elsewhere!" with icon stop
 	open location "https://support.omnigroup.com/omnifocus-reset-database/"
 	return
 end if
 tell application "Things3"
 	--
 	-- Import T3 hierarchal tags into OF3 in correct order and without duplicates
 	--
 	-- Get tags from T3
 	set tagList to {}
 	repeat with aTag in every tag
 		if (parent tag of aTag) is missing value then
 			copy {null, name of aTag as string} to end of tagList
 		else
 			copy {name of parent tag of aTag as string, name of aTag as string} to end of tagList
 		end if
 	end repeat
 	
 	-- Put tags into OF3
 	tell application "OmniFocus"
 		tell default document
 			-- we do this twice, once with first level and then again with second level
 			-- this is the only way to preserve order
 			
 			-- first pass - parents only
 			repeat with aTag in tagList
 				set theParentTag to first item of aTag
 				set theChildTag to second item of aTag
 				
 				if theParentTag is null then
 					if not (tag theChildTag exists) then ¬
 						make new tag with properties {name:theChildTag}
 				end if
 			end repeat
 			
 			-- second pass - children only			
 			repeat with aTag in tagList
 				set theParentTag to first item of aTag
 				set theChildTag to second item of aTag
 				
 				if theParentTag is not null then
 					set parentTag to tag theParentTag
 					if not (my isTagInList(name of every tag of parentTag, theChildTag)) then
 						set childTag to make new tag with properties {name:theChildTag}
 						move childTag to (end of tags of (first tag whose name is theParentTag))
 					end if
 				end if
 			end repeat
 		end tell
 	end tell -- End of Tag Import
 	
 	--	
 	-- Import T3 Areas as Folders into OF3
 	--
 	-- Get areas from T3
 	set folderList to name of every area
 	log "Processing " & (count of folderList) & " folders"
 	
 	-- Put areas into OF3
 	tell application "OmniFocus"
 		tell default document
 			repeat with aFolder in folderList
 				if not (folder aFolder exists) then
 					make new folder with properties {name:aFolder}
 				end if
 			end repeat
 		end tell
 	end tell -- End of Folder Import
 	--
 	-- Import Projects into OF3
 	-- 
 	set projectList to {{missing value, noProjectTitle, "", "active", "", {}}}
 	set completedProjectList to {}
 	set AppleScript's text item delimiters to ","
 	repeat with aProject in every project
 		set areaName to null
 		if area of aProject is missing value then
 			set areaName to missing value
 		else
 			set areaName to name of area of aProject as string
 		end if
 		set projectName to name of aProject as string
 		set projectNotes to notes of aProject as string
 		--		set tagList to every text item of (tag names of aProject as string)
 		set tagList to my gatherTagsOf(aProject)
 		
 		set projectCompletionDate to completion date of aProject
 		
 		-- status: active/‌on hold/‌done/‌dropped. vs open completed canceled
 		set projectStatus to status of aProject as string
 		
 		copy {areaName, projectName, projectNotes, projectStatus, projectCompletionDate, tagList} to end of projectList
 	end repeat
 	log "Processing " & (count of projectList) & " projects"
 	
 	tell application "OmniFocus"
 		tell default document
 			repeat with aProject in projectList
 				set theFolderName to first item in aProject
 				set theProjectName to second item in aProject
 				set theProjectNotes to third item in aProject
 				set theProjectStatus to fourth item in aProject
 				set theProjectTags to sixth item in aProject
 				set theProjectCompletionDate to fifth item in aProject
 				
 				if theProjectStatus is "completed" then
 					set theProjectStatus to done
 				else if theProjectStatus is "canceled" then
 					set theProjectStatus to dropped
 				else if theProjectStatus is "open" then
 					set theProjectStatus to active
 				end if
 				
 				if theFolderName is missing value then
 					-- no area
 					if (project theProjectName exists) then
 						set theProject to project theProjectName
 					else
 						set theProject to make new project with properties {name:theProjectName, note:theProjectNotes}
 					end if
 					
 					if theProjectStatus is done then
 						if not (my isItemInList(completedProjectList, theProject)) then
 							copy {theProject, theProjectCompletionDate} to end of completedProjectList
 						end if
 					end if
 				else
 					-- Project inside an area
 					tell folder theFolderName
 						if project theProjectName exists then
 							set theProject to project theProjectName
 						else
 							-- add tags
 							set theProject to make new project with properties {name:theProjectName, note:theProjectNotes}
 						end if
 						
 						if theProjectStatus is done then
 							if not (my isItemInList(completedProjectList, theProject)) then
 								copy {theProject, theProjectCompletionDate} to end of completedProjectList
 							end if
 						end if
 						
 					end tell
 					move theProject to (end of sections of (first folder whose name is theFolderName))
 				end if
 				
 				-- Write out tags
 				my writeTagsTo(theProject, theProjectTags)
 			end repeat
 		end tell
 	end tell
 	
 	--
 	--  Import T3 To Dos into OF3
 	--
 	
 	-- Combine all the folders you want to search here
 	-- Options are: Inbox, Today, Anytime, Upcoming, Someday, Lonely Projects, Logbook, Trash
 	set theTodos to to dos of list "Inbox"  & to dos of list "Anytime" & to dos of list "Upcoming" & to dos of list "Someday" & to dos of list "Lonely Projects" & to dos of list "Logbook"
 	
 	-- Go through all the tasks in the combined lists
 	log "Processing " & (count of theTodos) & " entries"
 	repeat with aTodo in theTodos
 		-- Get various attributes of Things task
 		set theTitle to name of aTodo
 		set theNote to notes of aTodo
 		set theDueDate to due date of aTodo
 		set theStartDate to activation date of aTodo -- aka "Defer Date"
 		set theFlagStatus to false
 		set theStatus to status of aTodo as string
 		set theCompletionDate to completion date of aTodo
 		set theCreationDate to creation date of aTodo
 		
 		-- Get project & area names
 		set theFolderName to missing value
 		set theProjectNote to ""
 		set theProjectName to ""
 		set processItemFlag to true
 		set isInbox to false
 		set isProject to false
 		
 		if class of aTodo is project then
 			-- Is this task actually a project?			
 			set isProject to true
 		else if ((area of aTodo is missing value) and (project of aTodo is missing value)) then
 			-- Is this todo in the Inbox? If so, it needs special treatment
 			set isInbox to true
 		else if (project of aTodo) is missing value then
 			-- Just an orphaned task, no such thing in OF3 so put in a folder
 			set theProjectName to noProjectTitle
 		else
 			-- Regular task inside a project
 			set theProjectName to (name of project of aTodo)
 			set theProjectNote to (notes of project of aTodo)
 			
 			-- With a folder
 			if area of project of aTodo is missing value then
 				set theFolderName to missing value
 			else
 				set theFolderName to (name of area of project of aTodo)
 			end if
 		end if
 		
 		-- Gather tags
 		set allTagNames to my gatherTagsOf(aTodo)
 		
 		-- Create a new task in OmniFocus
 		tell application "OmniFocus"
 			tell default document
 				if not isProject then
 					-- Create the actual task - does not de-dupe
 					-- Do it differently if inbox
 					if isInbox then
 						set newTask to make new inbox task with properties {name:theTitle, note:theNote, creation date:theCreationDate, due date:theDueDate, defer date:theStartDate, flagged:theFlagStatus}
 					else
 						if theFolderName is missing value then
 							if project theProjectName exists then
 								tell project theProjectName
 									set newTask to make new task with properties {name:theTitle, note:theNote, creation date:theCreationDate, due date:theDueDate, defer date:theStartDate, flagged:theFlagStatus}
 								end tell
 							end if
 						else
 							tell folder theFolderName
 								tell project theProjectName
 									set newTask to make new task with properties {name:theTitle, note:theNote, creation date:theCreationDate, due date:theDueDate, defer date:theStartDate, flagged:theFlagStatus}
 								end tell
 							end tell
 						end if
 					end if
 					
 					-- handle completed
 					if theStatus is "completed" then
 						mark complete newTask
 						set completion date of newTask to theCompletionDate
 					else if theStatus is "canceled" then
 						mark complete newTask
 						set status of newTask to dropped
 						set completion date of newTask to theCompletionDate
 					else if theStatus is "open" then
 						mark incomplete newTask
 						set completion date of newTask to missing value
 					end if
 					
 					-- Process tags
 					my writeTagsTo(newTask, allTagNames)
 					
 				end if -- not a task
 			end tell -- OF application
 		end tell -- Document
 	end repeat -- Things list
 	
 	-- Mark complete any projects that should be that way
 	tell application "OmniFocus"
 		tell default document
 			repeat with completedProjectInfo in completedProjectList
 				set completedProject to first item of completedProjectInfo
 				set completedProjectDate to second item of completedProjectInfo
 				mark complete completedProject
 				set completion date of completedProject to completedProjectDate
 			end repeat
 		end tell
 	end tell
 end tell -- Things application

 -- Clumsy way of seeing if an item is in the Inbox as Things doesn't expose a "list" property
 on isItemInList(theList, theItem)
 	set the matchFlag to false
 	repeat with anItem from 1 to the count of theList
 		if theList contains anItem then ¬
 			set the matchFlag to true
 	end repeat
 	return the matchFlag
 end isItemInList
 -- Another hack for heirarchal tags to say "does tag exist inside this other tag?"
 on isTagInList(theList, theItem)
 	set the matchFlag to false
 	repeat with anItem from 1 to the count of theList
 		if item anItem of theList is theItem then ¬
 			set the matchFlag to true
 	end repeat
 	return the matchFlag
 end isTagInList
 -- less clumsy inbox hack
 on isInInbox(anItem)
 	return ((area of anItem is missing value) and (project of anItem is missing value))
 end isInInbox
 -- gather tags
 on gatherTagsOf(aTodo)
 	set allTagNames to {}
 	tell application "Things3"
 		repeat with aTag in every tag of aTodo
 			if (parent tag of aTag) is missing value then
 				copy {null, name of aTag} to end of allTagNames
 			else
 				copy {name of parent tag of aTag, name of aTag} to end of allTagNames
 			end if
 		end repeat
 	end tell
 	return allTagNames
 end gatherTagsOf
 -- write tags
 on writeTagsTo(aTask, tagList)
 	tell application "OmniFocus"
 		tell default document
 			repeat with aTag in tagList
 				
 				set theParentTag to first item of aTag
 				set theChildTag to second item of aTag
 				
 				if theParentTag is null then
 					-- No Parent tag
 					add tag theChildTag to tags of aTask
 				else
 					-- Has a parent tag
 					set childTag to (first tag of tag theParentTag whose name is theChildTag)
 					add childTag to tags of aTask
 				end if
 			end repeat -- tags
 		end tell
 	end tell
 end writeTagsTo
	--------------------------------------------------
	--------------------------------------------------
	-- Import tasks from Things to OmniFocus
	--------------------------------------------------
	--------------------------------------------------
	--
	-- Script taken from: http://forums.omnigroup.com/showthread.php?t=14846&page=2 && https://gist.github.com/cdzombak/11265615
	-- Added: OF3 & Things 3 compatibility; task order; areas/folders; tags
	-- Empty your Things Trash first.
	--
	-- Does not support:
	-- Recurring tasks
	-- Sub-tasks
	-- Someday tasks (can't get them from T3 unless they are not in a project)
	-- Tag short cuts (not an OF3 feature)
	-- Cancellation date (no OF3 equivalent)
	-- Contact for a task (no OF3 equivalent)
	-- Modification date from Things (it's a read only attribute in OF3)

	--
	-- Title of project for stuff in things with no project (avoids going into the Inbox)
	--
	property noProjectTitle : "No Project In Things"

	set answer to the button returned of ¬
	(display alert ¬
	¬
	"Things 3 to Omnifocus 3 Importer" & return & return & "PLEASE READ BEFORE PROCEEDING" message ¬
	"The script does not yet import sub-tasks or recurrences.
	>> 'Some Day' tasks that are assigned to a project will not be imported. <<
	Omnifocus does not support tag short cuts, cancellation dates or contact info for a task,
	and does not permit the importation of modification date.

	1. TAKE BACKUPS!
	2. Empty your trash on Things 3.
	3. Reset your database on OmniFocus 3 & delete default tags.
	4. Run Clean Up when done on OmniFocus to remove logged tasks.
	5. Setup sync after import has completed.

	Then press 'I Understand' to get going.
	Importation will take a while, about 3,000 tasks per hour.
	" buttons {"How do I reset Omnifocus?", "I Understand", " Cancel "} default button 3)
	if answer is " Cancel " then return
	if answer is "How do I reset Omnifocus?" then
	display dialog "Make sure you take backups of your Omnifocus database if you've used it before. Resetting will delete even the backups unless they are copied elsewhere!" with icon stop
	open location "https://support.omnigroup.com/omnifocus-reset-database/"
	return
	end if
	tell application "Things3"
	--
	-- Import T3 hierarchal tags into OF3 in correct order and without duplicates
	--
	-- Get tags from T3
	set tagList to {}
	repeat with aTag in every tag
	if (parent tag of aTag) is missing value then
	copy {null, name of aTag as string} to end of tagList
	else
	copy {name of parent tag of aTag as string, name of aTag as string} to end of tagList
	end if
	end repeat

	-- Put tags into OF3
	tell application "OmniFocus"
	tell default document
	-- we do this twice, once with first level and then again with second level
	-- this is the only way to preserve order

	-- first pass - parents only
	repeat with aTag in tagList
	set theParentTag to first item of aTag
	set theChildTag to second item of aTag

	if theParentTag is null then
	if not (tag theChildTag exists) then ¬
	make new tag with properties {name:theChildTag}
	end if
	end repeat

	-- second pass - children only
	repeat with aTag in tagList
	set theParentTag to first item of aTag
	set theChildTag to second item of aTag

	if theParentTag is not null then
	set parentTag to tag theParentTag
	if not (my isTagInList(name of every tag of parentTag, theChildTag)) then
	set childTag to make new tag with properties {name:theChildTag}
	move childTag to (end of tags of (first tag whose name is theParentTag))
	end if
	end if
	end repeat
	end tell
	end tell -- End of Tag Import

	--
	-- Import T3 Areas as Folders into OF3
	--
	-- Get areas from T3
	set folderList to name of every area
	log "Processing " & (count of folderList) & " folders"

	-- Put areas into OF3
	tell application "OmniFocus"
	tell default document
	repeat with aFolder in folderList
	if not (folder aFolder exists) then
	make new folder with properties {name:aFolder}
	end if
	end repeat
	end tell
	end tell -- End of Folder Import
	--
	-- Import Projects into OF3
	--
	set projectList to {{missing value, noProjectTitle, "", "active", "", {}}}
	set completedProjectList to {}
	set AppleScript's text item delimiters to ","
	repeat with aProject in every project
	set areaName to null
	if area of aProject is missing value then
	set areaName to missing value
	else
	set areaName to name of area of aProject as string
	end if
	set projectName to name of aProject as string
	set projectNotes to notes of aProject as string
	-- set tagList to every text item of (tag names of aProject as string)
	set tagList to my gatherTagsOf(aProject)

	set projectCompletionDate to completion date of aProject

	-- status: active/‌on hold/‌done/‌dropped. vs open completed canceled
	set projectStatus to status of aProject as string

	copy {areaName, projectName, projectNotes, projectStatus, projectCompletionDate, tagList} to end of projectList
	end repeat
	log "Processing " & (count of projectList) & " projects"

	tell application "OmniFocus"
	tell default document
	repeat with aProject in projectList
	set theFolderName to first item in aProject
	set theProjectName to second item in aProject
	set theProjectNotes to third item in aProject
	set theProjectStatus to fourth item in aProject
	set theProjectTags to sixth item in aProject
	set theProjectCompletionDate to fifth item in aProject

	if theProjectStatus is "completed" then
	set theProjectStatus to done
	else if theProjectStatus is "canceled" then
	set theProjectStatus to dropped
	else if theProjectStatus is "open" then
	set theProjectStatus to active
	end if

	if theFolderName is missing value then
	-- no area
	if (project theProjectName exists) then
	set theProject to project theProjectName
	else
	set theProject to make new project with properties {name:theProjectName, note:theProjectNotes}
	end if

	if theProjectStatus is done then
	if not (my isItemInList(completedProjectList, theProject)) then
	copy {theProject, theProjectCompletionDate} to end of completedProjectList
	end if
	end if
	else
	-- Project inside an area
	tell folder theFolderName
	if project theProjectName exists then
	set theProject to project theProjectName
	else
	-- add tags
	set theProject to make new project with properties {name:theProjectName, note:theProjectNotes}
	end if

	if theProjectStatus is done then
	if not (my isItemInList(completedProjectList, theProject)) then
	copy {theProject, theProjectCompletionDate} to end of completedProjectList
	end if
	end if

	end tell
	move theProject to (end of sections of (first folder whose name is theFolderName))
	end if

	-- Write out tags
	my writeTagsTo(theProject, theProjectTags)
	end repeat
	end tell
	end tell

	--
	-- Import T3 To Dos into OF3
	--

	-- Combine all the folders you want to search here
	-- Options are: Inbox, Today, Anytime, Upcoming, Someday, Lonely Projects, Logbook, Trash
	set theTodos to to dos of list "Inbox" & to dos of list "Anytime" & to dos of list "Upcoming" & to dos of list "Someday" & to dos of list "Lonely Projects" & to dos of list "Logbook"

	-- Go through all the tasks in the combined lists
	log "Processing " & (count of theTodos) & " entries"
	repeat with aTodo in theTodos
	-- Get various attributes of Things task
	set theTitle to name of aTodo
	set theNote to notes of aTodo
	set theDueDate to due date of aTodo
	set theStartDate to activation date of aTodo -- aka "Defer Date"
	set theFlagStatus to false
	set theStatus to status of aTodo as string
	set theCompletionDate to completion date of aTodo
	set theCreationDate to creation date of aTodo

	-- Get project & area names
	set theFolderName to missing value
	set theProjectNote to ""
	set theProjectName to ""
	set processItemFlag to true
	set isInbox to false
	set isProject to false

	if class of aTodo is project then
	-- Is this task actually a project?
	set isProject to true
	else if ((area of aTodo is missing value) and (project of aTodo is missing value)) then
	-- Is this todo in the Inbox? If so, it needs special treatment
	set isInbox to true
	else if (project of aTodo) is missing value then
	-- Just an orphaned task, no such thing in OF3 so put in a folder
	set theProjectName to noProjectTitle
	else
	-- Regular task inside a project
	set theProjectName to (name of project of aTodo)
	set theProjectNote to (notes of project of aTodo)

	-- With a folder
	if area of project of aTodo is missing value then
	set theFolderName to missing value
	else
	set theFolderName to (name of area of project of aTodo)
	end if
	end if

	-- Gather tags
	set allTagNames to my gatherTagsOf(aTodo)

	-- Create a new task in OmniFocus
	tell application "OmniFocus"
	tell default document
	if not isProject then
	-- Create the actual task - does not de-dupe
	-- Do it differently if inbox
	if isInbox then
	set newTask to make new inbox task with properties {name:theTitle, note:theNote, creation date:theCreationDate, due date:theDueDate, defer date:theStartDate, flagged:theFlagStatus}
	else
	if theFolderName is missing value then
	if project theProjectName exists then
	tell project theProjectName
	set newTask to make new task with properties {name:theTitle, note:theNote, creation date:theCreationDate, due date:theDueDate, defer date:theStartDate, flagged:theFlagStatus}
	end tell
	end if
	else
	tell folder theFolderName
	tell project theProjectName
	set newTask to make new task with properties {name:theTitle, note:theNote, creation date:theCreationDate, due date:theDueDate, defer date:theStartDate, flagged:theFlagStatus}
	end tell
	end tell
	end if
	end if

	-- handle completed
	if theStatus is "completed" then
	mark complete newTask
	set completion date of newTask to theCompletionDate
	else if theStatus is "canceled" then
	mark complete newTask
	set status of newTask to dropped
	set completion date of newTask to theCompletionDate
	else if theStatus is "open" then
	mark incomplete newTask
	set completion date of newTask to missing value
	end if

	-- Process tags
	my writeTagsTo(newTask, allTagNames)

	end if -- not a task
	end tell -- OF application
	end tell -- Document
	end repeat -- Things list

	-- Mark complete any projects that should be that way
	tell application "OmniFocus"
	tell default document
	repeat with completedProjectInfo in completedProjectList
	set completedProject to first item of completedProjectInfo
	set completedProjectDate to second item of completedProjectInfo
	mark complete completedProject
	set completion date of completedProject to completedProjectDate
	end repeat
	end tell
	end tell
	end tell -- Things application

	-- Clumsy way of seeing if an item is in the Inbox as Things doesn't expose a "list" property
	on isItemInList(theList, theItem)
	set the matchFlag to false
	repeat with anItem from 1 to the count of theList
	if theList contains anItem then ¬
	set the matchFlag to true
	end repeat
	return the matchFlag
	end isItemInList
	-- Another hack for heirarchal tags to say "does tag exist inside this other tag?"
	on isTagInList(theList, theItem)
	set the matchFlag to false
	repeat with anItem from 1 to the count of theList
	if item anItem of theList is theItem then ¬
	set the matchFlag to true
	end repeat
	return the matchFlag
	end isTagInList
	-- less clumsy inbox hack
	on isInInbox(anItem)
	return ((area of anItem is missing value) and (project of anItem is missing value))
	end isInInbox
	-- gather tags
	on gatherTagsOf(aTodo)
	set allTagNames to {}
	tell application "Things3"
	repeat with aTag in every tag of aTodo
	if (parent tag of aTag) is missing value then
	copy {null, name of aTag} to end of allTagNames
	else
	copy {name of parent tag of aTag, name of aTag} to end of allTagNames
	end if
	end repeat
	end tell
	return allTagNames
	end gatherTagsOf
	-- write tags
	on writeTagsTo(aTask, tagList)
	tell application "OmniFocus"
	tell default document
	repeat with aTag in tagList

	set theParentTag to first item of aTag
	set theChildTag to second item of aTag

	if theParentTag is null then
	-- No Parent tag
	add tag theChildTag to tags of aTask
	else
	-- Has a parent tag
	set childTag to (first tag of tag theParentTag whose name is theChildTag)
	add childTag to tags of aTask
	end if
	end repeat -- tags
	end tell
	end tell
	end writeTagsTo
No results found