Skip to content
calendar functions for the Japanese calendar
Emacs Lisp
Branch: master
Clone or download
Fetching latest commit…
Cannot retrieve the latest commit at this time.
Type Name Latest commit message Commit time
Failed to load latest commit information.
README Fix a typo Sep 30, 2016
japanese-holidays-tests.el fix typo. Mar 21, 2019


このプログラムは、calendar で表示出来る様に日本の祝日を設定します。
使用するには、このファイルを load-path の通った所に置き、
~/.emacs.d/init.el に以下の設定を追加します。

(eval-after-load "holidays"
     (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)
You can’t perform that action at this time.