(menu-bar-mode -1)                                                                                                                                                                                                                      
;; (tool-bar-mode -1)                                                                                                                                                                                                                   
;; (scroll-bar-mode -1)                                                                                                                                                                                                                 
(setq visible-bell t)                                                                                                                                                                                                                   
 
;; mettre en surligne la zone de selection
(transient-mark-mode t)                   
 
;; parenthese matching
(show-paren-mode 1)   
(setq-default hilight-paren-expression t)
 
;; joli fond
;;(set-background-color "Wheat" )
 
;; colorisation de la syntaxe
(global-font-lock-mode t)    
;;maximum de couleurs        
(setq font-lock-maximum-decoration t)
(windmove-default-keybindings 'meta) 
 
;; completion sur shift-tab
(global-set-key (quote [S-iso-lefttab]) (quote dabbrev-expand))
(global-set-key (quote [S-tab]) (quote dabbrev-expand))        
 
;; circuler entre les buffer par ctrl-tab
(global-set-key [(control tab)] `other-window)
 
;; redefinition de quelques touches
(global-set-key [delete] 'delete-char)
(global-set-key [home] 'beginning-of-line)
(global-set-key [end] 'end-of-line)       
(global-set-key [\s-tab] (lambda ()       
                           (interactive)  
                           (switch-to-buffer (other-buffer))))
(global-set-key [\M-\s] 'set-mark-command)                    
;;nom du buffer en cours dans la barre de titre               
(setq frame-title-format "%b - Emacs")                        
(setq icon-title-format "%b - Emacs")                         
 
;;backups/autosaves : pas d'autosaves (encombrant), et garder les backups dans un dossier à part
(setq auto-save-default nil)                                                                    
(defvar backup-dir "~/.emacsbackups/")                                                          
(setq backup-directory-alist (list (cons "." backup-dir)))                                      
 
;; untabify sur F10
(global-set-key [f10]  'untabify)
 
;; moi, j'aime bien avoir le undo en Ctrl-Z
(global-set-key [(control z)] `undo)       
 
;; F7 lance la compilation
(global-set-key [f7] `compile)
 
(global-set-key [f3] 'find-file)
(global-set-key [f4] '(lambda () (interactive) (kill-buffer (current-buffer))))
(global-set-key [(control b)] 'electric-buffer-list)
;; Gestion de la roulette de la souris avec plusieurs vitesses
;; control + scroll      : grande vitesse
;; shift + scroll        : petite vitesse
;; scroll seul           : vitesse normale
 
(defun up-slightly () (interactive) (scroll-up 5))
(defun down-slightly () (interactive) (scroll-down 5))
(global-set-key [mouse-4] 'down-slightly)
(global-set-key [mouse-5] 'up-slightly)
 
(defun up-one () (interactive) (scroll-up 1))
(defun down-one () (interactive) (scroll-down 1))
(global-set-key [S-mouse-4] 'down-one)
(global-set-key [S-mouse-5] 'up-one)
 
(defun up-a-lot () (interactive) (scroll-up))
(defun down-a-lot () (interactive) (scroll-down))
(global-set-key [C-mouse-4] 'down-a-lot)
(global-set-key [C-mouse-5] 'up-a-lot)
 
;; si je fait des scripts, je les met la :
(add-to-list 'load-path "~/emacs-lisp/" )
 
;; on arrete de rajouter des lignes avec bas en fin de buffer
(setq next-line-add-newlines nil)
 
;; on est en europe, config du charset par defaut proprement
(standard-display-8bit 128 255)
;;(standard-display-european 1)
 
;; affichage de l'heure (format 24h) :
(display-time)
(setq display-time-24hr-format t)
 
;; Affiche numero de ligne et colonne
(setq column-number-mode t)
(setq line-number-mode t)
 
;; petite fenetre de compil, pas tout l'ecran
(setq compilation-window-height 10)
(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.
 '(inhibit-startup-screen 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.
 )
 
;; Des espaces pour indenter.
(setq indent-tabs-mode nil)
 
(split-window-horizontally)
 
(put 'upcase-region 'disabled nil)