brooksduncan/scan-apple-notes.scpt

## scan-apple-notes.scpt
(*
Scan To Apple Notes
Copyright (C) Brooks Duncan
v. 1.1

You are welcome to use and modify as you see fit, but I'd appreciate credit to http://www.documentsnap.com.

Learn more at http://www.documentsnap.com/scan-apple-notes

Thank you to Larry Salibra at https://www.larrysalibra.com/evernote-to-apple-notes/.

*)

on adding folder items to this_folder after receiving added_items
	try
		set homeFolderPosix to (system attribute "HOME")

		set importFolderPosix to homeFolderPosix & "/Library/Containers/com.apple.Notes/Data/scan_import/" as string

		set importFolder to ((importFolderPosix as POSIX file) as string)
		do shell script "mkdir -p " & quoted form of importFolderPosix

		do shell script "rm -f " & quoted form of importFolderPosix & "*"
		repeat with added_item in added_items
			delay 2
			tell application "Finder"
				set theFilename to name of added_item

				move added_item to POSIX file importFolderPosix
			end tell

			set notesSrc to "file://" & importFolderPosix & urlEncode(theFilename)


			set noteBody to "<html><head></head><body><img src=" & notesSrc & "></body></html>"

			tell application "Notes"

				make new note at folder "Notes" with properties {name:theFilename, body:noteBody}
			end tell


		end repeat
	on error errText
		display dialog "Error: " & errText
	end try


end adding folder items to

on urlEncode(str)
	-- Copyright 2008 ljr (http://applescript.bratis-lover.net)
	local str
	try
		return (do shell script "/bin/echo " & quoted form of str & ¬
			" | perl -MURI::Escape -lne 'print uri_escape($_)'")
	on error eMsg number eNum
		error "Can't urlEncode: " & eMsg number eNum
	end try
end urlEncode
	(*
	Scan To Apple Notes
	Copyright (C) Brooks Duncan
	v. 1.1

	You are welcome to use and modify as you see fit, but I'd appreciate credit to http://www.documentsnap.com.

	Learn more at http://www.documentsnap.com/scan-apple-notes

	Thank you to Larry Salibra at https://www.larrysalibra.com/evernote-to-apple-notes/.

	*)

	on adding folder items to this_folder after receiving added_items
	try
	set homeFolderPosix to (system attribute "HOME")

	set importFolderPosix to homeFolderPosix & "/Library/Containers/com.apple.Notes/Data/scan_import/" as string

	set importFolder to ((importFolderPosix as POSIX file) as string)
	do shell script "mkdir -p " & quoted form of importFolderPosix

	do shell script "rm -f " & quoted form of importFolderPosix & "*"
	repeat with added_item in added_items
	delay 2
	tell application "Finder"
	set theFilename to name of added_item

	move added_item to POSIX file importFolderPosix
	end tell

	set notesSrc to "file://" & importFolderPosix & urlEncode(theFilename)


	set noteBody to "<html><head></head><body><img src=" & notesSrc & "></body></html>"

	tell application "Notes"

	make new note at folder "Notes" with properties {name:theFilename, body:noteBody}
	end tell


	end repeat
	on error errText
	display dialog "Error: " & errText
	end try


	end adding folder items to

	on urlEncode(str)
	-- Copyright 2008 ljr (http://applescript.bratis-lover.net)
	local str
	try
	return (do shell script "/bin/echo " & quoted form of str & ¬
	" \| perl -MURI::Escape -lne 'print uri_escape($_)'")
	on error eMsg number eNum
	error "Can't urlEncode: " & eMsg number eNum
	end try
	end urlEncode