") 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:firstchild
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, "")
--h1~h6[prop]
repeat with elem in {"h1", "h2", "h3", "h4", "h5", "h6"}
set html to replace(html, "<" & elem & " ", "<" & elem & " style=\"" & value_of(mougithubCSS, elem) & "\" ")
end repeat
-- 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 torowhtml(html)
-- pre
set html to my split(html, "{style=\"" & value_of(mougithubCSS, "pre") & "\"}" & return)
set html to my bind(html, "")
-- code
set html to my split(html, "{style=\"" & value_of(mougithubCSS, "code") & "\"}")
set html to my bind(html, "")
return html
end torowhtml
-- 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 "Evernote"
activate
set ret to display dialog "ノートを何に変換しますか？" buttons {"中止", "markdown", "html"} default button 1 with icon 2
return ret's button returned as text
end tell
end maindialog
on makeTmpFile(filename, content)
tell application "Finder"
set tmpfol to path to temporary items from user domain
if (exists file filename in tmpfol) then delete file filename in tmpfol
set tempfile to make new file with properties {name:filename} at tmpfol
set tmpfile to (tmpfol as text) & filename
write content to file tmpfile as «class utf8»
return file tmpfile
end tell
end makeTmpFile
on findPandoc()
tell application "Finder"
set homedirpandoc to (path to home folder as text) & ".cabal:bin:" as alias
set rootdirpandoc to my split((path to system folder as text), ":")'s item 1 & ":usr:local:bin:" as alias
if (exists file "pandoc" in homedirpandoc) then
return ((homedirpandoc's POSIX path) as text) & "pandoc"
else if (exists file "pandoc" in rootdirpandoc) then
return ((rootdirpandoc's POSIX path) as text) & "pandoc"
else
return pathtopandoc
end if
end tell
end findPandoc
on cvrtData(format, filepath)
set pandoc to my findPandoc()
try
if (format = "html") then
set ret to do shell script pandoc & " -S --email-obfuscation=none -f markdown -t html " & filepath
else if (format = "markdown") then
set ret to do shell script pandoc & " -f html -t markdown --atx-headers " & filepath
end if
on error number n
if (n = 127) then
tell application "Evernote"
display dialog "Pandocが見つかりません。スクリプトの上部にある'property pathdopandoc : 'に実行ファイルのパスを入れてください。" buttons {"OK"} default button 1 with icon 2
return n
end tell
end if
end try
return ret
end cvrtData
--初期化
on run
check()
tell application "Evernote"
activate
-- 複数のノートを選択している場合返す
set selectnote to selection
if (not (count selectnote) = 1) then
return display dialog "ノートは1つだけ選択してください" buttons {"OK"} default button 1 with icon 2
end if
set selectnote to selectnote's item 1
set notetitle to selectnote's title
set temp to the clipboard
set the clipboard to ""
set retbtn to my maindialog()
if (retbtn = "中止") then
return
else if (retbtn = "html") then
tell application "System Events"
tell process "Evernote"
click menu bar 1's menu bar item "編集"'s menu "編集"'s menu item "すべてを選択"
delay 0.5
click menu bar 1's menu bar item "編集"'s menu "編集"'s menu item "コピー"
delay 0.5
if (notetitle = (the clipboard)) then
set rettitlebtn to display dialog "もしかしてタイトルエリアにカーソルを置いていませんか？そうであればカーソルをテキストエリアに置き直してください。" buttons {"OK", "問題ないので処理を続ける"} default button 1 with icon 2
if (rettitlebtn's button returned as text = "OK") then return
end if
end tell
end tell
set txtdata to the clipboard
-- テキストエリアを選択してない場合返す
if (txtdata = "") then
set the clipboard to temp
return display dialog "テキストエリアにカーソルを置いてスクリプトを実行してください" buttons {"ok"} default button 1 with icon 2
end if
set txtdata to txtdata & return
set filepath to my makeTmpFile("markdownevertempfile", txtdata)
delay 0.5
set htmldata to my cvrtData(retbtn, (filepath as alias)'s POSIX path)
-- pandocが無い場合返す
if (htmldata = 127) then return
set htmldata to my subhtml(htmldata)
set selectnote's HTML content to htmldata
else if (retbtn = "markdown") then
set filepath to my makeTmpFile("markdownevertempfile", selectnote's HTML content as text)
delay 0.5
set mddata to my cvrtData(retbtn, (filepath as alias)'s POSIX path)
-- pandocが無い場合返す
if (mddata = 127) then return
-- なぜかpreとcodeのcssだけ残るので取り除く
set mddata to my torowhtml(mddata)
set selectnote's HTML content to ""
tell selectnote to append text mddata
end if
end tell
end run