このプログラムは、Emacs の calendar に、日本の祝日を表示できるように設定するものです。
M-x calendar で起動します。
使用するには japanese-holidays.el を load-path の通った所に置き、
~/.emacs.d/init.el に以下の設定を追加します。
(with-eval-after-load "holidays"
(require 'japanese-holidays)
(setq calendar-holidays ; 他の国の祝日も表示させたい場合は適当に調整
(append japanese-holidays holiday-local-holidays holiday-other-holidays))
(setq calendar-mark-holidays-flag 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)- "月" の表記を日本の書式とするには、次の設定を追加します。
(setq calendar-month-name-array ["1月" "2月" "3月" "4月" "5月" "6月"
"7月" "8月" "9月" "10月" "11月" "12月"]
calendar-month-header '(propertize
(format "%d年 %s" year (calendar-month-name month))
'font-lock-face 'calendar-month-header))- 曜日の表記を日本の書式とするには、次の設定を追加します。
(setq calendar-day-header-array ["日" "月" "火" "水" "木" "金" "土"])