emacs file

.emacs

(custom-set-variables
 ;; custom-set-variables was added by Custom.
 ;; 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-command-list
	(quote
	 (("TeX" "%(PDF)%(tex) %S%(PDFout) \"\\input %t\"" TeX-run-TeX nil
		(plain-tex-mode texinfo-mode ams-tex-mode)
		:help "Run plain TeX")
	  ("PDFLaTeX" "pdflatex %(mode) \"\\input{%t}\"" TeX-run-TeX nil
		(latex-mode doctex-mode)
		:help "Run pdflatex")
	  ("LaTeX" "%l %(mode) \"\\input{%t}\"" TeX-run-TeX nil
		(latex-mode doctex-mode)
		:help "Run LaTeX")
	  ("Makeinfo" "makeinfo %t" TeX-run-compile nil
		(texinfo-mode)
		:help "Run Makeinfo with Info output")
	  ("Makeinfo HTML" "makeinfo --html %t" TeX-run-compile nil
		(texinfo-mode)
		:help "Run Makeinfo with HTML output")
	  ("AmSTeX" "%(PDF)amstex %S%(PDFout) \"%(mode)\\input %t\"" TeX-run-TeX nil
		(ams-tex-mode)
		:help "Run AMSTeX")
	  ("ConTeXt" "texexec --once --texutil %(execopts)%t" TeX-run-TeX nil
		(context-mode)
		:help "Run ConTeXt once")
	  ("ConTeXt Full" "texexec %(execopts)%t" TeX-run-TeX nil
		(context-mode)
		:help "Run ConTeXt until completion")
	  ("BibTeX" "bibtex %s" TeX-run-BibTeX nil t :help "Run BibTeX")
	  ("ViewPDF" "kpdf" TeX-run-discard nil t :help "Run KDE's PDFviewer")
	  ("View" "%V" TeX-run-discard t t :help "Run Viewer")
	  ("Print" "%p" TeX-run-command t t :help "Print the file")
	  ("Queue" "%q" TeX-run-background nil t :help "View the printer queue" :visible TeX-queue-command)
	  ("File" "%(o?)dvips %d -o %f " TeX-run-command t t :help "Generate PostScript file")
	  ("Index" "makeindex %s" TeX-run-command nil t :help "Create index file")
	  ("Check" "lacheck %s" TeX-run-compile nil
		(latex-mode)
		:help "Check LaTeX file for correctness")
	  ("Spell" "(TeX-ispell-document \"\")" TeX-run-function nil t :help "Spell-check the document")
	  ("Clean" "TeX-clean" TeX-run-function nil t :help "Delete generated intermediate files")
	  ("Clean All" "(TeX-clean t)" TeX-run-function nil t :help "Delete generated intermediate and output files")
	  ("Other" "" TeX-run-command t t :help "Run an arbitrary command"))))
 '(case-fold-search t)
 '(column-number-mode t)
 '(current-language-environment "Latin-9")
 '(custom-safe-themes
	(quote
	 ("1297a022df4228b81bc0436230f211bad168a117282c20ddcba2db8c6a200743" "31a01668c84d03862a970c471edbd377b2430868eccf5e8a9aec6831f1a0908d" default)))
 '(default-input-method "latin-9-prefix")
 '(delete-selection-mode t nil (delsel))
 '(global-font-lock-mode t nil (font-lock))
 '(inhibit-startup-screen t)
 '(iso-accents-mode t)
 '(latex-run-command "latex")
 '(mouse-wheel-mode t nil (mwheel))
 '(show-paren-mode t)
 '(standard-indent 4)
 '(tab-width 3)
 '(tex-dvi-view-command "kdvi")
 '(tex-start-options-string "")
 '(transient-mark-mode t))
(custom-set-faces
 ;; custom-set-faces was added by Custom.
 ;; 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.
 )

