AppleScript で Markdown 記法のリンクを自動挿入

以前の記事「AppleScript で Web ページのタイトルをクリップボードにコピー」を改良して、Markdown 記法でのリンクを自動挿入するようにしてみた（エディタは mi に対応）。

tell first document of application "Safari"
  set pageTitle to name
  set pageURL to URL
end

tell first document of application "mi"
  set selection to "[" & selection & "](" & pageURL & " \"" & pageTitle & "\")"
end

まずは、このスクリプトを mi のツールとして登録。 あとはリンクを貼りたい文字列を選択して、このスクリプトを実行すれば、Safari で開いているページへのリンクが自動的に挿入される、という寸法。

たとえば「mi」という文字列を選択して、mi のページを Safari で開いている場合は、

[mi](http://www.mimikaki.net/ "mi")

というリンクが自動挿入される。