HiLOG

　日記の個別ページには標準のテンプレートで前後の記事へのリンクが設定されているが、カテゴリによって全く別のテーマを扱っているので、表示される記事タイトルに違和感をおぼえることも多い。例えば、「[美食] スイーツ：グラマシーニューヨークのチーズケーキ」の前の記事は「[家族] 手作りおもちゃ」で、次の記事は「[読書] プロフェッショナル・プレゼンテーション」という具合。より関連の深い記事へのリンクが表示されるほうが、訪れた人がより興味をもっていただけるだろうと思い、同一カテゴリー内の前後の記事へのリンクを表示するようにしてみた。また、前後1つの記事だけでなく、前後3つの記事へのリンクを表示して興味のある記事をどんどん手繰ってもらえるようにしてみた。

　これを実現するために、nlog(n): 同一カテゴリの前後ナビゲーションと自動再構築と、アフィリエイトは我が魂に及び: MTカスタマイズ：同一カテゴリーの前後記事を個別ページに表示を参考にさせていただいた。
　「nlog(n): 同一カテゴリの前後ナビゲーションと自動再構築」からは、

• MT Plugin Directory: PreviousNextInCategoryのPreviousNextInCategory プラグインを使うこと
• PreviousNextInCategory プラグインを変更して複数カテゴリの記事の問題を解消すること
• MT.pmを変更してEntryの新規作成時に過去と未来の同一カテゴリの記事を自動再構成すること

• 前後の記事へのリンクの表現方法
• Again Pluginを使って前後3つの記事へのリンクを表示する方法

　なお、Again Pluginを公開していたサイトが閉鎖されてしまったため、Again Pluginを譲ってほしいというコメントをいただくようになった。プラグインの作者の意思に沿うことなのかわからないが、コメントをいただいてメールで送る、という手順を続けるのであれば同じことだと考え、暫定でHiLOGで公開させていただくことにする。
Again Pluginをダウンロード

　実施したのは以下のとおり。
(1)PreviousNextInCategory変更版のインストール

• phil ringnalda dot com: Previous and next in categoryからPreviousNextInCategoryプラグインをダウンロードし解凍する
• PreviousNextInCategory.plをテキストエディタで変更し、sub _hdlr_entry_previous_in_categoryとsub _hdlr_entry_next_in_categoryの2つのサブルーチン内の
  「my $cat = $e->category or return '';」と「my $prev = $e->previous(1);」の間に「if ($ctx->stash('category') ne '') {$cat = $ctx->stash('category');}」を追加する
• [MT]/pluginsに変更したPreviousNextInCategory.plをアップロードする(属性705)

(2)individual archive templateにコードを追加
　テンプレートの好みの箇所に以下のコードを追加・保存し、リビルドする。

<MTEntryCategories>
    <br />■<a href="<$MTCategoryArchiveLink$>">[<$MTCategoryLabel$>]</a>内の前後の記事<br />
 <MTAgain limit="3">
  <MTEntryNextInCategory>
   <$MTAgainHere$>
   ↑ <a href="<$MTEntryPermalink$>"><$MTEntryTitle$></a><br />
  </MTEntryNextInCategory>
 </MTAgain>

 → <$MTEntryTitle$><br />

 <MTAgain limit="3">
  <MTEntryPreviousInCategory>
   ↓ <a href="<$MTEntryPermalink$>"><$MTEntryTitle$></a><br />
   <$MTAgainHere$>
  </MTEntryPreviousInCategory>
 </MTAgain>
</MTEntryCategories>

(3)MT.pmの変更
　[MT]/lib/MT.pmをダウンロードしテキストエディタで「return 1 unless $param{BuildDependencies};」という行の次に以下のコードを追加し、アップロードする。

   my $cats = $entry->categories;
    for my $cat (@$cats) {
# previous 1
        my $prev = $entry->previous(1);
        if ($prev) {
            if (!$prev->is_in_category($cat)){
                do {
                    $prev = $prev->previous(1);
                } while ($prev && !$prev->is_in_category($cat));
                if ($prev) {
                   $mt->_rebuild_entry_archive_type(Entry => $prev,
                       Blog => $blog,
                       ArchiveType => 'Individual')
                       or die $mt->errstr;
                }
            }
# previous 2
            if ($prev) {
                do {
                    $prev = $prev->previous(1);
                } while ($prev && !$prev->is_in_category($cat));
            }
            if ($prev) {
               $mt->_rebuild_entry_archive_type(Entry => $prev,
                   Blog => $blog,
                   ArchiveType => 'Individual')
                   or die $mt->errstr;
# previous 3
                do {
                    $prev = $prev->previous(1);
                } while ($prev && !$prev->is_in_category($cat));
                if ($prev) {
                   $mt->_rebuild_entry_archive_type(Entry => $prev,
                       Blog => $blog,
                       ArchiveType => 'Individual')
                       or die $mt->errstr;
                }
            }
        }
# next 1
        my $next = $entry->next(1);
        if ($next) {
            if (!$next->is_in_category($cat)){
                do {
                    $next = $next->next(1);
                } while ($next && !$next->is_in_category($cat));
                if ($next) {
                   $mt->_rebuild_entry_archive_type(Entry => $next,
                       Blog => $blog,
                       ArchiveType => 'Individual')
                       or die $mt->errstr;
                }
            }
# next 2
            if ($next) {
                do {
                    $next = $next->next(1);
                } while ($next && !$next->is_in_category($cat));
            }
            if ($next) {
               $mt->_rebuild_entry_archive_type(Entry => $next,
                   Blog => $blog,
                   ArchiveType => 'Individual')
                   or die $mt->errstr;
# next 3
                do {
                    $next = $next->next(1);
                } while ($next && !$next->is_in_category($cat));
                if ($next) {
                   $mt->_rebuild_entry_archive_type(Entry => $next,
                       Blog => $blog,
                       ArchiveType => 'Individual')
                       or die $mt->errstr;
                }
            }
        }
    }