japanese-holidays って何?

日本の祝日を設定します。calender, holidays で使います。

• Description: Japanese holidays (holidays adon)
• Category: Utils
• Require: Meadow
• URL: -

auto-autoloads.el

;; japanese-holidays.el は必ず byte-compile すること。
(add-hook 'calendar-load-hook
	  (lambda ()
	    (require 'japanese-holidays)
	    (setq calendar-holidays
		  (append japanese-holidays local-holidays other-holidays)
		  mark-holidays-in-calendar t)))

;;; 日曜日を赤字に
(add-hook 'today-visible-calendar-hook 'calendar-mark-weekend)
(add-hook 'today-invisible-calendar-hook 'calendar-mark-weekend)
;; (setq calendar-weekend '(0 6)) ;;; 土日を赤字に (.emacsに書く)

;;; “きょう”にアンダーライン
(add-hook 'today-visible-calendar-hook 'calendar-mark-today)

~/.emacs

土日を赤字にしたい場合には次のように書きます。 default は '(0) で日曜日だけです。

(setq calendar-weekend '(0 6))