") set len to count html repeat with i from 2 to len set temp to split(html's item i, "") set temp's item 1 to replace(temp's item 1, "
", "")
set temp to bind(temp, "")
set html's item i to temp
end repeat
set html to bind(html, "")
-- blockquote
set html to split(html, "")
set len to count html
repeat with i from 2 to len
set temp to split(html's item i, "
")
set temp's item 1 to replace(temp's item 1, "", "
")
set temp to bind(temp, "")
set html's item i to temp
end repeat
set html to bind(html, "
")
-- h1
set html to split(html, "")
if (html's item 1's item 2 = "h" and html's item 1's item 3 = "1") then
if (html's item 1's item 4 = ">") then
set html's item 1 to replace(html's item 1 as text, "", "")
else
set html's item 1 to replace(html's item 1 as text, "")
-- td
set html to replace(html, "", "")
-- Eのみ
repeat with elem in {"h1", "h2", "h3", "h4", "h5", "h6", "p", "ul", "ol", "li", "em", "strong", "a", "hr", "blockquote", "img", "pre", "code", "table", "thead", "tbody", "tr", "td"}
set html to replace(html, "<" & elem & ">", "<" & elem & " style=\"" & value_of(mougithubCSS, elem) & "\">")
end repeat
-- body
set html to "" & return & html & return & ""
return html
end subhtml
-- ソート
on qsort(alist, begin, theend)
if ((count alist) = 0) then return
set i to 0
set j to 0
set pivot to 0
set temp to 0
script wrap
property refer : alist
end script
set pivot to wrap's refer's item (round ((begin + theend) / 2))
set i to begin
set j to theend
repeat
repeat while wrap's refer's item i < pivot
set i to i + 1
end repeat
repeat while wrap's refer's item j > pivot
set j to j - 1
end repeat
if (i ≥ j) then exit repeat
set temp to wrap's refer's item i
set wrap's refer's item i to alist's item j
set wrap's refer's item j to temp
set i to i + 1
set j to j - 1
end repeat
if (begin < (i - 1)) then
my qsort(wrap's refer, begin, i - 1)
end if
if ((j + 1) < theend) then
my qsort(wrap's refer, j + 1, theend)
end if
end qsort
-- GUIスクリプティングが無効なら、有効にすることを勧めるメッセージを出力する
-- http://d.hatena.ne.jp/zariganitosh/20090218/1235018953
on check()
tell application "System Events"
if UI elements enabled is false then
tell application "System Preferences"
activate
set current pane to pane "com.apple.preference.universalaccess"
set msg to "GUIスクリプティングが利用可能になっていません。
\"補助装置にアクセスできるようにする\" にチェックを入れて続けますか？"
display dialog msg buttons {"キャンセル", "チェックを入れて続ける"} with icon note
end tell
set UI elements enabled to true
delay 1
tell application "System Preferences" to quit
delay 1
end if
end tell
end check
on maindialog()
tell application "Mou"
activate
set ltag to {}
repeat with elem in evertag
set ltag's end to elem's name as text
end repeat
set ret to display dialog ("投稿先ノートブック : " & evernotebook's name as text) & return & "タグ : " & my bind(ltag, ",") & return & return & "ノートタイトル : " default answer evernotetitle buttons {"中止", "設定", "投稿"} default button 3 with icon 2
set retbtn to ret's button returned
set rettxt to ret's text returned as text
if (retbtn = "中止") then
--中止
return
else if (retbtn = "設定") then
--設定
my settingdialog()
else if (retbtn = "投稿") then
if (rettxt = "") then
display dialog "ノートタイトルが入力されていません" buttons {"OK"} default button 1
my maindialog()
else
set evernotetitle to rettxt
my postnote()
end if
end if
end tell
end maindialog
on settingdialog()
tell application "Mou"
activate
set ret to display dialog "ノートブックとタグを設定します" buttons {"戻る", "ノートブックの設定", "タグの設定"} default button 1 with icon 2
set ret to ret's button returned
if (ret = "戻る") then
my maindialog()
else if (ret = "ノートブックの設定") then
my settingdialognote()
else if (ret = "タグの設定") then
my settingdialogtag()
end if
end tell
end settingdialog
on settingdialognote()
tell application "Mou"
activate
set lst to my EvernoteAPI's getNotebookList(true)
my qsort(lst, 1, count lst)
set ret to choose from list lst with prompt "投稿先ノートブックを選択してください : " OK button name "決定" cancel button name "戻る"
if (class of ret = list) then
set evernotebook to my EvernoteAPI's getNotebook(ret's item 1 as text)
my maindialog()
else
my settingdialog()
end if
end tell
end settingdialognote
on settingdialogtag()
tell application "Mou"
activate
set lst to my EvernoteAPI's getTagList(true)
if ((count lst) = 0) then
set lst to {"タグがありません"}
else
my qsort(lst, 1, count lst)
end if
set ret to choose from list lst with prompt "タグを選択してください
(shiftキーやcmdキーで複数可) :" OK button name "決定" cancel button name "戻る" with multiple selections allowed
if (class of ret = list) then
set evertag to EvernoteAPI's getTag(ret)
my maindialog()
else
my settingdialog()
end if
end tell
end settingdialogtag
on postnote()
tell application "System Events"
tell process "Mou"
-- htmlをコピー
set temp to the clipboard
set htmldata to ""
click menu item "Copy HTML" of menu "Actions" of menu bar item "Actions" of menu bar 1
delay 1
set htmldata to the clipboard
set the clipboard to temp
set htmldata to my subhtml(htmldata)
--上書き確認
set rettxt to "新規保存"
set enotes to my EvernoteAPI's getNote(evernotetitle)
set len to count enotes
if (len = 1) then
if (overwritecheck) then
set ret to display dialog "Evernoteに同名のノートが存在しますがどうしますか？" buttons {"名前を変更", "上書保存", "新規保存"} default button 2 with icon 2
set rettxt to ret's button returned as text
else
set rettxt to "上書き保存"
end if
else if (len > 1) then
set ret to display dialog "Evernoteに同名のノートが複数存在しますがどうしますか？" buttons {"名前を変更", "新規保存"} default button 2 with icon 2
set rettxt to ret's button returned as text
end if
if (rettxt = "新規保存") then
set res to my EvernoteAPI's createNote(evernotebook, evernotetitle, evertag, htmldata, "html")
else if (rettxt = "上書保存") then
set res to my EvernoteAPI's overwritenote(enotes's item 1, htmldata, evernotebook, evertag, current date)
else if (rettxt = "名前を変更") then
return my maindialog()
end if
-- 投稿完了のダイアログ。邪魔なら消しても問題ない
if (res and finishalert) then
display dialog "完了" buttons {"OK"} default button 1 with icon 2
end if
end tell
end tell
end postnote
--初期化
on run
check()
tell application "Mou"
activate
end tell
tell application "System Events"
tell process "Mou"
-- テキストエリア
set src to window 1's splitter group 1's scroll area 1's text area 1's value
-- property初期化
set winname to my split(window 1's name as text, ".")
if ((count winname) > 1) then set winname's last item to ""
set winname to my bind(winname, "")
if (not filename = winname) then
set evernotebook to my EvernoteAPI's getDefaultNotebook()
set evernotetitle to winname
set filename to winname
set evertag to {}
end if
if (not src = "") then
my maindialog()
else -- 未入力であればなにもしない
display dialog "テキストが入力されていません。" buttons {"OK"} default button 1 with icon 2
end if
end tell
end tell
end run