# Markdownをダイアログで表示
on displayMarkdownPreview:paramObj
　　set mesText to myMessage of paramObj as text
　　set infoText to mySubMessage of paramObj as text
　　set mdFile to (mdFile of paramObj) as alias
　　set viewWidth to (viewWidth of paramObj) as integer
　　set viewHeight to (viewHeight of paramObj) as integer
　　
　　## MDを読み込む
　　set mdStr to (read mdFile as «class utf8») as text
　　
　　## javascriptを読み込む
　　set mePath to path to me
　　set resPath to (mePath & "Contents:Resources:marked.min.js") as text
　　set jsStr to (read (resPath as alias) as «class utf8») as text
　　
　　## javascriptでMarkdownをhtmlに変換
　　tell current application’s JSContext’s new()
　　　　evaluateScript_(jsStr)
　　　　tell objectForKeyedSubscript_("marked")
　　　　　　tell callWithArguments_({mdStr})
　　　　　　　　set resultStr to toString()
　　　　　　end tell
　　　　end tell
　　end tell
　　
　　## HTMLを読み込む
　　set mePath to path to me
　　set resPath to (mePath & "Contents:Resources:index.html") as text
　　set htmlStr to (read (resPath as alias) as «class utf8») as text
　　
　　## html内の文字を置き換え
　　set aString to current application’s NSString’s stringWithFormat_(htmlStr, resultStr) as text
　　log result
　　
　　
　　## NSAttributedString
　　set aString to current application’s NSString’s stringWithString:aString
　　set stringData to aString’s dataUsingEncoding:(current application’s NSUTF8StringEncoding)
　　
　　set aValue to {current application’s NSHTMLTextDocumentType, current application’s NSUTF8StringEncoding}
　　set aKey to {current application’s NSDocumentTypeDocumentAttribute, current application’s NSCharacterEncodingDocumentAttribute}
　　set aOption to current application’s NSDictionary’s dictionaryWithObjects:aValue forKeys:aKey
　　
　　tell current application’s NSAttributedString’s alloc()
　　　　tell initWithHTML_options_documentAttributes_(stringData, aOption, missing value)
　　　　　　set attributedString to it
　　　　end tell
　　end tell
　　log result
　　
　　# Create a TextView with Scroll View
　　set frameSize to current application’s NSMakeRect(0, 0, viewWidth, viewHeight)
　　tell current application’s NSTextView’s alloc()
　　　　tell initWithFrame_(frameSize)
　　　　　　setEditable_(false)
　　　　　　tell textStorage()
　　　　　　　　appendAttributedString_(attributedString)
　　　　　　end tell
　　　　　　set aView to it
　　　　end tell
　　end tell
　　tell current application’s NSScrollView’s alloc()
　　　　tell initWithFrame_(frameSize)
　　　　　　setDocumentView_(aView)
　　　　　　set theView to it
　　　　end tell
　　end tell
　　
　　
　　## アイコンの指定
　　set aImage to current application’s NSWorkspace’s sharedWorkspace()’s iconForFileType:"net.daringfireball.markdown"
　　
　　## set up alert
　　tell current application’s NSAlert’s new()
　　　　addButtonWithTitle_("Close")
　　　　setAccessoryView_(theView)
　　　　setIcon_(aImage)
　　　　setInformativeText_(infoText)
　　　　setMessageText_(mesText)
　　　　tell |window|()
　　　　　　setInitialFirstResponder_(theView)
　　　　end tell
　　　　### show alert in modal loop
　　　　if runModal() is (current application’s NSAlertSecondButtonReturn) then return
　　end tell
end displayMarkdownPreview:

★Click Here to Open This Script