関連記事作成のTextExpanderスニペット

先日の以下のエントリでやっていることを TextExpander でやってしまおうと思います。

ただし、 TextExpander を使う主な理由はできるだけキーボードで事を済ませたいからなので、その観点で少し仕様を変えています。

Google検索用スニペット

まずは自分のサイトをGoogleで検索するスニペット

前回の AppleScript ではクリップボードの文字を検索していましたが、クリップボードだと検索したい文字をわざわざ入力してからスニペットを起動しなければならなかったので Fillin にを使うように変えてみました。

Fillin

Fillin だと実行時に値を入れられるので検索する文字はスニペットを起動した後に入れられるのでこの方が良いかも。

これを ..google に割り当てています。

set queryString to "%fill:name%"

tell application "Safari"
  search the web for "site:azur256.blogspot.com " & queryString
end tell
return ""

set queryString to "%fill:name%"

tell application "Safari"

search the web for "site:azur256.blogspot.com " & queryString

end tell

return ""

関連リンク作成用スニペット

もう一つは関連リンクを作るためのスニペット

Safari に表示されているタブをリストにします。以下はそのうちの一部。

tell application "Safari"
 if (count of document) is greater than 0 then
  tell window 1
   
   set related_entries to "<ul>" & return
   
   repeat with handle_document in tabs
    
    set site_title to name of handle_document
    set site_title to replace_string_action(site_title, "最近, 気になったこと...: ", "") of me
    set site_title to replace_html_entity(site_title) of me
    set site_url to URL of handle_document
    
    set related_entries to related_entries & "<li><a href=\"" & site_url & "\" target=\"_blank\">" & site_title & "</a>" & make_tweetbuzz_url(site_url) of me & make_hateb_url(site_url) of me & "</li>" & return
   end repeat
   
   set related_entries to related_entries & "</ul>" & return
  end tell
 end if
end tell
return related_entries

tell application "Safari"

if (count of document) is greater than 0 then

tell window 1

set related_entries to "<ul>" & return

repeat with handle_document in tabs

set site_title to name of handle_document

set site_title to replace_string_action(site_title, "最近, 気になったこと...: ", "") of me

set site_title to replace_html_entity(site_title) of me

set site_url to URL of handle_document

set related_entries to related_entries & "<li><a href=\"" & site_url & "\" target=\"_blank\">" & site_title & "</a>" & make_tweetbuzz_url(site_url) of me & make_hateb_url(site_url) of me & "</li>" & return

end repeat

set related_entries to related_entries & "</ul>" & return

end tell

end if

end tell

return related_entries

このスニペットは ..relate に割り当てています。挙動は先に紹介した AppleScript と同じです。

TextExpander の方が書く事に集中できて良いですね。

このスニペットはここからダウンロードして Add Group from file で読み込んでください(ダブルクリックでも読み込むみたいです)。

これと同じことが iPhone で出来るといいんですけど。Mac 環境がどんどん整ってきてモブログへの道がどんどん遠のいてしまいます