howm の todo とかを growl で通知(手動登録)@Windows
elisp
growl-notifyが必要
(require 'parse-time) (defvar howm-notify-before-min 5) (defvar howm-notify-title "予定の通知") (defun howm-growl-notify () (interactive) (let* ((line (thing-at-point 'line)) (time (parse-time-string line)) (sec (first time)) (min (second time))) (condition-case nil (if (and sec min) (progn (run-at-time (apply 'encode-time (append (list sec (- min howm-notify-before-min)) (cddr time))) nil 'growl-notify (format "%s(%d 分前)" howm-notify-title howm-notify-before-min) (nth 5 (howm-todo-parse-string line))) (message "registered.")) (message "no schedule here.")) (error (message "no schedule here.")))))