X-Git-Url: http://olivier.miskin.fr/git/?a=blobdiff_plain;f=emacs.el;h=c70ec795ff5aa28936e5a09705cd151ced74a17f;hb=f21afe7515180b27b0148a7024396cb9bd84f152;hp=fc756b910d342eba1b8e30bf474cb18e12f7aef3;hpb=641996fbe9560b8289e7d46751fb84a8293d0379;p=dotfiles2.git

diff --git a/emacs.el b/emacs.el
index fc756b9..c70ec79 100644
--- 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 <-