引用タグを自動化する

Get_Block_Quote_Tag.scpt

tell application "Safari"
	activate
	set theURL to URL of front document
	set theTitle to name of front document
	set selectedText to (do JavaScript "(''+getSelection())" in document 1)
	set the clipboard to "<blockquote class=\"block-quote_content\" cite=\"" & theURL & "\" title=\"「" & theTitle & "」から引用\">" & return & "	" & "<p>" & selectedText & "</p>" & return & "	" & "<footer>" & return & "		" & "<cite>— <a href=\"" & theURL & "\">" & theTitle & "</cite>" & return & "	" & "</footer>" & return & "</blockquote>" & return as string
end tell

Get_Inline_Quote_Tag.scpt

tell application "Safari"
	activate
	set theURL to URL of front document
	set theTitle to name of front document
	set selectedText to (do JavaScript "(''+getSelection())" in document 1)
	set the clipboard to "<q class=\"inline-quote_content\" cite=\"" & theURL & "\" title=\"「" & theTitle & "」から引用\">" & selectedText & "</q>" as string
end tell