KyokoさんとEmacs

kyoko-in-emacs

;; インストール方法：
;;     以下を .emacs に貼りつけてください．
;; kyoko さんとお知り合いでない人：
;;      => http://www.mactechlab.jp/products-report/16673.html
;;     注意）Kyoko さんは Mac(Lion) じゃないと遊びに来てくれません．

;; [#A] 起動時に Kyoko さんに応援してもらう
(shell-command-to-string "say -v Kyoko がんばってください")

;; [#B] 定時になったら Kyoko さんにねぎらってもらう
(run-at-time "18:00" nil
	     '(lambda () 
		(shell-command-to-string "say -v Kyoko お仕事お疲れさまです")))

;; [#C] サボっていると Kyoko さんがキレる
(run-with-idle-timer 30 t 
		     '(lambda () 
			(shell-command-to-string "say -v Kyoko おいおまえ仕事しろ")))