Skip to content
master
Switch branches/tags
Code

Files

Permalink
Failed to load latest commit information.
Type
Name
Latest commit message
Commit time
 
 
 
 
 
 

japanese-holidays.el

このプログラムは、Emacs の calendar に、日本の祝日を表示できるように設定するものです。

M-x calendar で起動します。

japanese-holidays.jpg

Getting Started

使用するには japanese-holidays.elload-path の通った所に置き、 ~/.emacs.d/init.el に以下の設定を追加します。

(with-eval-after-load "calendar"
  (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-header '(propertize
                              (format "%d%s" year month)
                              'font-lock-face 'calendar-month-header))
  • 曜日の表記を日本の書式とするには、次の設定を追加します。
(let ((array ["" "" "" "" "" "" ""]))
  (setq calendar-day-header-array array
        calendar-day-name-array array))
  • ポイントの移動先が祝日であれば、同時にエコーエリアに表示してみます。
(defun my/japanese-holiday-show (&rest _args)
  (let* ((date (calendar-cursor-to-date t))
         (calendar-date-display-form '((format "%s%s%s日(%s" year month day dayname)))
         (date-string (calendar-date-string date))
         (holiday-list (calendar-check-holidays date)))
  (when holiday-list
    (message "%s: %s" date-string (mapconcat #'identity holiday-list "; ")))))

(add-hook 'calendar-move-hook 'my/japanese-holiday-show)

About

calendar functions for the Japanese calendar

Resources

Releases

No releases published

Packages

No packages published