This one creates the output groups in parent 1 of the selected record. Remember:
I’ve added this part
-- choose how your output groups should be named. deactivate a line by adding a # at the beginning
set theOutputGroup to create location (location of thisRecord) & my replace_String((name of parent 1 of thisRecord) & " - " & "seealsoresults", "/", "\\/") --> "Groupname - seealsoresults"
#set theOutputGroup to create location (location of thisRecord) & my replace_String((name of parent 1 of thisRecord) & "\\" & "seealsoresults" & "\\", "/", "\\/") --> "Groupname\seealsoresults\"
#set theOutputGroup to create location (location of thisRecord) & my replace_String("seealsoresults", "/", "\\/") --> "seealsoresults"
so you can try different names for the output groups.
And I’ve fixed the wrong name in the output record.
-- Create Markdown See Also Suggestion List
use AppleScript version "2.4"
use framework "Foundation"
use scripting additions
property maxSeeAlsoResults : 20
property removeSuffix : true -- remove suffix of suggested records
property includeParagraphs : true -- fetch the "first" and "last" paragraph. which paragraphs should act as "first" and "last" can be set below
property skipMarkdownHeading : true -- skip the first non-blank line if it begins with # (independent of property firstParagraphOffset)
property firstParagraphOffset : 1 -- index of the paragraph which should act as the first. starting at 1. only lines which contain at least one word are counted in (independent of property addEmptyLines)
property lastParagraphOffset : 1 -- index of the paragraph which should act as the last. starting at 1. second last would be 2 (and so on)
property theParagraphPlaceholder : "<span style=\"color: red\">Here's something to do!</span>" -- this is used if a paragraph couldn't be fetched, e.g. when property firstParagraphOffset > count of paragraphs. change to your liking
property maxCharacterCount : 100000 -- skip fetching paragraphs of records whose character count is higher. for skipped paragraphs the placeholder is used. add these paragraphs manually afterwards by clicking the suggestion's name
property removeSelectedRecordSuffix : true -- remove suffix of selected record's name for usage in output record's name and heading
property openOutputRecord : true -- only available if one record is selected
property excludeFromSeeAlso : true -- exclude output record from see also
property excludeFromSearch : false -- exclude output record from search
tell application id "DNtp"
try
set theRecords to selection of think window 1
if theRecords = {} then error "Please select some records"
set theDatabases to databases
show progress indicator "Creating See Also Suggestions List... " steps (count theRecords) as string with cancel button
repeat with thisRecord in theRecords
set thisRecordName to name of thisRecord
step progress indicator thisRecordName
set theContent to plain text of thisRecord
set theSeeAlsoResults_record to {}
repeat with thisDatabase in theDatabases
set theSeeAlsoResults to compare content theContent to thisDatabase
repeat with thisResult in theSeeAlsoResults
set theName to name of thisResult as string
if removeSuffix = true then set theName to my recordName(theName, filename of thisResult)
set theName to ("[" & theName & "](" & (reference URL of thisResult) & ")") as string
if includeParagraphs = true then
set theCharacterCount to (character count of thisResult)
if theCharacterCount > 0 and theCharacterCount ≤ maxCharacterCount then
set end of theSeeAlsoResults_record to {name_:theName, score_:(score of thisResult), charactercount_:theCharacterCount, text_:(plain text of thisResult)}
else
set end of theSeeAlsoResults_record to {name_:theName, score_:(score of thisResult), charactercount_:theCharacterCount}
end if
else
set end of theSeeAlsoResults_record to {name_:theName, score_:(score of thisResult), charactercount_:0}
end if
end repeat
end repeat
set theSeeAlsoResults_record_sorted to my sort(theSeeAlsoResults_record)
if (count theSeeAlsoResults_record_sorted) > maxSeeAlsoResults then set theSeeAlsoResults_record_sorted to (items 1 thru maxSeeAlsoResults in theSeeAlsoResults_record_sorted)
set theMarkdownText_list to {"<style> a {text-decoration: none;} </style>" & linefeed}
repeat with thisResult in theSeeAlsoResults_record_sorted
if includeParagraphs = true then
set theCharacterCount to charactercount_ of thisResult
if theCharacterCount > 0 and theCharacterCount ≤ maxCharacterCount then
set theText to text_ of thisResult
set theParagraphs to paragraphs of theText
set theParagraphs_cleaned to {}
repeat with thisParagraph in theParagraphs
if words in thisParagraph as string > 0 then set end of theParagraphs_cleaned to thisParagraph as string
end repeat
if skipMarkdownHeading = true and (item 1 of theParagraphs_cleaned starts with "#") then set theParagraphs_cleaned to (items 2 thru -1 in theParagraphs_cleaned)
try
set firstParagraph to item firstParagraphOffset of theParagraphs_cleaned
on error
set firstParagraph to theParagraphPlaceholder
end try
try
set lastParagraph to item -lastParagraphOffset of theParagraphs_cleaned
on error
set lastParagraph to theParagraphPlaceholder
end try
set end of theMarkdownText_list to "* " & name_ of thisResult & space & space & linefeed & firstParagraph & space & space & linefeed & lastParagraph & space & space & linefeed
else if theCharacterCount > 0 and theCharacterCount > maxCharacterCount then
set end of theMarkdownText_list to "* " & name_ of thisResult & space & space & linefeed & theParagraphPlaceholder & space & space & linefeed & theParagraphPlaceholder & space & space & linefeed
end if
else
set end of theMarkdownText_list to "* " & name_ of thisResult & space & space & linefeed
end if
end repeat
set theMarkdownText to my tid(theMarkdownText_list, linefeed)
if removeSelectedRecordSuffix = true then set thisRecordName to my recordName(thisRecordName, filename of thisRecord)
-- choose how your output groups should be named. deactivate a line by adding a # at the beginning
set theOutputGroup to create location (location of thisRecord) & my replace_String((name of parent 1 of thisRecord) & " - " & "seealsoresults", "/", "\\/") --> "Groupname - seealsoresults"
#set theOutputGroup to create location (location of thisRecord) & my replace_String((name of parent 1 of thisRecord) & "\\" & "seealsoresults" & "\\", "/", "\\/") --> "Groupname\seealsoresults\"
#set theOutputGroup to create location (location of thisRecord) & my replace_String("seealsoresults", "/", "\\/") --> "seealsoresults"
set theSeeAlsoListRecord to create record with {name:"See Also Suggestion List - " & "\"" & thisRecordName & "\"", type:markdown, plain text:("### See Also Suggestion List " & "[" & thisRecordName & "](" & (reference URL of thisRecord) as string) & ")" & linefeed & linefeed & theMarkdownText, exclude from see also:excludeFromSeeAlso, exclude from search:excludeFromSearch} in theOutputGroup
end repeat
hide progress indicator
if openOutputRecord = true and (count theRecords) = 1 then
open window for record theSeeAlsoListRecord
activate
end if
on error error_message number error_number
hide progress indicator
activate
if the error_number is not -128 then display alert "DEVONthink" message error_message as warning
return
end try
end tell
on recordName(theName, theFilename)
set theSuffix to my getSuffix(theFilename)
if theName ends with theSuffix and theName ≠ theSuffix then set theName to characters 1 thru -((length of theSuffix) + 2) in theName as string
return theName
end recordName
on getSuffix(thePath)
set revPath to reverse of characters in thePath as string
set theSuffix to reverse of characters 1 thru ((offset of "." in revPath) - 1) in revPath as string
end getSuffix
on sort(theList)
set anArray to current application's NSArray's arrayWithArray:theList
set theDesc to current application's NSSortDescriptor's sortDescriptorWithKey:"score_" ascending:false selector:"compare:"
set newList to (anArray's sortedArrayUsingDescriptors:{theDesc}) as list
end sort
on tid(theList, theDelimiter)
set d to AppleScript's text item delimiters
set AppleScript's text item delimiters to theDelimiter
set theString to theList as text
set AppleScript's text item delimiters to d
return theString
end tid
on replace_String(theText, oldString, newString)
local ASTID, theText, oldString, newString, lst
set ASTID to AppleScript's text item delimiters
try
considering case
set AppleScript's text item delimiters to oldString
set lst to every text item of theText
set AppleScript's text item delimiters to newString
set theText to lst as string
end considering
set AppleScript's text item delimiters to ASTID
return theText
on error eMsg number eNum
set AppleScript's text item delimiters to ASTID
error "Can't replaceString: " & eMsg number eNum
end try
end replace_String
