くわぞうメモにおけるMT4.1のカスタマイズ箇所

これはほんとにメモ書きです。

○テンプレート：メインページ、アーカイブインデックス
　body_classの初期値を削除

＜MTSetVar name="body_class" value=""＞

○テンプレート：ヘッダー
　default=layout-wttをtwtに。

body class="
　＜MTIf name="body_class"＞
　　＜$MTGetVar name="body_class"$＞ 
　＜/MTIf＞
＜$MTGetVar name="page_layout" default="layout-twt"$＞"
　＜MTIf name="body_onload"＞
　　onload="＜$MTGetVar name="body_onload"$＞"
　＜/MTIf＞
＞

○テンプレート：フッター
　読み込むmoduleを「サイドバー」から「サイドバー(3カラム)」へ

＜MTIf name="sidebar"＞
　＜$MTInclude module="サイドバー (3カラム)"$＞
＜/MTIf＞

○テンプレート：サイドバー (3カラム)
　下記を削除し、右カラムの「最近のブログ記事」がすべての画面で出力されるようにした

＜MTIf name="module_recent_entries"＞
＜/MTIf＞

＜MTIf name="main_index"＞
＜/MTIf＞

○mt-static/themes-base/blog.css
　preタグの中身を目立つようにし、commentを目立たせるようにした。

pre
{
        /*font-family:  Courier, 'trebuchet ms',helvetica, arial, sans-serif;*/
        font-size: 12px;
        /* letter-spacing: 1px; */
        background-color: #E6E6E6;
        border: 1px #A80101 solid;
        border-collapse: collapse;
        padding: 3px 3px 3px 3px;
        /*overflow: auto;
        scrollbar-face-color:#ff7f00*/


        /*white-space: -moz-pre-wrap;*/ /* Mozilla */
        white-space: -pre-wrap;*/     /* Opera 4-6 */
        white-space: -o-pre-wrap;*/   /* Opera 7 */
        white-space: pre-wrap;*/      /* CSS3 */
        word-wrap: break-word;*/      /* IE 5.5+ */
}

.comment        { color: #330099; }

○preタグの中に改行がなるだけ追加されないようにする

こちらのブログを参考にさせていただいてます。
http://blog.nizah.net/archives/cat_movabletype.html

sub html_text_transform {
    my $str = shift;
    $str = '' unless defined $str;


    # edit by kuwa
    $str =~ s/\x0D\x0A/\n/g;
    $str =~ tr/\x0D\x0A/\n\n/;
    my @paras = split /\n\n/, $str;

    # add by kuwa
    # reffered by http://blog.nizah.net/archives/cat_movabletype.html
    my $preflag = 0;

    for my $p (@paras) {

        # add pre check by kuwa
        if($p =~ m@＜pre@) {
                $preflag = 1;
        }
        if(($p =~ m@＜pre@)&&($p =~ m@＜\/pre@)){
        $preflag = 2;
        }


        # add pre check by kuwa
        if (($preflag == 0) and $p !~ m@^＜/?(?:h1|h2|h3|h4|h5|h6|table|ol|dl|ul|menu|dir|p|pre|center|form|fieldset|select|blockquote|address|div|hr)@) {
            $p =~ s!\r?\n!＜br \/＞\n!g;
            $p = "＜p＞$p＜/p＞";
        }
        if ($preflag == 1) {
            $p =~ s!\r?\n!\n!g;
            $p = "＜p＞$p＜\/p＞";
        }
        if ($preflag == 2) {
            $p =~ s/＜\/pre\＞\r?\n/＜\/pre\＞/g;
            #$p =~ s!\r?\n!＜br \/＞\n!g;
        }
        if($p =~ m@＜\/pre@) {
                $preflag = 0;
        }

    }
    join "\n\n", @paras;
}