.emacs.el: add some more twittering configuration

diff --git a/emacs.el b/emacs.el
index d7f37d0..fee867e 100644 (file)
--- 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