sij/DEVONthink
1
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add Bates Source Link.scpt

Browse source
This commit is contained in:
Sangye Ince-Johannsen 2024-10-26 22:56:25 +02:00
parent 3211983644
commit 22ba803435
1 changed files with 64 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

64
Bates Source Link.scpt Normal file
View file

@ -0,0 +1,64 @@
tell application id "DNtp"
try
-- Retrieve record details directly
set theRecord to content record of think window 1
set pageNumber to current page of think window 1
set theTitle to name of theRecord
set quotedText to (selected text of think window 1) as string
set sourceLink to reference URL of think window 1
-- Extract the numeric part and prefix from the document's title
set numericPart to my extractNumericPart(theTitle)
set prefix to my extractPrefix(theTitle)
-- Determine the Bates number or fallback
if numericPart is "" then
set batesFormatted to theTitle & " at " & pageNumber + 1
else
set batesNumber to numericPart + pageNumber
set batesFormatted to my formatBatesNumber(batesNumber, prefix)
end if
-- URL encoding using Perl
set encodedText to do shell script "perl -MURI::Escape -e 'print uri_escape(q{" & quotedText & "});'"
-- Create the markdown link
set markdownLink to "[" & batesFormatted & "](" & sourceLink & ")"
-- Compile the final clipboard content and update the clipboard
set finalClipboardContent to quotedText & " " & markdownLink & "."
set the clipboard to finalClipboardContent
on error errMsg
display dialog "Error: " & errMsg -- Show any errors that occur
end try
end tell
-- Formatting the Bates number without leading zeros
on formatBatesNumber(batesNumber, prefix)
return prefix & batesNumber -- Return formatted Bates number with prefix
end formatBatesNumber
-- Extract numeric part from the document title
on extractNumericPart(title)
try
-- Adjusted Perl script to capture only the numeric sequence following one or more uppercase letters and a space or underscore
set perlScript to "perl -ne 'print $1 if /^[A-Z]+[ _]([0-9]+)(?:-[0-9]+)?/; exit;'"
return do shell script "echo " & quoted form of title & " | " & perlScript
on error errMsg
return ""
end try
end extractNumericPart
-- Extract prefix (non-numeric part) from the document title
on extractPrefix(title)
set prefix to ""
repeat with aChar in characters of title
if aChar is in "0123456789" then exit repeat
set prefix to prefix & aChar
end repeat
return prefix
end extractPrefix