Archive for 10月, 2009

朝7時過ぎに息子の泣き声で目覚める。朝食後に1件納品した後、しばらく息子の相手をする。妻にバトンタッチした後、小さい急ぎの案件を片付け、昼食を食べて息子を風呂に入れ、校閲案件の訳文に目を通し、いったん力つきてベッドで10分昼寝して、契約書の翻訳に取りかかったけれどどうにも集中できないので、2日ぶりに外出し、近所のスーパーでキリンの一番搾りを購入。そのまま野川沿いを自転車で走り、なんだか知らないうちにずいぶん季節が進んだことに驚きながら帰宅。目を覚ました息子を妻とあやす。夕食後、まったりしようとすると息子の泣き声。おしめを替えたり、ミルクをやったりしていたけれど、ぐずり続けるので妻に任せて先に風呂に入る。風呂から上がってしばらくベビーベッドの横で過ごす。眠ったのを確認して冷蔵庫からチューハイを取り出し、ネットブックで久しぶりに日記でも書くかと思いつく。最近、自分の時間なにそれ？みたいな状態が続いていて曜日とか日にちとかよく分からない。

Solidotの互联网流行字囧之后烎走红を読み、これは楽しい！と北辞郎に登録しようと思ったら、例によってhuixingさんに先を越されていてしばし五体投地。その後、しばらく関連情報を眺め、百度百科へのリンクなど関連情報を追加したのですが、烎_百度百科の最後の方にいくつか生僻字が紹介してあって、これも面白かった。嘂なんていいですねえ。見るからに騒がしくて(^^;

Xinでクメール語が文字化けするようなので調査しているのですが、クメール語を表示して入力できるようにするだけでもなかなか大変そう。

以下、自分用の資料メモ。

• Khmer Unicode Fonts
• Khmer Software Initiative | … makes Khmer Unicode run（KhmerOS）
• クメール語の入力方法について

10月9日、父親になりました。何もかもが小さくて華奢で壊れそうで毎日ドキドキです。

再帰的にフォルダ内を検索して条件に合うファイルを取得するための関数。
引数のdirには検索対象のフォルダのパス、masksには「*.txt *.exe」のように取得したいファイルの種類をリストで渡します。
返り値はファイル名のリストです。

proc globRecursive {dir masks} {
  set result [list]
  foreach cur [lsort [glob -nocomplain -dir $dir *]] {
    if {[file type $cur] == "directory"} {
      eval lappend result [globRecursive $cur $masks]
    } else {
      foreach mask $masks {
        if {[string match $mask $cur]} {
          lappend result $cur
          break
        }
      }
    }
  }
  return $result
}

北京では建国60周年を祝う式典で凛々しい女性部隊がザクザク歩いていたわけですが、まあそれはさておき「新中国の主な出来事をざっと眺めてみたいなあ」と検索にかけたところ、Wikipediaに中国の歴史年表というそのまんまのコンテンツがありました。とても見やすかったのでメモしておきます。

関連：中国共产党大事记（1919年～2008年10月）

いつもやり方を忘れるTkのフォーカスまわり。
エンターキーを押下した際、次のウィジェットにフォーカスを移動させたい場合は、tk_focusNextを使います。

bind $w <Return> {
	focus [tk_focusNext [focus]]
	break
}

自分のためにﾒﾓφ(｡_｡)ﾒﾓ