bills.flipflap.net / 2004-05-10

2004-05-10 Mon

* 1.0rc1への移行(インデックスでの見出し表示) [chalow]

　0.24にカスタマイズした見出しモード[2004-05-08-3]を移行。
　ざっとソース眺めたときに該当部分があまり変わって無いように見えたので、「へへーん」と思ったら...ちょっと悩みました(^^;
　表層のアドホックな対処なので、もっとデータソースに近い部分に手を入れればいいような、またはHTML::Templateの方で対処したほうがいいような気がしますが、深追いは次の機会にとっておくことに。
　またカテゴリ毎の出力(write_category_page())への対応が抜けているため制御文字列\[\[\[heading\]\]\]が無様に残ってしまいます。
　制御構造の記法やコメント記法は試行錯誤中のため先日と変化しています。

sub write_day_page {
:
        $t->param(next => $day_after);
## 2004-05-10 bills : 見出しモード
## begin
## $t->param(content => $month_page{$ym}{$ymd}{str});
        $t->param(content => remove_heading($month_page{$ym}{$ymd}{str}));
## end

        my $ostr = $t->output();
:
sub write_month_page {
:
## 2004-05-10 bills : 見出しモード
## begin
## my @contlist = map } @cont;
        my @contlist = map @cont;
## end

        ### ページの組み上げ
:
sub write_index_page {
:
# $top_n_str .= $month_page{$ym}{$ymd}{str};
## 2004-05-10 bills : 見出しモード
## begin
## push @top_n_entries, {content => $month_page{$ym}{$ymd}{str}};
        push @top_n_entries, {content => make_heading($month_page{$ym}{$ymd}{str}, $ymd)};
## end
    }
    my ($ymd, $ym, $d) = ($recent[0] =~ /^((\d{4}-\d\d)-(\d\d))$/);

    # 日付リンク一覧
:
## 2004-05-10 bills : 見出しモード
## begin
sub make_heading {
  my ($str, $ymd) = @_;
  if ($heading_mode) {
    my $url = datestr2url($ymd);
    $str =~ s!\[\[\[heading\]\]\].+?</p>![<a href="${url}">全部読む</a>]</p>!gsm;
  }
  return $str;
}

sub remove_heading {
  my ($str) = @_;
  $str =~ s!\[\[\[heading\]\]\]!!gsm if ($heading_mode);
  return $str
}
## end

* 1.0rc1への移行(改行とレイアウト) [chalow]

　0.24にカスタマイズした単一行モード[2004-05-08-2]を移行。
　ついでに単一行クラスタ間に空行が無くてもいいように修正。
　プラグイン化はちょっとプラグインの記法と異なるので保留。
　制御構造の記法やコメント記法は試行錯誤中のため先日と変化しています。

sub okikae {
:
## 2004-05-10 bills : 単一行モード
## begin
    s!^　(.+?)(^$|\z|(?=\s*　))!make_single_line($1)!gsme if ($single_line_mode);
## end
    s!$!<br>!gsm;
    s!<br>$!!;
#print "2[$_]\n";
:
}

## 2004-05-10 bills : 単一行モード
## begin
sub make_single_line {
  my ($line) = @_;
  $line =~ s!\n!!gsm;
  return "　${line}";
}
## end
(別途$single_line_modeをコンフィグ対象変数として定義)

Referrer (Inside): [2004-05-24-1] [2004-05-11-1]

* 1.0rc1に移行＆もうリニューアル [chalow]

　TrackBack pingツール作るときにDocumentオブジェクトからHTML構造をたどる予定です。で、1.0rc1のリリース情報を見ているうちにいやな予感がしてきたので、傷が浅いうちに(^^;1.0rc1に移行しました。

　ついでにトップページもリニューアル。といっても知り合いにアナウンスもしていない準備期間なので、間違って来ない限り独り言モードなんですが。

Referrer (Inside): [2004-05-15-2]

2004-05 /
2004-05
S M T W T F S

1
2 3 4 5 6 7 8
9 10 11 12 13 14 15
16 17 18 19 20 21 22
23 24 25 26 27 28 29
30 31

2004-05
S	M	T	W	T	F	S
						1
2	3	4	5	6	7	8
9	10	11	12	13	14	15
16	17	18	19	20	21	22
23	24	25	26	27	28	29
30	31

2006 : 01 02 03 04 05 06 07 08 09 10 11 12
2005 : 01 02 03 04 05 06 07 08 09 10 11 12
2004 : 01 02 03 04 05 06 07 08 09 10 11 12

最終更新時間: 2006-06-05 00:56