calfw.el

;; かるふわの設定
;; http://d.hatena.ne.jp/kiwanami/20110107/1294404952
(require 'calfw)
;; Emacs22用の設定
;; Emacs23から関数名が変わったのでエイリアスを設定する
(unless (fboundp 'calendar-extract-day)
  (defalias 'calendar-extract-day (symbol-function 'extract-calendar-day))
  (defalias 'calendar-extract-month (symbol-function 'extract-calendar-month))
  (defalias 'calendar-extract-year (symbol-function 'extract-calendar-year)))
;; ;; カレンダー表示
;; (cfw:open-calendar-buffer)
;; ;; テストデータをセットする
;; (cfw:contents-debug-data)

;; Google Calendarとの連携
(require 'calfw-ical)
(cfw:install-ical-schedules) 
;; 予定のところに表示
(setq cfw:ical-calendar-contents-sources '("http://www.google.com/calendar/ical/hogehoge/basic.ics"))
;; 日付のところに表示
(setq cfw:ical-calendar-annotations-sources '("http://www.google.com/calendar/ical/japanese__ja%40holiday.calendar.google.com/public/basic.ics"))
;; キャッシュをクリア (cfw:ical-calendar-clear-cache)