emacs/emacs.el: activation et configuration d'uniquify

[dotfiles.git] / emacs / emacs.el

diff --git a/emacs/emacs.el b/emacs/emacs.el
index 07c0cc4..b5e7575 100644 (file)
--- a/emacs/emacs.el
+++ b/emacs/emacs.el
@@ -1,6 +1,6 @@
 ;; -*- emacs-lisp -*-
 
-;; Author: Olivier Tetard <toutoune25@free.fr>
+;; Author: Olivier Tetard <olivier.tetard@miskin.fr>
 ;; URL : http://www.miskin.be/
 
 ;; This file is free software; you can redistribute it and/or modify it
@@ -27,34 +27,28 @@
 ;; `----
 
 (push (expand-file-name "~/.elisp") load-path)
-(push (expand-file-name "~/.elisp/bbdb/lisp") load-path)
-(push (expand-file-name "~/.elisp/erc") load-path)
 
 ;; Mozmail is available in XEmacs CVS :
 ;; http://cvs.xemacs.org/viewcvs.cgi/XEmacs/packages/xemacs-packages/net-utils/mozmail.el
-(require 'mozmail)
-(require 'tt25-passwords)
-(require 'tt25-muse)
-(require 'tt25-erc)
+(load "mozmail" t)
+(load "tt25-passwords" t)
+;; (require 'tt25-muse)
+(load "tt25-erc" t)
 (require 'color-theme)
-(require 'erc)                          ; Installé dans ~/.elisp/erc/
 (require 'ido)
+(require 'uniquify)
+(require 'themes)
 
-;; Pour Wikipedia
-(require 'wikipedia-mode)
-(autoload 'longlines-mode "longlines.el"
-     "Minor mode for editing long lines." t)
-(add-to-list 'auto-mode-alist '("mozex.\\.*" . wikipedia-mode))
 
 ;; ,----
 ;; | Couleurs et apparence
 ;; `----
 
-(if window-system
-    (color-theme-resolve)
-  (color-theme-dark-laptop))
+;(if window-system)
+    (color-theme-tango)
+;;  (color-theme-dark-laptop))
 
