mhc の週番号がズレた？

週番号表示していい感じな mhc だったんですが、 2010 年に入ってから会社のカレンダーに表示されてる週番号より１週間進んでる気が…。きっと気のせい…と、しばらく放置してたけど、先週、帯状疱疹の痛みがひどくて１週間自宅勤務させてもらった時に、少しだけ調べて暫定(きっとこのまま恒久…)対策したメモ。

現在の、週の始まりを月曜日にする設定 (setq mhc-start-day-of-week 1) だとズレるようで、日曜日に設定 (setq mhc-start-day-of-week 0) すると大丈夫みたい。でもやっぱり会社のカレンダーに合わせて、週の始まりは月曜日を希望。

なんか週番号の数え方のルールっていくつかあったと思うので、もしかしたら mhc の不具合ではないかも知れないけど、ちゃんと調べる時間もないので、ここら辺の情報をもとに少し変更して取り敢えず…

;;; >>>>--> temp. workaround for mhc-date-cw (wrong week number ?)
(add-hook 'mhc-setup-hook
          (lambda ()
;;; from: http://www.quickhack.net/mhc/mhonarc/msg01631.html
;;; XXX: It has the Y2038 problem.
            (defsubst mhc-date-cw (date)
              (cond
               ;; ((= mhc-calendar-start-day-of-week 1) ;; kk
               ((= mhc-start-day-of-week 1) ;; kk
                (string-to-number (format-time-string "%V" (mhc-date-to-second date))))
               (t
                (string-to-number (format-time-string "%U" (mhc-date-to-second date))))))
            ;; reload source files to reflect the change of mhc-date-cw inline function
            (load "mhc-calendar.el")
            (load "mhc-summary.el")
            (load "mhc.el")
            ))
;;; <--<<<< temp. workaround for mhc-date-cw (wrong week number ?)

…などと .emacs に書いたら、会社のカレンダーの週番号と一致するようになったので、よしとしますか。 2038 年も emacs 使ってるんかなー？＞おれ
因みに、元々、モードラインには日付を (setq display-time-format "%x (wk%V-%a) %R (%z)") な感じで表示してて、ココでも %V を週番号に使ってたのでした。

そうそう、 mhc は mhc-current-snap20100120 にしました。