Migration from Mariner Paperless to Devonthink

Here’s a smart rule script that processes the tags converted from the keywords. It also should preserve any other tags, if existing.

on performSmartRule(theRecords)
	set od to AppleScript's text item delimiters
	
	tell application id "DNtp"
		set AppleScript's text item delimiters to "="
		set tagList to {}
		repeat with thisRecord in theRecords
			set theTags to (tags of thisRecord)
			repeat with theTag in theTags
				set attribs to (text items of theTag)
				if (count attribs) = 2 then
					add custom meta data (item 2 of attribs) for (item 1 of attribs) to thisRecord
				else
					copy theTag to end of tagList
				end if
			end repeat
			set tags of thisRecord to tagList
		end repeat
		set AppleScript's text item delimiters to od
	end tell
end performSmartRule

And the smart rule setup…