mhc

mhc

導入

$ cvs -d :pserver:anonymous@cvs.quickhack.net:/cvsroot login
$ cvs -d :pserver:anonymous@cvs.quickhack.net:/cvsroot co mhc
$ cd mhc
$ ruby ./configure.rb --disable-palm --with-mew --bindir=${HOME}/bin --libdir=${HOME}/lib/site_ruby
$ ruby make.rb

設定

;;; ========================================================================
;; mhc の設定
(setq load-path (cons "~/.emacs.d/elisp/mhc" load-path))
(autoload 'mhc-mew-setup "mhc-mew")
(add-hook 'mew-init-hook 'mhc-mew-setup)
(setq mhc-base-folder "+schedule")
(setq mhc-symbol-face-alist
          '((mhc-calendar-face-saturday . (nil "blue"        nil))
                (mhc-calendar-face-sunday   . (nil "red"         nil))
                (mhc-summary-face-saturday  . (nil "blue"        nil))
                (mhc-summary-face-sunday    . (nil "red"         nil))
                (mhc-summary-face-today     . (nil "black"       nil))
                (mhc-summary-face-separator . (nil "snow"        nil))
                (mhc-summary-face-time      . (nil "yellowgreen" nil))
                (mhc-summary-face-location  . (nil "snow"       nil))
                (mhc-summary-face-conflict  . (nil "white"       "purple"))
                (mhc-summary-face-secret    . (nil "gray"        nil))
                (mhc-minibuf-face-candidate . (nil nil           nil))
                (mhc-category-face-holiday  . (nil "red"         nil))))
(setq mhc-category-face-alist
          '(
                ("Work"      . (bold "snow"  nil))   ;; 講議
                ("Part"      . (nil  "gray"  nil))   ;; バイト
                ("Private"   . (nil  "red"   nil)))) ;; プライベート
(setq mhc-mail-path
          (expand-file-name "~/Mail"))
(setq mhc-calendar-start-day-of-week 1)
(setq mhc-calendar-language 'japanese)
(setq mhc-use-week-separator 6)
(setq mhc-schedule-file "~/Mail/.schedule")

mhc2gcal

• http://www.heavenwolf.org/archives/2007/04/13/0114.php

大変重宝してます.

RubyGems で gcalapi を導入して, 上記サイトよりスクリプトを入手して, FEED や PASS を自分用に修正する.

母艦は mhc で, google calendar は閲覧用になるが, まあそれはそれとして.