トップ «前の日記(2007-06-12 (Tue)) 最新 次の日記(2007-06-15 (Fri))» 編集

猫熊は燃えつきた?!日記

最近なんにもやっていませんが、なにかやったらこちらに置くようにしています。
2002|12|
2003|01|02|03|04|05|06|07|08|09|10|11|12|
2004|01|02|03|04|05|06|07|08|09|10|11|12|
2005|01|02|03|04|05|06|07|08|09|10|11|12|
2006|01|02|03|04|05|06|07|08|09|10|11|12|
2007|01|02|03|04|05|06|07|08|09|10|11|12|
2008|01|02|03|04|05|06|07|08|09|10|11|12|
2009|01|02|03|04|05|06|07|08|09|10|11|12|
2010|01|02|03|04|05|06|07|08|
2011|09|
2012|02|


2007-06-14 (Thu) [長年日記]

野球

今度は、マー君完封!!

月曜日始まり?日曜日始まり?

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

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

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

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

だけど、MHC は↓のようにして、週の始まりを切り替えられるようにしている。
(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) "月" "日"))))

書いている人: 白井秀行 (mailto:shirai@meadowy。org)
訪問して下さった人: 今日: 人, 昨日: , 過去: 人 (2007年5月10日から)
RDF Feed