HIE no Murmur

# [駄目]

やりたいこと，やらなきゃいけないことが，累積されていく…。

# [xyzzy] フォント

気分転換に，ほげほげゴシックにしてみた。

# [ゲージツ] 木工教室作品展

知り合いの旦那さんが出品するとのことで，仕事前に立ち寄る。木工に興味を持ったことはなかったが，おじさん達の話を聞いていると，非常に興味が湧いてくる。

• 漆の乾燥には湿度が必要
• 1枚板は本当に良いか
• 日本人と欧米人の板目と柾目の好みの違い
• このロッキングチェアは，ロボット工学の先生が開発したとかしないとか

お茶をごちそうになった部屋も，木のぬくもりにあふれていた。どこにでもあるような観葉植物が，実に生き生きとしてみえたのも，そのせいか。

# [実家] 昔懐かし

私が子供の頃から変わっていない家庭常備薬達。パッケージも変わらず，未だ現役とは。

# [実家][食] たこやき

買ったばかりのたこ焼き器と，釣ったばかりの鰺（もらいもの）で，豊かな食卓。

# [健康] 大阪行

魔法の薬をもらうため，家族３人でドライブ。

# [駄目] メールチェック

怠ってました。ここ 1 週間ほど。(fn 'メール見ないでコメント書いてたり…。')

# [xyzzy] AL-Mail to KaMail

以前使っていた AL-Mail のメールデータを長いこと放置していたが，これを KaMail に取り込もうと思い立つ。AL-Mail も 1 メール 1 ファイルで保存されているため，案外ファイル名を変更するだけでいけるのでは，などと甘い期待を寄せて KaMail に放り込んでみた。しかし，キャッシュファイルを作成し，サマリの表示まではうまくいったものの，本文が化けてしまいダメダメ。

AL-Mail のデータは，Subject が復号化された状態で保存されているため，これが悪さをしているのかとも思ったが，どうやら，エンコーディングが Shift-JIS になっているのが原因だったもよう。で，またしてもへなちょこなものをつくって，指定フォルダ中のファイル名を連番にしつつ，エンコーディングを ISO-2022-JP にすることにした。

(defun almail2kamail ()
  "AL-Mail のメールファイルを KaMail 用に変換"
  (interactive)
  (let* ((dir (read-directory-name "directory: "))
         (lst (directory dir
                         :absolute t
                         :wild "*.alm"
                         :file-only t)))
    (when lst
      ;; エンコーディングの変更
      (let ((buf (create-new-buffer "*alm2km*")))
        (set-buffer buf)
        (dolist (f lst)
          (erase-buffer buf)
          (ed::insert-file-contents f t)
          (write-region (point-min) (point-max) f nil *encoding-jis* 1))
        (delete-buffer buf))
      ;; ファイル名の変更
      (let ((i 1))
        (dolist (f lst)
          (rename-file f (merge-pathnames (format nil "~D" i) dir))
          (incf i))))))

almail2kamail は，ファイルを直接書き換えてしまうので，以下の手順で。

1. AL-Mail の Mailbox 以下のメールファイルを，KaMail のローカルフォルダ中に新たにフォルダを作成してコピー。
2. M-x almail2kamail して，新たに作成したフォルダを指定。
3. 新たに作成したフォルダを，設定ファイル Folders に追加するか，フォルダモードから a するなどして KaMail のローカルフォルダとして登録。
4. 新たに登録したフォルダを開くと，「Cache fileを作成します」といわれるので，作成してもらう。

これを AL-Mail のメールフォルダの数だけ繰り返す。で，たぶんオッケー。

# [xyzzy] reference.dat

ということで（何が？），reference.txt から ese-fortune 用 reference.dat を作成するへなちょこなものをつくってみた。reference.txt は，$XYZZY/etc に置いておく必要があります。できあがった reference.dat も$XYZZY/etc に作成されます。

(defun reftxt2dat ()
  (interactive)
  (long-operation
    (let ((buf "*reference.dat*")
          (txt (merge-pathnames "reference.txt" (etc-path)))
          (dat (merge-pathnames "reference.dat" (etc-path))))
      (when (file-exist-p txt)
        (set-buffer (create-new-buffer buf))
        (ed::insert-file-contents txt t)
        (while (scan-buffer "^■" :regexp t :no-dup t)
          (save-excursion
            (save-restriction
              (narrow-to-region (point)
                                (progn
                                  (or (scan-buffer "^■" :regexp t :tail nil :no-dup t)
                                      (goto-char (point-max)))
                                  (forward-char -1)
                                  (point)))
              (goto-char (point-min))
              (if (string-match ".*\\[Section    \\]:.*"
                                (buffer-substring (point-min) (point-max)))
                  (replace-buffer "\n" "<ese-fortune-br>" :regexp t)
                (delete-region (point-min) (point-max))))))
        (goto-char (point-min))
        (delete-region (point)
                       (progn
                         (scan-buffer "^■" :regexp t)
                         (point)))
        (replace-buffer "^\n" "" :regexp t)
        (when (or (not (file-exist-p dat))
                  (yes-or-no-p "~A を上書きして良いですか？" dat))
          (write-file dat)
          (delete-buffer buf))))))

# [駄目] コメントなど

あとから読み直すと，私の書いたコメントは実にわかりにくかったりする。「…の良いとこなんですけどね。」っていうのは，「だから今のままの方がよいかもですね。」っていうつもりで書いてるのに，「だからそうすべきじゃないですかね。」とも読めてしまう。

お仕事でも，何度繰り返し説明してもなかなか通じ合えないのは，当然といえば当然か。

# [xyzzy] 大掃除

新しいリファレンスの verify-visited-file-modtime には対応できないことを悟り，これを機に大掃除を始める。

# [こざる] 運動会

毎年 9 月に開催される小学校の運動会。今年は珍しく 10 月に。やはり運動会といえば，かけっこが一番燃えるのです。練習では 6 人中 4 位だったお嬢ちゃんは，3 位目標で本番に挑みました。微妙フライング気味かと思わせなくもない絶妙なスタートを切ったお嬢ちゃんは，第 1 コーナーまでは先頭に位置していたのですが，コーナーでの詰めが甘く，第 2 コーナーあたりで 1 人抜かれ，ゴール数メートル前で 1 人抜かれ，結局 3 位に。当初の目標は達成したのですが，課題の残る結果となりました。でもじいちゃんが，独走状態でのスナップを記録してくれていたので，それを見た家族全員満足気。

# [xyzzy] CalMemo

もともと，私と近所のおじさんのためにつくったもので，自分の欲しい機能だけを何の脈絡もなく闇雲に追加していっただけのものなのですが，インストールして下さっている方もポチポチとみえるようなので，久々にバージョンナップ。

綺麗な作りになっているわけもなく，自分の記憶力が良いわけでもないため，たまーに中身を覗くと，なにがどうなっているのやら思い出すのが精一杯。