function escape (str)
	str = string.gsub (str, "\n", "\r\n")
	str = string.gsub (str, "([^%w ])",
		function (c) return string.format ("%%%02X", string.byte(c)) end)
	str = string.gsub (str, " ", "+")
	return str
end

path = document:fileName()
linkdlink = "vppage-file://"..path.."?".. escape(windowController:key())
script = "set the clipboard to \" "..linkdlink.."\""
os.execute("/usr/bin/osascript -e '" .. script .. "'")