-- EvernoteCopyLink.applescript\n<\/div>
-- Copy title and URL in the front most window of Safari to Evernote with link\n<\/div>
-- Author: Takanori Ishikawa\n<\/div>
<\/div>
on copyLinkToEvernote(theTitle, theURL)\n<\/div>
tell application "System Events"\n<\/div>
-- copy & paste\n<\/div>
set the clipboard to theTitle as text\n<\/div>
keystroke "v" using command down\n<\/div>
<\/div>
tell process "Evernote"\n<\/div>
-- Select pasted text\n<\/div>
-- Note 1: \'ASCII character 28\' means \'move left\'.\n<\/div>
-- Note 2: "shift + option" selection might be more efficient,\n<\/div>
-- but it does not work correctly with Japanese text.\n<\/div>
(*\n<\/div>
repeat (length of words of theTitle) times\n<\/div>
keystroke (ASCII character 28) using {shift down, option down}\n<\/div>
end repeat\n<\/div>
*)\n<\/div>
repeat length of theTitle times\n<\/div>
keystroke (ASCII character 28) using shift down\n<\/div>
end repeat\n<\/div>
<\/div>
-- Link, Add...\n<\/div>
keystroke "k" using command down\n<\/div>
delay 0.1\n<\/div>
set the clipboard to theURL as text\n<\/div>
keystroke "v" using command down\n<\/div>
<\/div>
-- click "OK"\n<\/div>
delay 0.1\n<\/div>
repeat with w in windows\n<\/div>
if exists sheet 1 of w then\n<\/div>
click button "OK" of sheet 1 of w\n<\/div>
end if\n<\/div>
end repeat\n<\/div>
<\/div>
end tell\n<\/div>
end tell\n<\/div>
end copyLinkToEvernote\n<\/div>
<\/div>
tell application "System Events"\n<\/div>
if not (exists application process "Evernote") or not (exists application process "Safari") then\n<\/div>
display alert "Evernote and Safari Required" message "You have to launch Evernote and Safari before executing script"\n<\/div>
end if\n<\/div>
end tell\n<\/div>
<\/div>
tell first document of application "Safari"\n<\/div>
set pageTitle to name\n<\/div>
set pageURL to URL\n<\/div>
end tell\n<\/div>
<\/div>
tell application "Evernote" to activate\n<\/div>
set theClipboard to the clipboard\n<\/div>
copyLinkToEvernote(pageTitle, pageURL)\n<\/div>
set the clipboard to theClipboard\n<\/div>
<\/div>
<\/div><\/pre><\/div>\n \n <\/div>\n\n