Safariで開いているタブのタイトルとURLを全てクリップボードにコピー
この日記のリンクを手でコピーするのに疲れたので。
まだ自動化してなかったのかよ...
ここのコードをもらってくる。
http://veritrope.com/tips/safari-tabs-to-evernote/
Evernoteへのコピーをクリップボードに変更して、runを付けてアプレットとして保存。
on run set url_list to {} set the date_stamp to ((the current date) as string) set NoteTitle to "URL List from Safari Tabs on " & the date_stamp tell application "Safari" activate set safariWindow to window 1 repeat with w in safariWindow try repeat with t in (tabs of w) set TabTitle to (name of t) set TabURL to (URL of t) set TabInfo to ("" & TabTitle & return & TabURL & return & return) copy TabInfo to the end of url_list end repeat end try end repeat end tell -- convert url_list to text set old_delim to AppleScript's text item delimiters set AppleScript's text item delimiters to return set url_list to url_list as text set AppleScript's text item delimiters to old_delim set the clipboard to url_list end run