sakito - Emacsがすきすぎる

 | 

2010-11-09Emacs のカレンダーを設定する このエントリーを含むブックマーク

M-x calendar でカレンダーが起動するのですが、デフォルトだと祝日とか表示できてないので設定してみます。

基本的には「Emacs のカレンダーに日本の祝日を設定する - http://rubikitch.com/に移転しました」に書いてあるままで良いです。

祝日設定ファイルは以下にあります。

http://www.meadowy.org/meadow/netinstall/browser/branches/3.00/pkginfo/japanese-holidays/japanese-holidays.el

Emacs 23 では以下のように設定すればよいです。以下のは obsolute な部分を置換してあります。

(require 'calendar)
;; キーの設定
(define-key calendar-mode-map "f" 'calendar-forward-day)
(define-key calendar-mode-map "n" 'calendar-forward-day)
(define-key calendar-mode-map "b" 'calendar-backward-day)
;; 祝日をマークする
(setq calendar-mark-holidays-flag t)
(require 'japanese-holidays)
(setq calendar-holidays
      (append japanese-holidays holiday-local-holidays holiday-other-holidays))
;; 今日をマークする
(add-hook 'today-visible-calendar-hook 'calendar-mark-today)
;; 日曜日をマークにする
(setq calendar-weekend-marker 'diary)
(add-hook 'today-visible-calendar-hook 'calendar-mark-weekend)
(add-hook 'today-invisible-calendar-hook 'calendar-mark-weekend)
 |