;;;; VISUEL ;;;;
(set-background-color "black")
(set-foreground-color "white")
(set-cursor-color "white")
(set-face-background 'region "gray28")
;; Coloration syntaxique :
(global-font-lock-mode t)
;; Mettre un maximum de couleurs
(setq font-lock-maximum-size t)
;; numéro de colonne :
(column-number-mode t)
(line-number-mode t)
(setq visible-bell 't)
;; surligner la région marquée :
(transient-mark-mode 1)
;; Afficher la 'parenthèse correspondante'
(require 'paren)
(show-paren-mode)
;; Menus etc...
(tool-bar-mode 0)
;(scroll-bar-mode 2)
;(menu-bar-mode 0)
(blink-cursor-mode 0)
;; eviter de laisser trainer des espaces
(setq-default show-trailing-whitespace t)
(setq-default show-leading-whitespace t)
(setq-default indicate-empty-lines t)
;; CALENDAR ;;
;; les semaines commencent le lundi:
(setq calendar-week-start-day 1)
;; dates au format MM/JJ/AA :
(setq european-calendar-style t)
;; les vacances chrétiennes :
(setq all-christian-calendar-holiday t)
;; 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 [f2] 'save-buffer)
(global-set-key [f3] 'find-file)
(global-set-key [f4] 'kill-this-buffer)
(global-set-key [f9] 'compile)
(global-set-key [(control z)] 'undo)
(global-set-key [(meta g)] 'goto-line)
;; Autorise la séléction à l'aide de la touche SHIFT
(custom-set-variables '(pc-selection-mode t nil (pc-select)))
;; completion automatique
(abbrev-mode t)
(global-set-key (quote [S-iso-lefttab]) (quote dabbrev-expand))
;; complétion qui ignore la casse :
(setq completion-ignore-case t)
;; Répondre 'y' plutôt que 'yes'.
(defalias 'yes-or-no-p 'y-or-n-p)
;; activer la roulette
(mouse-wheel-mode t )
;; Langue par défaut et caractères accentués
(setq current-language-environment "French")
;; Pour avoir l'heure dans la barre d'etat, format 24 heures
(display-time)
(setq display-time-24hr-format t)
;; Inhiber l'affichage du message d'accueil
(setq inhibit-startup-message t)
;; Laisser le curseur en place lors d'un défilement par pages.
;; Par défaut, Emacs place le curseur en début ou fin d'écran
;; selon le sens du défilement.
(setq scroll-preserve-screen-position t)
;; se rappeler de la position dans le fichier entre les sessions
(when (require 'saveplace)
(setq-default save-place t))
;; En rendant nulle la variable ci-dessous, l'insertion d'un texte par
;; « copier-coller » à la souris se fait au niveau du point cliqué et
;; non à la position du curseur texte.
(setq mouse-yank-at-point 1)
;; rechercher et matcher sans casse :)
(setq case-fold-search t)
;; mettre en surligné la zone en cours de selection.
;; Souvenez-vous de C-<espace> et tout ça ...
(transient-mark-mode t)
;; petite fenetre de compil, pas tout l'ecran, merci
(setq compilation-window-height 10)
(set-terminal-coding-system 'utf-8)
(set-keyboard-coding-system 'utf-8)
(set-language-environment 'utf-8)
;; PHP ;;
;; Ajoute un mode pour éditer du php
;; http://www.ontosys.com/reports/PHP.html
(autoload 'php-mode "php-mode" "PHP editing mode" t)
(add-to-list 'auto-mode-alist '("\\.php\\'" . php-mode))
(add-to-list 'auto-mode-alist '("\\.php3\\'" . php-mode))
(add-to-list 'auto-mode-alist '("\\.php4\\'" . php-mode))