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

diff --git a/emacs.el b/emacs.el
index 8042a2b..c70ec79 100644
--- 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")))
@@ -207,6 +154,29 @@ The function is not passed any arguments. The function honours restrictions."
 (setq-default c-basic-offset 8)
 (setq-default indent-tabs-mode t)
 
+;; Twitter !
+(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-scroll-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" ""))))))
+(setq twittering-initial-timeline-spec-string
+      '(":home"
+        ":replies"
+        ":mentions"
+        ":direct_messages"))
+
+
 ;; -> END <-
 (custom-set-variables
  ;; custom-set-variables was added by Custom.