-(set-face-background 'default "black")
+;old: (set-face-background 'default "black")
 
 (if window-system
     (progn 
@@ -62,11 +56,15 @@
       (tooltip-mode nil)
       (scroll-bar-mode t)))
 
+;; font
+(if (>= emacs-major-version 23)
+  (set-frame-font "DejaVu Sans Mono-10"))
+
 ;; ,----
 ;; | Comportement
 ;; `----
 
-(gnuserv-start)                         ; Utilisation de gnuserv
+(server-start)                          ; Multi-tty powa !
 (ido-mode t)                            ; Utilisation du mode ido
 (setq auto-save-interval 1200)          ; Autosave
 (setq scroll-step 2)                    ; On se decale de 2 lignes quand on change de page
@@ -77,6 +75,12 @@
 (display-time)                         ; On affiche l'heure dans la barre
 (setq visible-bell t)                  ; On desactive les beeps
 
+;; Configuration d'uniquify
+(setq uniquify-buffer-name-style 'reverse)
+(setq uniquify-separator "|")
+(setq uniquify-after-kill-buffer-p t)
+(setq uniquify-ignore-buffers-re "^\\*")
+
 ;; Quand vous recevez un fichier .txt d'une machine dos/windows il est
 ;; très énervant de voir les ^M a chaque fin de ligne, utiliser M-x
 ;; dos-unix pour vous en débarrasser. (J. Danjou)
@@ -86,6 +90,8 @@
   (while (search-forward "\r" nil t) (replace-match "")))
 
 ;; Complétion
+;; (abbrev-mode t)
+;; (read-abbrev-file "~/.abbrev_defs")
 (setq save-abbrevs t)
 (global-set-key (quote [S-tab]) (quote dabbrev-expand))
 
@@ -154,7 +160,7 @@
 
 ;; Configuration de debian-changelog
 (setq debian-changelog-full-name "Olivier Tétard")
-(setq debian-changelog-mailing-address "toutoune25@free.fr")
+(setq debian-changelog-mailing-address "olivier.tetard@miskin.fr")
 
 (setq safe-local-variable-values 
       (quote ((TeX-PDF-mode . PDF))))
@@ -178,7 +184,10 @@ The function is not passed any arguments. The function honours restrictions."
   ;; If you edit it by hand, you could mess it up, so be careful.
   ;; Your init file should contain only one such instance.
   ;; If there is more than one, they won't work right.
+ '(TeX-output-view-style (quote (("^dvi$" ("^landscape$" "^pstricks$\\|^pst-\\|^psfrag$") "%(o?)dvips -t landscape %d -o && gv %f") ("^dvi$" "^pstricks$\\|^pst-\\|^psfrag$" "%(o?)dvips %d -o && gv %f") ("^dvi$" ("^\\(?:a4\\(?:dutch\\|paper\\|wide\\)\\|sem-a4\\)$" "^landscape$") "%(o?)xdvi %dS -paper a4r -s 0 %d") ("^dvi$" "^\\(?:a4\\(?:dutch\\|paper\\|wide\\)\\|sem-a4\\)$" "%(o?)xdvi %dS -paper a4 %d") ("^dvi$" ("^\\(?:a5\\(?:comb\\|paper\\)\\)$" "^landscape$") "%(o?)xdvi %dS -paper a5r -s 0 %d") ("^dvi$" "^\\(?:a5\\(?:comb\\|paper\\)\\)$" "%(o?)xdvi %dS -paper a5 %d") ("^dvi$" "^b5paper$" "%(o?)xdvi %dS -paper b5 %d") ("^dvi$" "^letterpaper$" "%(o?)xdvi %dS -paper us %d") ("^dvi$" "^legalpaper$" "%(o?)xdvi %dS -paper legal %d") ("^dvi$" "^executivepaper$" "%(o?)xdvi %dS -paper 7.25x10.5in %d") ("^dvi$" "." "%(o?)xdvi %dS %d") ("^pdf$" "." "evince %o %(outpage)") ("^html?$" "." "netscape %o"))))
+ '(canlock-password "a29a3189d5be23f38adc9d2627e77c898e00cde1")
  '(display-time-24hr-format t)
+ '(inhibit-startup-screen t)
  '(mail-yank-prefix "> ")
  '(muse-file-extension "muse")
  '(muse-html-charset-default "utf-8")
@@ -186,12 +195,11 @@ The function is not passed any arguments. The function honours restrictions."
  '(muse-html-meta-content-encoding (quote utf-8))
  '(muse-html-style-sheet "<link rel=\"stylesheet\" type=\"text/css\" charset=\"utf-8\" media=\"all\" href=\"/style.css\" />")
  '(muse-mode-auto-p nil)
- '(muse-mode-hook (quote (footnote-mode muse-wiki-update-custom-values)))
  '(muse-publish-desc-transforms (quote (muse-wiki-publish-pretty-title muse-wiki-publish-pretty-interwiki muse-publish-escape-specials-in-string)))
  '(muse-wiki-publish-small-title-words (quote ("the" "and" "at" "on" "of" "for" "in" "an" "a" "page" "anime")))
  '(muse-xhtml-footer "~/documents/wiki/common/footer.html")
  '(muse-xhtml-header "~/documents/wiki/common/header.html")
- '(safe-local-variable-values (quote ((TeX-PDF-mode . PDF)))))
+ '(safe-local-variable-values (quote ((TeX-PDF-mode . "PDF") (TeX-PDF-mode . PDF)))))
 (custom-set-faces
   ;; custom-set-faces was added by Custom.
   ;; If you edit it by hand, you could mess it up, so be careful.