-- AppleScript to upload selected DEVONthink items to Paperless-ngx
-- Uses the "URL" field as Paperless title and "tags" as Paperless tags.

tell application "DEVONthink 3"
	set theSelection to the selection
	if theSelection is {} then
		display alert "No documents selected in DEVONthink."
		return
	end if
	
	repeat with theRecord in theSelection
		set docPath to path of theRecord
		set docURL to aliases of theRecord & "_" & URL of theRecord -- Title in Paperless
		set recordTags to tags of theRecord -- List of DEVONthink tags
		
		if docPath is not missing value and docPath is not "" then
			
			-- Your Paperless token
			set paperlessToken to "59760e42725bf98ac0345fd2ec9f754cf053a8d5"
			
			-- Path to Python script
			set uploadScriptPath to "/Users/z/Documents/upload.py"
			
			-- Convert tags list to a string with '||' as delimiter
			set tagString to ""
			if (count of recordTags) > 0 then
				repeat with t in recordTags
					set tagString to tagString & t & "||"
				end repeat
				-- Remove trailing '||'
				if tagString ends with "||" then
					set tagString to texts 1 thru -3 of tagString
				end if
			end if
			
			if docURL is missing value or docURL is "" then
				set docURL to "Untitled" -- Fallback title
			end if
			
			-- Build shell command to call Python script
			set shellCommand to "/Users/z/venv/bin/python " & uploadScriptPath & space & ¬
				quoted form of docPath & space & paperlessToken & space & ¬
				quoted form of docURL & space & quoted form of tagString
			
			try
				do shell script shellCommand
				display notification "Uploaded " & (name of theRecord) & " to Paperless." with title "Paperless Upload"
			on error errMsg
				display alert "Error uploading " & (name of theRecord) & ":
" & errMsg
			end try
			
		else
			display alert "Record " & (name of theRecord) & " does not have a valid file path."
		end if
	end repeat
end tell