.emacs.el: enable twittering-scroll-mode in twittering.

[dotfiles2.git] / emacs.el

diff --git a/emacs.el b/emacs.el
index fc756b9..c70ec79 100644 (file)
--- a/emacs.el
+++ b/emacs.el
@@ -97,21 +97,6 @@
 ;; Enable longlines-mode for LaTeX files
 (add-hook 'latex-mode-hook 'longlines-mode)
 
-;; On utilise Mozilla Firefox
-(defun browse-url-firefox-new-tab (url &optional new-window)
-  "Open URL in a new tab in Firefox."
-  ;; (interactive (browse-url-interactive-arg "URL: "))
-  (let ((cmd (shell-command-to-string
-              (concat "mozilla-firefox -a firefox -remote 'openURL("
-                     url ",new-tab)' > /dev/null"))))
-    (unless (string= "" cmd)
-      (message "Starting Firefox...")
-      (start-process (concat "firefox " url) nil "/bin/sh" "-c"
-                    (concat "mozilla-firefox " url "|| true"))
-      (message "Starting Firefox...done"))))
-
-(setq browse-url-browser-function 'browse-url-firefox-new-tab)
-
 ;; ,--------------
 ;; | Les racourcis
 ;; `--------------
@@ -174,6 +159,7 @@ The function is not passed any arguments. The function honours restrictions."
 (require 'twittering-mode)
 (setq twittering-use-master-password t)
 (setq twittering-icon-mode t)
+(setq twittering-scroll-mode t)
 (setq twittering-timer-interval 300)
 (setq twittering-url-show-status nil)
 (add-hook 'twittering-new-tweets-hook
@@ -184,6 +170,11 @@ The function is not passed any arguments. The function honours restrictions."
                             "New tweets"
                             (format "You have %d new tweet%s"
                                     n (if (> n 1) "s" ""))))))
+(setq twittering-initial-timeline-spec-string
+      '(":home"
+        ":replies"
+        ":mentions"
+        ":direct_messages"))
 
 
 ;; -> END <-