Working with See-Also and Classify

DEVONthink
10

Glad to hear it.

Here’s a little code snippet you could run…

tell application id "DNtp"
	set currentDB to (current database)
	set excludeFromSearch to (parents of currentDB whose (exclude from search = true))
	if excludeFromSearch ≠ {} then
		set exclusionList to {}
		repeat with thisrecord in excludeFromSearch
			copy (("[" & name of thisrecord as string) & "](" & (reference URL of thisrecord) & ")  " & linefeed) to end of exclusionList
		end repeat
		set newDoc to create record with {name:"Groups Excluded From Search", source:exclusionList as string, type:markdown} in (root of currentDB)
		open tab for record newDoc
	end if
end tell
1 Like