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

[dotfiles2.git] / emacs.el

diff --git a/emacs.el b/emacs.el
index fee867e..c70ec79 100644 (file)
--- a/emacs.el
+++ b/emacs.el
@@ -32,39 +32,18 @@
 (require 'uniquify)
 (require 'themes)
 
+
 ;; ,----
 ;; | Couleurs et apparence
 ;; `----
 
 (if window-system
-    (progn
-      (tool-bar-mode nil)
-      (tooltip-mode nil)
-      (scroll-bar-mode t)))
+    (color-theme-tango))
 
 ;; font
 (if (>= emacs-major-version 23)
   (set-frame-font "DejaVu Sans Mono-10"))
 
-(require 'color-theme)
-;;(color-theme-initialize)
-(setq color-theme-is-global t)
-(setq color-theme-is-cumulative t)
-(setq color-theme-load-all-themes nil)
-
-(color-theme-tangotango)
-
-(add-hook 'message-mode-hook 'color-theme-tangotango)
-(add-hook 'gnus-article-mode-hook 'color-theme-tangotango)
-
-(add-hook 'after-make-frame-functions
-         (lambda (frame)
-           (set-variable 'color-theme-is-global nil)
-           (select-frame frame)
-           (if window-system
-               (color-theme-tangotango)
-             (color-theme-tty-dark))))
-
 ;; ,----
 ;; | Comportement
 ;; `----
@@ -85,12 +64,6 @@
 (setq scroll-bar-mode 'right)
 (column-number-mode 1)
 
-;; ;; Desktop-mode
-;; (desktop-save-mode t) ; remember which files were open
-;; (require 'midnight) ; Clear up unimportant buffers
-;; ;;(require 'savehist-20+)
-;; (savehist-mode 1)
-
 ;; Configuration d'uniquify
 (setq uniquify-buffer-name-style 'reverse)
 (setq uniquify-separator "|")
@@ -124,25 +97,6 @@
 ;; Enable longlines-mode for LaTeX files
 (add-hook 'latex-mode-hook 'longlines-mode)
 
-;; Impression
-(setq lpr-command "/usr/bin/gtklp")
-(setq ps-lpr-command "/usr/bin/gtklp")
-
-;; 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
 ;; `--------------
@@ -153,17 +107,10 @@
 ;; | Configuration pour les différants modes
 ;; `----
 
-;; Xtla
-;;(setq tla-arch-branch 'baz)
-;;(tla-insinuate-gnus)
-
 ;; Ispell/Aspell
 (setq ispell-program-name "aspell")
 (setq ispell-dictionary "french")
 
-;; Pour JDE (Bug dans la sid)
-(setq global-senator-minor-mode t)
-
 ;; Pour TEX
 (setq tex-dvi-view-command "evince")
 (setq LaTeX-verbatim-environments (quote ("verbatim" "verbatim*" "lstlisting")))
@@ -212,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
@@ -222,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 <-