Strip the user home directory from a filename in Applescript

stripHomeDir.applescript

tell application "Skim"
	set theFile to file of document 1 as string
	set theHome to path to home folder as string
	set theFilePath to my replaceText(theHome, "", theFile)
end tell



on replaceText(find, replace, someText)
	set prevTIDs to text item delimiters of AppleScript
	set text item delimiters of AppleScript to find
	set someText to text items of someText
	set text item delimiters of AppleScript to replace
	set someText to "" & someText
	set text item delimiters of AppleScript to prevTIDs
	return someText
end replaceText