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

diff --git a/emacs.el b/emacs.el
index fc756b9..2fd9b78 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
 ;; `--------------
@@ -147,7 +132,7 @@
 
 ;; Configuration de debian-changelog
 (setq debian-changelog-full-name "Olivier Tétard")
-(setq debian-changelog-mailing-address "olivier.tetard@miskin.fr")
+(setq debian-changelog-mailing-address "olivier.tetard@amossys.fr")
 
 (setq safe-local-variable-values
       (quote ((TeX-PDF-mode . PDF))))
@@ -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
@@ -181,9 +167,15 @@ The function is not passed any arguments. The function honours restrictions."
 	    (let ((n twittering-new-tweets-count))
 	      (start-process "twittering-notify" nil "notify-send"
 			     "-i" "/usr/share/pixmaps/gnome-emacs.png"
+			     "--hint=int:transient:1"
 			     "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 <-
@@ -217,3 +209,4 @@ The function is not passed any arguments. The function honours restrictions."
  '(highlight-current-line-face ((t (:background "#6699cc"))))
  '(muse-bad-link-face ((t (:foreground "DeepPink" :underline "DeepPink" :weight bold))))
  '(muse-link-face ((t (:foreground "blue" :underline "blue" :weight bold)))))
+(put 'scroll-left 'disabled nil)