[applescript]Safariスクリプトメニュー用deliciousへの追加

------設定と初期化 set DeliciousUrl to "http://delicious.com/save" as Unicode text set MakeVer to "5" as Unicode text set MakeUi to "noui" as Unicode text set MakeJump to "close" as Unicode text set MakeNotes to "" as Unicode text set MakeUrl to "" as Unicode text set MakeTitle to "" as Unicode text set DeliciousSaveUrl to "" as Unicode text -------日付を取得してMakeNotesに追加します。 tell application "Finder" set nowTime to my DateAndTIme(current date) set MakeNotes to "追加日：" & nowTime as Unicode text end tell -------URLとタイトルを取得それぞれ格納します。 set appName to "Safari" tell application "Safari" activate tell window 1 set MakeTitle to do JavaScript "encodeURIComponent(document.title)" in front document set MakeUrl to do JavaScript "encodeURIComponent(document.URL)" in front document end tell end tell -------URLを作ります set DeliciousSaveUrl to DeliciousUrl & "?" & "v=" & MakeVer & "&" & MakeUi & "&" & "jump=" & MakeJump & "&" & "title=" & MakeTitle & "&" & "url=" & MakeUrl & "&" & "notes=" & MakeNotes as Unicode text -------deliciousの保存用ウィンドを開く set appName to "Safari" tell application "Safari" activate make new document with properties {name:"delicious.com"} tell window 1 open location DeliciousSaveUrl end tell end tell ---------------#ここから日付取得サブルーチン to DateAndTIme(theDate) set y to (year of theDate) set m to my monthNumStr(month of theDate) set d to day of theDate set hms to time of theDate set hh to h of sec2hms(hms) set mm to m of sec2hms(hms) set ss to s of sec2hms(hms) ----return (y as text) & my zero1(m) & my zero1(d) & "_" & zero1(hh) & zero1(mm) & zero1(ss) return (y as text) & my zero1(m) & my zero1(d) end DateAndTIme to monthNumStr(theMonth) set monList to {January, February, March, April, May, June, July, August, September, October, November, December} repeat with i from 1 to 12 if item i of monList is theMonth then exit repeat end repeat return i end monthNumStr to zero1(n) if n < 10 then return "0" & n else return n as text end if end zero1 to replaceDate(theText, orgStr, newStr) set oldDelim to AppleScript's text item delimiters set AppleScript's text item delimiters to orgStr set tmpList to every text item of theText set AppleScript's text item delimiters to newStr set tmpStr to tmpList as text set AppleScript's text item delimiters to oldDelim return tmpStr end replaceDate to sec2hms(sec) set ret to {h:0, m:0, s:0} set h of ret to sec div hours set m of ret to (sec - (h of ret) * hours) div minutes set s of ret to sec mod minutes return ret end sec2hms

「DeliciousBookmark.scpt.zip」をダウンロード

「DeliciousBookmark.scpt.txt」をダウンロード

-----追記
set MakeJump to "close" as Unicode text
を
set MakeJump to "open" as Unicode text
に変更してください。