bills.flipflap.net 2004-05

* 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

2004-05-09 Sun

* 運動不足

　今日は側転をしたら先日いためてやっと直ってきた右大腿側部(この呼称で合ってるか不明)をいためてしまいました。前屈・開脚も全然だし、地味に運動不足解消しつつ改善したい。

* タイミングの悪い俺 [chalow]

　利用し始めた途端、chalow 1.0rc1がリリース(^^;。追っかける前にやることが…今日は時間切れ。

- Trackbackがちゃんと設置されていないようなので、設定し直す。
- IEできればSleipnirからのTrackBack pingツール作成または入手。
- [2004-05-08-2]のプラグイン化
- リリース1.0の追っかけ
- [2004-05-08-3]のアイテムジャンプ対応

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

2004-05-08 Sat

* インデックスでの見出し表示 [chalow]

　うっ、いじってる内に日をまたいでしまった…それはともかく。

　↓のエントリが長くなってしまったのでMovableTypeなどで見られるようなエントリの途中まで表示して残りはリンク先、という「見出しモード」を仕込んでみました。

sub write_day_page {
:
  $content =~ s|<h2>.+?</h2>||sm;
  ## 2004-05-08 bills : 見出し
  $content = remove_heading($content);
:
sub write_month_page {
:
  my $content = join('', map {$month_page{$ym}{$_}} @cont);
  ## 2004-05-08 bills : 見出し
  $content = remove_heading($content);
:
sub write_index_page {
:
## 2004-05-08 bills : 見出し化
## $top_n_str .= $month_page{$ym}{$ymd};
    $top_n_str .= make_heading($month_page{$ym}{$ymd}, $ymd);
:
## 2004-05-08 bills : 見出し
sub make_heading {
  my ($str, $ymd) = @_;
  return $str if ($heading_mode == 0);
  my $url = datestr2url($ymd);
  $str =~ s!\[\[\[heading\]\]\].+?</p>![<a href="${url}">全部読む</a>]</p>!gsm;
  return $str;
}
:
## 2004-05-08 bills : 見出し
sub remove_heading {
  my ($str) = @_;
  return $str if ($heading_mode == 0);
  $str =~ s!\[\[\[heading\]\]\]!!gsm;
  return $str
}
(別途$heading_modeをコンフィグ対象変数として定義)

　ChangeLogテキストの区切りたい場所に\[\[\[heading\]\]\](実際には\を抜いたものです)と記述すると、それ以降はインデックスでは[全部読む]というリンクに置き換えられます。ロジックの都合上(手抜きともいう)、日単位にしか飛べません(^^;

Referrer (Inside): [2004-05-10-3] [2004-05-09-1]

* 改行とレイアウト [chalow]

　chalow ではChangeLog形式テキストからエントリを生成しますが、テキストの改行毎に<br>タグを生成します。

　エディタで論理改行(折り返し)を使わない派の自分は、適当な文節や桁数で改行を入れてテキストを作成するのですが、その改行でレイアウトに影響が出てしまうのが個人的にあまりうれしくないと感じました。

　そこでまず、ちょっと chalow をいじって、改行のみの空行の時だけ<br>タグを付けるようにしました。YukiWiki等のように、空行があらわれるまではひとつの行として見た目の改行をせず、同一行に連結するものです。

#print "1[$_]\n";
## 2004-05-08 bills : 空行のみ<br>を付ける
## s!$!<br>!gsm;
## s!<br>$!!;
    s!^$!<br>!gsm;
#print "2[$_]\n";

　元テキストとWeb上の表記に乖離が生じますしChangeLog的にも、あまりうれしくないのかなぁ？
　と思ったら引用部分まで連結してしまったので修正を試みたのですが、折り返したい部分と折り返したくない部分の切り分けが難しく、chalow でいろいろ機能を使い出すと結局元テキストにマークアップが入るので、同一行連結もマークアップでいいや、と以下に落ち着きました。

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

(略)

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

　連結したい複数行の先頭行冒頭にアンダースコア2個を入れると空行までをあらかじめ物理的に１行にするようにしてみました。

Referrer (Inside): [2004-05-10-2] [2004-05-09-1]

* スタート

　いわゆるblog的なことを始めてみることにしました。

　Web日記、weblog等の類、そしてこの雑記のシステムとしている chalow は扱ったことが無いので徐々に慣れていこうと思います。

　内容的にはくだらないことばかり書いて行く気がしますが、ローカルで無く公開しているからには、誰かに役立ったり、blog的な(良い)相互作用が生まれるとうれしい。

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

Powered by chalow