X-Git-Url: http://olivier.miskin.fr/git/?a=blobdiff_plain;f=emacs.el;fp=emacs.el;h=fee867e28bcd7906b517c04605ea892cd83fc8ee;hb=c515b1995a3f2e4196ec475ae1adbea77b9a247f;hp=d7f37d004542cc92a06efef5e2052ef4be66c48b;hpb=82da4dfe83767840f329379478af55b4b2c6859c;p=dotfiles2.git

diff --git a/emacs.el b/emacs.el
index d7f37d0..fee867e 100644
--- a/emacs.el
+++ b/emacs.el
@@ -211,6 +211,18 @@ The function is not passed any arguments. The function honours restrictions."
 (push (expand-file-name "~/.elisp/twittering-mode") load-path)
 (require 'twittering-mode)
 (setq twittering-use-master-password t)
+(setq twittering-icon-mode t)
+(setq twittering-timer-interval 300)
+(setq twittering-url-show-status nil)
+(add-hook 'twittering-new-tweets-hook
+	  (lambda ()
+	    (let ((n twittering-new-tweets-count))
+	      (start-process "twittering-notify" nil "notify-send"
+			     "-i" "/usr/share/pixmaps/gnome-emacs.png"
+			     "New tweets"
+			     (format "You have %d new tweet%s"
+				     n (if (> n 1) "s" ""))))))
+
 
 ;; -> END <-
 (custom-set-variables