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.
Permalink
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
japanese-holidays.el

README

このプログラムは、calendar で表示出来る様に日本の祝日を設定します。
使用するには、このファイルを 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)
You can’t perform that action at this time.