Hatena::ブログ(Diary)

めもめも

2012-04-12

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.")))))

使い方

  1. howm の予定とかが書いてある行で M-x howm-growl-notify を実行
  2. ミニバッファに regsitered. と出力されたら OK
  3. howm-notify-before-min 分前になると growl で通知される

スパム対策のためのダミーです。もし見えても何も入力しないでください
ゲスト


画像認証

トラックバック - http://d.hatena.ne.jp/yuto_sasaki/20120412/1334218356