Happy-Go-Lucky: [MarsEdit] TextExpander で過去記事のリンクを貼り付ける

[MarsEdit] TextExpander で過去記事のリンクを貼り付ける

Pocket

時刻: 14:36 ラベル: Blog, MarsEdit, TextExpander

ひとりぶろぐさんで MarsEdit を強化するハックが取り上げられていました。

最強ブログエディタMarsEdit3をさらに強化するハック2種、SIMBLもあるんだよ | ひとりぶろぐ 

さきほどの「InsertTitleAndPermalinkOfSelectedPost」をTypeIt4Me向けに改変したスクリプトを書きました。

これ、いいですね。

いままで MarsEdit のエディタの AppleScript インターフェースしか見ていませんでしたｗ

自分の記事に関しては Google でサイト検索するより MarsEdit から URL とタイトルを取得した方が速いですね。

でもって、ひとりぶろぐさんでは TypeIt4Me からスクリプトを呼び出す方法が紹介されています。

おお！これは！

しかし、私は TypeIt4Me を持っておりませんので、TextExpander でやってみました。

TextExpander も TypeIt4Me と同じく、省略形を AppleScript の実行結果で置換することができます。

私は省略形を「perm;」としました。

TypeIt4Me の場合と同じく、

エントリ編集中に「command+1」で MarsEdit の Main Window を表示
検索して目当てのエントリを選択
エディタに戻って「perm;」とタイプ

で過去記事へのリンクがエディタに挿入されます。エラー発生時はエラーメッセージがエディタに挿入されます。

私が作成したスクリプトは以下の通りです。せっかくなのではてブ数の表示も追加しました。

tell application "MarsEdit"
 if not (exists selected post) then
  return "MarsEdit のポストを選択してください。"
 end if
 
 set resultText to ""
 try
  set sp to selected post
  if (permalink of sp is not equal to missing value) then
   set pl to permalink of sp
   set tl to title of sp
   set resultText to ¬
    "<a href=\"" & pl & "\""¬
    & " target=\"_blank\">" & tl¬
    & "</a>"¬
    & "<a rel=\"nofollow\" target=\"_blank\""¬
    & " href=\"http://b.hatena.ne.jp/entry/" & pl¬
    & "\">"¬
    & "<img border=\"0\""¬
    & " src=\"http://b.hatena.ne.jp/entry/image/"¬
    & pl & "\" alt=\"\"/></a>"
  else
   set resultText to "公開されたポストを選択してください。"
  end if
 on error
  set resultText to "Local Draftsではなく、Posts、Pagesのエントリを選択してください。"
 end try
 return resultText
end tell

このスクリプトを TextExpander に設定する手順は

TextExpander のスニペットを新規作成(ツールバーの「New Snippet」をクリック)
スニペットのタイプ(Content の部分)を「アップルスクリプト」に変更する
スクリプトをコピペする
ラベル(Label)を適当に設定する(私は「MarsEdit::InsertTitleAndPermalinkOfSelectedPost」としました。長いｗ)
省略形(Abbreviation)を適当に設定する(上述のように私は「perm;」としました。)

です。

画面イメージを貼っておきます。