[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[mhc:00812] 3 ヶ月 calendar の改造



以前、乃村さんに「mhc-cal-* は mhc-calendar.el に入れたらどうで
すか」と言われていたのを思い出したので、移動して、mhc-cal-* =>
mhc-calendar-* と名前を変えました。また、若干、ユーザカスタマイ
ズが出来るようにしました。

例えば、

(setq mhc-summary-separator ?-)
(setq mhc-calendar-separator ?\ )

とかすると区切り記号が変わったり、

(setq mhc-calendar-day-strings ["日" "月" "火" "水" "木" "金" "土"])
(setq mhc-calendar-header-function 'mhc-calendar-make-header-jp)
(defun mhc-calendar-make-header-jp (date)
  (let ((ret (mhc-date-format date "%04d年%2d月" yy mm)))
    (if (mhc-date-yymm= (mhc-date-now) date)
	(mhc-face-put
	 ret (mhc-face-get-today-face 'mhc-calendar-face-saturday))
      (mhc-face-put ret 'mhc-calendar-face-saturday))
    (concat "     " ret)))

とかすると、(色付きで) 3ヶ月カレンダが日本語モードになったりしま
す。

## 詳細は source をみてね ^^;

-- 
白井秀行 (mailto:shirai@xxxxxxxxxxxxx)