;;;; VISUEL ;;;;
;; Set the starting appearance
(setq default-frame-alist
'(
(font . "-xos4-terminus-medium-r-normal--16-160-72-72-c-80-iso8859-15")
(cursor-color . "White")
(cursor-type . box)
(foreground-color . "White")
(background-color . "Black")
(vertical-scroll-bars . right)))
;;(set-background-color "black")
;;(set-foreground-color "white")
;;(set-cursor-color "white")
;; Couleur de la selection
(set-face-background 'region "gray35")
;; 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)
;; cloche system
(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)
;; Affichage des espaces superflus
;; http://www.emacswiki.org/cgi-bin/wiki/show-wspace.el
;;(require 'show-wspace)
;;(add-hook 'font-lock-mode-hook 'highlight-tabs)
;;(add-hook 'font-lock-mode-hook 'highlight-hard-spaces)
;;(add-hook 'font-lock-mode-hook 'highlight-trailing-whitespace)
;; 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 avec shift+tab
(abbrev-mode t)
(global-set-key (quote [S-iso-lefttab]) (quote dabbrev-expand))
;; complétion qui ignore la casse :
(setq completion-ignore-case t)
;; F9 <=> remplacement interactif simple.
;; Shift-F9 <=> remplacement interactif integrant des expressions regulieres
(global-set-key [f9] 'query-replace)
(global-set-key [(shift f9)] 'query-replace-regexp)
;; 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 the time
(message (format-time-string "Start time: %Y-%02m-%02d %02H:%02M:%02S %Z"))
;(setq display-time-24hr-format 't)
(setq display-time-day-and-date t
display-time-24hr-format t)
(display-time)
;; 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)
;; encodage utf8
(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))
(setq c-mode-hook
'(lambda ()
(font-lock-mode)))
;; Demander s'il faut ajouter un saut de ligne final lorsqu'il est
;; absent
(setq require-final-newline 'query)
;; Lorsque le curseur atteint la fin de la fenêtre, le contenu se
;; déplace d'une seule ligne et non d'une demi-fenêtre.
(setq scroll-step 1)
;; Conserver une seule ligne de contexte lors d'un déplacement d'une
;; page dans le contenu (appui sur « page up » ou « page down »)
(setq next-screen-context-lines 1)
(setq-default c-delete-trailing-spaces t)
; Mettre un titre aux fenêtres
(setq frame-title-format '(buffer-file-name "Emacs: %b" "Emacs: %b"))
; Mettre tous les fichiers de sauvegarde dans un seul répertoire
(setq backup-directory-alist
'(("." . "~/.emacs-backup-files/")))