猫熊は燃えつきた？！日記

○ 野球

今度は、マー君完封！！

○ 月曜日始まり？日曜日始まり？

MHC に CW(Calendar Week Number) を導入してから、MHC のカレンダーは月曜日始まりにしていた。gemcal も改造して月曜日始まりにしていて、この前から使い出した Google カレンダーも月曜日始まりにしていたのだ。唯一、MHC の Postscript カレンダーは何回トライしても玉砕したので日曜日始まりだった。

身の回りにある紙のカレンダーは大抵日曜日始まりだったが、紙とコンピュータで意識が勝手に切り替わるようで、まったくトラブルは無かった。

が、しかし、突然思うところがあり、すべて日曜日始まりに変えた。ちょっとの間は曜日を間違える可能性がありそうなので、注意！注意！！

○ MHC での day-of-week 切り替え

(add-hook 'mhc-mode-hook
	  (lambda ()
	    (define-key mhc-prefix-map "w" 'mhc-day-of-week)))
 
(add-hook 'mhc-calendar-mode-hook
	  (lambda ()
	    (define-key mhc-calendar-mode-map "w" 'mhc-day-of-week)))
  
(defun mhc-day-of-week ()
  (interactive)
  (when (or (and (boundp 'mhc-mode) mhc-mode)
	    (eq major-mode 'mhc-calendar-mode))
    (if (eq mhc-start-day-of-week 1)
	(progn
	  (setq mhc-start-day-of-week 0)
	  (setq mhc-summary-use-cw nil)
	  (setq mhc-calendar-use-cw nil))
      (setq mhc-start-day-of-week 1)
      (setq mhc-summary-use-cw t)
      (setq mhc-calendar-use-cw 'week))
    (mhc-reset)
    (message "MHC: %s曜日始まり"
	     (if (eq mhc-start-day-of-week 1) "月" "日"))))