From: Olivier Tétard <olivier.tetard@miskin.fr>
Date: Mon, 26 Sep 2011 18:57:37 +0000 (+0200)
Subject: .emacs.el: some cleanup
X-Git-Url: http://olivier.miskin.fr/git/?a=commitdiff_plain;h=641996fbe9560b8289e7d46751fb84a8293d0379;p=dotfiles2.git

.emacs.el: some cleanup
---

diff --git a/emacs.el b/emacs.el
index fee867e..fc756b9 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,10 +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."
@@ -153,17 +122,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")))