このプログラムは、calender で表示出来る様に日本の祝日を設定します。
使用するには、このファイルを load-path の通った所に置き、
~/.emacs.d/init.el に以下の設定を追加します。
(eval-after-load "holidays"
'(progn
(require 'japanese-holidays)
(setq calendar-holidays ; 他の国の祝日も表示させたい場合は適当に調整
(append japanese-holidays holiday-local-holidays holiday-other-holidays))
(setq mark-holidays-in-calendar t) ; 祝日をカレンダーに表示
;; 土曜日・日曜日を祝日として表示する場合、以下の設定を追加します。
;; デフォルトで設定済み
(setq japanese-holiday-weekend '(0 6) ; 土日を祝日として表示
japanese-holiday-weekend-marker ; 土曜日を水色で表示
'(holiday nil nil nil nil nil japanese-holiday-saturday))
(add-hook 'calendar-today-visible-hook 'japanese-holiday-mark-weekend)
(add-hook 'calendar-today-invisible-hook 'japanese-holiday-mark-weekend)))
“きょう”をマークするには以下の設定を追加します。
(add-hook 'calendar-today-visible-hook 'calendar-mark-today)