Emacs: 自分用かるふわ face （calfw.el, calfw-ical.el）

• Emacsでカレンダーコンポーネントを作った - 技術日記＠kiwanami
• = CarbonEmacsでかるふわ使っちゃうよ！ - ぺっくブログミラー@peccul

dark 系なので、自分用に変更してみました。
自分の quack.el の face を参考にしました。

(require 'japanese-holidays)
(setq calendar-holidays
      (append japanese-holidays local-holidays other-holidays))
(setq calendar-weekend-marker 'diary)
(add-hook 'today-visible-calendar-hook 'calendar-mark-weekend)
(add-hook 'today-invisible-calendar-hook 'calendar-mark-weekend)


;; --- calfw ---

;; (cfw:open-calendar-buffer)
;; (cfw:contents-debug-data)

;; face
(custom-set-faces
 '(cfw:face-title ((t (:foreground "darkgoldenrod3" :weight bold :height 2.0 :inherit variable-pitch))))
 '(cfw:face-header ((t (:foreground "maroon2" :weight bold))))
 '(cfw:face-sunday ((t :foreground "red" :weight bold)))
 '(cfw:face-saturday ((t :foreground "blue" :weight bold)))
 '(cfw:face-holiday ((t :background "grey10" :foreground "purple" :weight bold)))
 '(cfw:face-default-content ((t :foreground "green2")))
 '(cfw:face-regions ((t :foreground "cyan")))
 '(cfw:face-day-title ((t :background "grey10")))
 '(cfw:face-today-title ((t :background "red4" :weight bold)))
 '(cfw:face-today ((t :foreground: "cyan" :weight bold)))
 '(cfw:face-select ((t :background "blue4")))
;;  '(cfw:face-grid ((t :foreground "DarkGrey")))
;;  '(cfw:face-default-day ((t :weight bold :inherit cfw:face-day-title)))
;;  '(cfw:face-annotation ((t :foreground "RosyBrown" :inherit cfw:face-day-title)))
 )

(require 'calfw)
(require 'calfw-ical)
(defvar cfw:ical-url '("http://www.google.com/calendar/ical/---hoge---/basic.ics"))
(setq cfw:ical-calendar-contents-sources cfw:ical-url)
;; (setq cfw:ical-calendar-annotations-sources cfw:ical-url)
(cfw:install-ical-schedules)
;; (setq calendar-month-name-array
;;       ["January" "February" "March"     "April"   "May"      "June"
;;        "July"    "August"   "September" "October" "November" "December"])
;; (setq calendar-day-name-array
;;       ["Sunday" "Monday" "Tuesday" "Wednesday" "Thursday" "Friday" "Saturday"])
;; (setq calendar-week-start-day 0)