;; pour solarized
(add-to-list 'custom-theme-load-path "~/.emacs.d/themes")
(load-theme 'solarized-light t)

(load "auctex.el" nil t t)
(when (file-exists-p "/usr/share/emacs/site-lisp/site-gentoo.el")
  (load "/usr/share/emacs/site-lisp/site-gentoo"))

;; Pour xdvik
;; (add-to-list 'load-path "/usr/share/emacs/site-lisp/tex-utils")
;; (require 'xdvi-search)

;; For ipython
;;(require 'ipython)

;; Custom keybinding
(define-key ctl-x-map "l" 'goto-line)
(define-key esc-map ":" 'uncomment-region)
;; ~ à (define-key global-map "\C-xl" 'goto-line) ou (global-set-key "\C-xl" 'goto-line)

(font-lock-mode)
(add-hook 'find-file-hooks 'turn-on-font-lock)
(setq global-font-lock-mode t)
(setq font-lock-maximum-decoration t)
(setq font-lock-use-default-fonts nil)
(setq font-lock-use-default-colors nil)

(require 'font-lock)

;; (set-face-foreground 'font-lock-string-face "ForestGreen")
;; (set-face-foreground 'font-lock-comment-face "Salmon")
;; (set-face-foreground 'font-lock-function-name-face "blue")
;; (set-face-foreground 'font-lock-keyword-face "orange")
;; (set-face-foreground 'font-lock-type-face "DarkOrchid")
;; (set-face-foreground 'font-lock-constant-face "Red")
;; (set-face-foreground 'font-lock-variable-name-face "CornflowerBlue")

(set-input-mode (car (current-input-mode))
                     (nth 1 (current-input-mode))
                     0)
;; (standard-display-european t)  -- seems deprecated in emacs-22

;; (setq auto-mode-alist (append '(("\\.plt$" . gnuplot-mode))
;;                               auto-mode-Alist))
;; ---------------------------------------------------------------------------
;; Bind major editing modes to certain file extensions 
;;----------------------------------------------------------------------------
(setq auto-mode-alist
      '(("\\.[Cc][Oo][Mm]\\'" . text-mode)
		  ("\\.plt$" . gnuplot-mode)
		  ("\\.py$" . python-mode)
        ("\\.bat\\'" . bat-generic-mode)
        ("\\.inf\\'" . inf-generic-mode)
        ("\\.rc\\'" . rc-generic-mode)
        ("\\.reg\\'" . reg-generic-mode)
        ("\\.cob\\'" . cobol-mode)
        ("\\.cbl\\'" . cobol-mode)
        ("\\.te?xt\\'" . text-mode)
        ("\\.c\\'" . c-mode)
        ("\\.h\\'" . c++-mode)
        ("\\.tex$" . LaTeX-mode)
        ("\\.sty$" . LaTeX-mode)
        ("\\.bbl$" . LaTeX-mode)
        ("\\.bib$" . bibtex-mode)
        ("\\.el\\'" . emacs-lisp-mode)
        ("\\.scm\\'" . scheme-mode)
        ("\\.l\\'" . lisp-mode)
        ("\\.lisp\\'" . lisp-mode)
        ("\\.f\\'" . fortran-mode)
        ("\\.F\\'" . fortran-mode)
        ("\\.for\\'" . fortran-mode)
        ("\\.p\\'" . pascal-mode)
        ("\\.pas\\'" . pascal-mode)
        ("\\.ad[abs]\\'" . ada-mode)
        ("\\.\\([pP][Llm]\\|al\\)\\'" . perl-mode)
        ("\\.cgi$"  . perl-mode)
        ("\\.s?html?\\'" . sgml-mode)
        ("\\.idl\\'" . c++-mode)
        ("\\.cc\\'" . c++-mode)
        ("\\.hh\\'" . c++-mode)
        ("\\.hpp\\'" . c++-mode)
        ("\\.C\\'" . c++-mode)
        ("\\.H\\'" . c++-mode)
        ("\\.cpp\\'" . c++-mode)
        ("\\.[cC][xX][xX]\\'" . c++-mode)
        ("\\.hxx\\'" . c++-mode)
        ("\\.c\\+\\+\\'" . c++-mode)
        ("\\.h\\+\\+\\'" . c++-mode)
        ("\\.m\\'" . octave-mode)
        ("\\.java\\'" . java-mode)
        ("\\.ma?k\\'" . makefile-mode)
        ("\\(M\\|m\\|GNUm\\)akefile\\(\\.in\\)?" . makefile-mode)
        ("\\.am\\'" . makefile-mode)
        ("\\.mms\\'" . makefile-mode)
        ("\\.texinfo\\'" . texinfo-mode)
        ("\\.te?xi\\'" . texinfo-mode)
        ("\\.s\\'" . asm-mode)
        ("\\.S\\'" . asm-mode)
        ("\\.asm\\'" . asm-mode)
        ("ChangeLog\\'" . change-log-mode)
        ("change\\.log\\'" . change-log-mode)
        ("changelo\\'" . change-log-mode)
        ("ChangeLog\\.[0-9]+\\'" . change-log-mode)
        ("changelog\\'" . change-log-mode)
        ("changelog\\.[0-9]+\\'" . change-log-mode)
        ("\\$CHANGE_LOG\\$\\.TXT" . change-log-mode)
        ("\\.scm\\.[0-9]*\\'" . scheme-mode)
        ("\\.[ck]?sh\\'\\|\\.shar\\'\\|/\\.z?profile\\'" . sh-mode)
        ("\\(/\\|\\`\\)\\.\\(bash_profile\\|z?login\\|bash_login\\|z?logout\\)\\'" . sh-mode)
        ("\\(/\\|\\`\\)\\.\\(bash_logout\\|[kz]shrc\\|bashrc\\|t?cshrc\\|esrc\\)\\'" . sh-mode)
        ("\\(/\\|\\`\\)\\.\\([kz]shenv\\|xinitrc\\|startxrc\\|xsession\\)\\'" . sh-mode)
        ("\\.mm\\'" . nroff-mode)
        ("\\.me\\'" . nroff-mode)
        ("\\.ms\\'" . nroff-mode)
        ("\\.man\\'" . nroff-mode)
        ("\\.[12345678]\\'" . nroff-mode)
        ("\\.TeX\\'" . TeX-mode)
        ("\\.sty\\'" . LaTeX-mode)
        ("\\.cls\\'" . LaTeX-mode)
        ("\\.clo\\'" . LaTeX-mode)
        ("\\.bbl\\'" . LaTeX-mode)
        ("\\.bib\\'" . bibtex-mode)
        ("\\.m4\\'" . m4-mode)
        ("\\.mc\\'" . m4-mode)
        ("\\.mf\\'" . metafont-mode)
        ("\\.mp\\'" . metapost-mode)
        ("\\.vhdl?\\'" . vhdl-mode)
        ("\\.article\\'" . text-mode)
        ("\\.letter\\'" . text-mode)
        ("\\.tcl\\'" . tcl-mode)
        ("\\.exp\\'" . tcl-mode)
        ("\\.itcl\\'" . tcl-mode)
        ("\\.itk\\'" . tcl-mode)
        ("\\.icn\\'" . icon-mode)
        ("\\.sim\\'" . simula-mode)
        ("\\.mss\\'" . scribe-mode)
        ("\\.f90\\'" . f90-mode)
        ("\\.lsp\\'" . lisp-mode)
        ("\\.awk\\'" . awk-mode)
        ("\\.prolog\\'" . prolog-mode)
        ("\\.tar\\'" . tar-mode)
        ("\\.\\(arc\\|zip\\|lzh\\|zoo\\|jar\\)\\'" . archive-mode)
        ("\\.\\(ARC\\|ZIP\\|LZH\\|ZOO\\|JAR\\)\\'" . archive-mode)
        ("\\`/tmp/Re" . text-mode)
        ("/Message[0-9]*\\'" . text-mode)
        ("/drafts/[0-9]+\\'" . mh-letter-mode)
        ("\\.zone\\'" . zone-mode)
        ("\\`/tmp/fol/" . text-mode)
        ("\\.y\\'" . c-mode)
        ("\\.lex\\'" . c-mode)
        ("\\.oak\\'" . scheme-mode)
        ("\\.sgml?\\'" . sgml-mode)
        ("\\.xml\\'" . sgml-mode)
        ("\\.dtd\\'" . sgml-mode)
        ("\\.ds\\(ss\\)?l\\'" . dsssl-mode)
        ("\\.idl\\'" . c++-mode)
        ("[]>:/\\]\\..*emacs\\'" . emacs-lisp-mode)
        ("\\`\\..*emacs\\'" . emacs-lisp-mode)
        ("[:/]_emacs\\'" . emacs-lisp-mode)
		  ("\\.org\\'" . org-mode)
		  ("\\.R\\'" . R-mode)
        ("\\.ml\\'" . lisp-mode)))

;; pour afficher les espaces en rouges
;; (mapc (lambda (hook)
;;       (add-hook hook (lambda ()
;; 		  (setq show-trailing-whitespace t))))
;;       '(text-mode-hook
;; 		ada-mode-hook
;;       c-mode-hook
;;       emacs-lisp-mode-hook
;;       java-mode-hook
;;       python-mode-hook
;;       shell-script-mode-hook))