マスタカの ChangeLog メモ

■ 重複メール [procmail]

To: masutaka.net@gmail.com
Cc: 加入しているメーリングリスト
という宛先でメールが来ると、同じメールが 2 通来てしまう。
procmail 付属の formail を使えば Message-ID が同じメールを削除してくれる。詳細は割愛。
でも削除は怖いから、どこかのディレクトリに待避したいなあ。Notes のメールは Message-ID が重複しているし...。
あとは、メール本文が同じかどうかでも判断するようにしたい。MD5 でハッシュを計算すれば、負荷は少ないはず。

■ aa [chalow]

 アスキーアートを表示するための chalow プラグインなんだって。

{{aa('TEXT')}}

と書くと、アスキーアートをこのようにプロポーショナルフォントで表示してくれる。
ちなみに、aa() を使わないとこうなる。
　　 ∩＿＿＿∩
　　 | ノ　　　　　 ヽ
　　/　　●　　　● |　クマ──！！
　 |　　　　( _●_)　 ミ
　彡､　　　|∪|　　､｀＼
/　＿＿　 ヽノ　/´>　 )
(＿＿＿）　　　/　(_／
　|　　　　　　 /
　|　　／＼　＼
　|　/　　　 )　 )
　∪　　　 （　 ＼
　　　　　　 ＼＿)
(URL: http://chalow.net/2006-09-23-3.html)

■ chalow を始めた。 [chalow][Ruby][Emacs]

- chalow(URL: http://chalow.org/) というツールを使うと、
  この Changelogメモを Web ページに変換できることが分かった。

- clmemo(のデフォルトの設定) では "(" と ")" で囲われたものがカテゴリと
  して扱われるが、chalow では "[" と "]" という違いがある。

- 一応、以下のスクリプトで "(カテゴリ)" から "[カテゴリ]" への変換を行
  うことは出来たが、そもそも clmemo と chalow とでは、お題やカテゴリの
  考え方がだいぶ違うみたい。変換しても意味が無いので、カテゴリ分けをす
  るのは今日からにしよう。

#!/usr/bin/ruby

ifile = File.open("/home/masutaka/clmemo.txt", "r")
ofile = File.open("/home/masutaka/tmp/clmemo2.txt", "w")

while line = ifile.gets
  if /^\t\* .+\(/ =~ line
    line_array = line.split(":")
    head = line_array[0]
    line_array.shift
    body = line_array.join

    head = head.gsub(/\(/, "[")
    head = head.gsub(/\)/, "]")

    ofile.write(format("%s:%s", head, body))
  else
    ofile.write(line)
  end
end

ifile.close
ofile.close

- clmemo のカテゴリの扱いを "()" から "[]" に変更した。~/.emacs.el に
  下記を追加。

(setq clmemo-subtitle-char "[")
(setq clmemo-subtitle-punctuation-char '(" [" . "]"))

- 今までは１ブロックには無駄な空行を一切入れなかったのだが、
  Web ページの見栄えが悪いので入れることにした。

- 今まで Computer と Work 以外のカテゴリは見せないようにしてい
  たので、chalow の秘密の項目に変換した。(例: * 日記 => * p:日記)

#!/usr/bin/ruby

ifile = File.open("/home/masutaka/tmp/clmemo.txt", "r")
ofile = File.open("/home/masutaka/tmp/clmemo3.txt", "w")

while line = ifile.gets
  if /^\t\*/ =~ line
    unless /^\t\* +(Computer|Work|tmp)/ =~ line
      line = line.gsub(/^\t\* /, "\t* p:")
      ofile.write(line)
      next
    end
  end
  ofile.write(line)
end

ifile.close
ofile.close