et mon .emacs.el
[code];;;;;;;;;;;;;
;; Général ;;
;;;;;;;;;;;;;
;; Compile .emacs.el en .emacs.elc
(defun dotemacscheck! ()
“Si .emacs.el existe et est plus récent que .emacs.elc, recompile+le”
(cond
((file-newer-than-file-p “~/.emacs.el” “~/.emacs.elc”)
(let ((mode-line-format “*** Recompiling .emacs.el ***”))
(yow)
(sit-for 1)
(byte-compile-file “~/.emacs.el”)
(message “.emacs.elc recompiled — reloading…”)
)
(load “~/.emacs.elc” t t t)
)))
(dotemacscheck!)
;; La ligne courante en surbrillance
;(global-hl-line-mode 1)
;; Save space
(menu-bar-mode nil)
;; Désactive le message d’aide
(setq inhibit-startup-message t)
;;;;;;;;;;;;;;;
;; Interface ;;
;;;;;;;;;;;;;;;
;; Affiche le numéro de ligne et de colonne
(column-number-mode t)
(line-number-mode t)
;; Supprime la barre d’outils
(if (>= emacs-major-version 21)
(tool-bar-mode -1))
;; Affiche l’heure et la date au format 24h
(display-time)
;(setq display-time-24hr-format t)
(setq display-time-day-and-date t)
;; Afficher le nom du fichier dans la barre de titre de la fenêtre
(setq frame-title-format '(buffer-file-name “%b [%f]” “%b”))
;; Définition des couleurs générales
(set-background-color “Black”)
(set-foreground-color “White”)
(set-cursor-color “LightSkyBlue”)
(set-mouse-color “LightSkyBlue”)
(set-face-background 'region “blue”)
(load “hilit19”)
;(invert-face 'region)
(global-font-lock-mode t)
(setq font-lock-maximum-decoration t)
;;;;;;;;;;;;;;;
;; Commandes ;;
;;;;;;;;;;;;;;;
;; Autorise la séléction à l’aide de la touche SHIFT
(custom-set-variables '(pc-selection-mode t nil (pc-select)))
;; Afficher la ‘parenthèse correspondante’
(require 'paren)
(show-paren-mode)
;; Activer la coloration syntaxique
(global-font-lock-mode t)
;; Transformer le BEEP système en un flash écran
(setq visible-bell t)
;; Définition de raccourcis
(defun recompilation ()
(recompile)
(end-of-buffer-other-window 0)
)
(global-set-key [f5] 'recompile)
;(global-set-key M-m 'compile)
;; ============================
;; Mouse Settings
;; ============================
;; Mouse button one drags the scroll bar
(global-set-key [vertical-scroll-bar down-mouse-1] 'scroll-bar-drag)
;; Activation de la molette de la souris
(custom-set-variables '(mouse-wheel-mode t nil (mwheel)))
;; setup scroll mouse settings
(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)
;; ========== Place Backup Files in Specific Directory ==========
;; Autoriser les backup
(setq make-backup-files t)
;; Permet la compatibilité avec les version sans valeur par défaut
(setq version-control t)
;; Sauve tout les fichiers de backup dans ce répertoir
(setq backup-directory-alist (quote ((".*" . “~/tmp/”))))
;; ========== Set the fill column ==========
;; Définis la taille des lignes
(setq-default fill-column 72)
;; retour à la ligne automatique
(auto-fill-mode t)
(add-hook 'text-mode-hook 'turn-on-auto-fill)
;; utf-8
(setq locale-coding-system 'utf-8)
(set-selection-coding-system 'utf-8)
(prefer-coding-system 'utf-8)
;; pas de ligne en plus à la fin du fichier
(setq next-line-add-newlines nil)
;; s’assure que le fichier contient une nouvelle ligne à la fin
(setq require-final-newline t)
;; style de dates européen
(setq european-calendar-style t)
;; Que delete face bien un delete
(global-set-key [delete] 'delete-char)
;; les mois et les jours en francais
(defvar calendar-day-name-array
[“dim” “lun” “mar” “mer” “jeu” “ven” “sam”])
(defvar calendar-month-name-array
[“janvier” “février” “mars” “avril” “mai” “juin”
“juillet” “août” “septembre” “octobre” “novembre” “décembre”])
;;(modify-face FACE FOREGROUND BACKGROUND STIPPLE BOLD-P ITALIC-P UNDERLINE-P &optional INVERSE-P FRAME)
;;; pour le preprocesseur
;(modify-face font-lock-builtin-face “DarkKhaki” nil nil t nil nil)
;;; commentaires
;(modify-face font-lock-comment-face “indianRed” nil nil t nil nil)
;;; constantes
;(modify-face font-lock-constant-face “violetRed” nil nil t nil nil)
;;; ???
;(modify-face font-lock-doc-face “yellow” nil nil nil nil nil)
;;; noms de fonctions
;(modify-face font-lock-function-name-face “darkorange” nil nil t nil nil)
;;; mots reserves
;(modify-face font-lock-keyword-face “MediumOrchid1” nil nil t nil nil)
;;; chaines de caracteres
;(modify-face font-lock-string-face “azure4” nil nil t t nil)
;;; types
;(modify-face font-lock-type-face “LightSeaGreen” nil nil t nil nil)
;; variables
;(modify-face font-lock-variable-name-face “DodgerBlue” nil nil t nil nil)
;; ???
;(modify-face font-lock-warning-face “red” nil nil t nil nil)
(put 'downcase-region 'disabled nil)
;(require 'color-theme)
(autoload 'ansi-color-for-comint-mode-on “ansi-color” nil t)
(add-hook 'shell-mode-hook 'ansi-color-for-comint-mode-on)
(add-hook 'comint-output-filter-functions
’comint-strip-ctrl-m)
(add-hook 'comint-output-filter-functions
’comint-watch-for-password-prompt)
; pour avoir la couleur quand je fais un ls
(ansi-color-for-comint-mode-on)[/code]
Alors pour emacs c’est pas tip top au niveau du surlignement mais j’ai la flemme de mis remettre.