Ivaldi -Configuration Emacs-

Description

Comme il m'arrive d'utiliser des versions différentes d'Emacs (XEmacs, Emacs21 ou Emacs22) pour faire des testes, mon .emacs est fait de telle sorte qu'il appelle des fichiers de configurations différents suivant la version qui est utilisée.
En fait ce sont les mêmes noms de fichiers mais les répertoires (définis ultérieurement dans la variable load-path) changes.

;;: -*- emacs-lisp -*-
;; .emacs
;; Author: Philippe Ivaldi

;; Définition d'une variable pour savoir si c'es XEmacs qui est utilisé
(defvar running-xemacs-p (string-match "XEmacs\\|Lucid" emacs-version))

;; Suivant la version d'(X)Emacs utilisée on appelle les mêmes fichiers de
;; configurations mais depuis des répertoires différents.
(if running-xemacs-p
    (progn
      ;; XEmacs backwards compatibility file
      (setq user-init-file
            (expand-file-name "init.el"
                              (expand-file-name ".xemacs" "~")))
      (setq custom-file
            (expand-file-name "custom.el"
                              (expand-file-name ".xemacs" "~"))))
  (progn
    ;; Emacs
    (if (> emacs-major-version 21)
        (setq user-init-file (expand-file-name "~/emacs.d/init.el")) ;;Emacs > 21
      (setq user-init-file (expand-file-name "~/emacs-21.d/init.el"))) ;;Emacs <= 21
    ))

(load-file user-init-file)

Pour XEmacs le fichier ~/.xemacs/init.el est chargé;
pour Emacs 21 c'est ~/.emacs-21.d/init.el qui est chargé;
et enfin pour Emacs 22 c'est ~/.emacs.d/init.el.

Voici le fichier ~/.emacs.d/init.el que le .emacs charge pour Emacs 23 (version que j'utilise habituellement)

;;: -*- emacs-lisp -*-
;; init.el
;; Author: Philippe Ivaldi
;; Last modified: Sun Jun  1 00:22:50 CEST 2008

(eval-when-compile
  (require 'cl))

(when (< emacs-major-version 22)
  (setq inhibit-startup-message t)
  (error "Configuration not supported on Emacs < 22."))

;; Set the debug option to enable a backtrace when a
;; problem occurs.
;; (setq debug-on-error t)

;; *=======================================================*
;; *.................VARIABLES À MODIFIER..................*

(defvar user-set-coding-system-latin t
  "* Remplacer t par nil pour ne pas utiliser
latin-1 et latin-9 comme encodage par défaut.")

(defvar user-pdf-view-command "/usr/bin/xpdf"
  "* Commande utilisée pour visualiser les .pdf.")

(defvar user-ps-view-command "/usr/bin/gv"
  "* Commande utilisée pour visualiser les .ps/eps.")

(defvar user-path '("~/bin" "/usr/local/asymptote/bin"
                    "/usr/local/texlive/2007/bin/i386-linux"
                    "/usr/local/scilab-4.1/bin")
  "* Liste de répertoires où sont mes exécutables.
Les commandes qui lancent des sous-processus et la commande `compile'
parcourront aussi ces chemins pour trouver les exécutables.")

;; ---------------
;; * MY IDENTITY *
(setq
 user-full-name "Philippe Ivaldi"
 user-mail-address "moi@tele2.fr"
 user-obfuscated-mail "<Xreplace@tele2.fr> Xreplace = moi"
 user-address "Philippe Ivaldi\nLes Castaniès\n11250 Preixan"
 user-phone "??-68-26-95-81")

;; -------------------------
;; * Les fontes par défaut *
;; Utiliser xfontsel sous Linux pour voir celles qui sont disponibles.
;; pi-toggle-font permet de basculer entre les deux (voir pi-configuration.el)
(defvar pi-big-font "-*-terminus-bold-*-*-*-20-*-*-*-*-*-*-*")
(defvar pi-small-font "-*-terminus-*-*-*-*-*-160-*-*-*-*-*-*")
(defvar pi-current-font-size "big")
(when window-system
  ;; Seulement en mode graphique (apparence différente sous X ou en console)
  (when (x-list-fonts pi-big-font) ;; Vérification d'existence.
    (set-default-font pi-big-font))
  ;; Pour utiliser M-x customize-face sur la face `default' supprimer cette commande:
  (set-face-attribute 'default nil
                      :background "DarkSlateGray"
                      :foreground "Wheat"
                      :underline nil
                      :slant 'normal
                      ;;                       :weight 'bold
                      ;;                       :height 200
                      ;;                       :width 'normal
                      ;;                       :family "xos4-terminus"
                      )
  (set-face-attribute  'menu nil
                       :background "DarkSlateGray"
                       :foreground "grey"
                       :underline nil
                       :slant 'normal
                       ;;                        :weight 'bold
                       ;;                        :height 200
                       ;;                        :width 'normal
                       ;;                        :family "xos4-terminus"
                       ))


;; *.............FIN DES VARIABLES À MODIFIER..............*
;; *=======================================================*

;; *=======================================================*
;; *................Gestion des répertoires................*
;; *=======================================================*
(defvar user-init-dir (file-name-directory user-init-file)
  "* Le répertoire racine de tous mes fichiers concernant Emacs.")

(defun cuid (FILENAME)
  "* Tous les paquets lisp sont définis relativement
au répertoire d'installation `user-init-dir'.
Utiliser cette fonction pour définir un répertoire/fichier relatif.
Attention `user-init-dir' se termine par un /"
  (concat user-init-dir FILENAME))

(setq load-path (append load-path (list (cuid "etc")
                                        (cuid "site-lisp")
                                        )))
(dolist (adp user-path)
  (setenv "PATH" (concat (getenv "PATH") path-separator
                         (expand-file-name adp)))
  (push (expand-file-name adp) exec-path))

;; *=======================================================*
;; *.............chargement des configurations.............*
;; *=======================================================*

;; --------------------------
;; * Configuration de bases *
(load "pi-configuration")

;; -----------------------------------
;; * Configuration de base pour Gnus *
(when (string= (user-real-login-name) "pi")
  (load "pi-gnus")) ;; n'est chargé que chez moi :-)

;; --------------------------
;; * Fonctions personnelles *
(load "pi-functions")

;; --------------
;; * Organiseur *
;; (load "pi-org")

;; ---------
;; * LaTeX *
(load "pi-tex")

;; ------------
;; * Metapost *
(load "pi-meta")

;; ------------------------------------------------
;; * Je ne veux pas que Emacs modifie mon .emacs! *
(setq custom-file (cuid "etc/pi-customize.el"))
(load custom-file)

;; (setq minibuffer-max-depth nil)
(put 'downcase-region 'disabled nil)

(message "init.el(c) is loaded")

Le principe est le suivant:

Dans un premier temps, on définit des variables qui seront utilisées par certaines macros personnelles, les fontes par défaut ainsi que la variable user-path qui va permettre de mettre à jour la variable d'environnement PATH, interne à Emacs;

Ensuite, on définit la variable user-init-dir qui contient le nom du répertoire où se trouve le init.el actuellement utilisé.
Tous mes fichiers de configuration sont alors définis relativement à cette valeur via la fonction cuid; ce qui permet une séparation totale de la configuration suivant la version de "Emacs" utilisée.
L'autre avantage est que l'on peut tester ma configuration sans risquer de modifier ses propres fichiers de configuration...
On ajoute ensuite à la variable load-path les répertoires (toujours relatifs à la valeur de user-init-dir) où sont placés les modules installés manuellement.

Pour terminer, on charge la configuration à proprement dit.
j'ai choisi de découpé cette configuration en plusieurs fichiers pour facilité le "débogage" et l'édition.
pi-configuration.el contient la plus grande partie de la configuration, les autres (pi-gnus, pi-functions, pi-org, pi-tex et pi-meta) sont spécifiques à un mode particulier.

Voici l'arborescence du répertoire ~/emacs.d/ que j'utilise:

|-- etc
|   |-- pi-customize.el
|   |-- gnus
|   |  `-- gnus.el
|   |-- pi-configuration.el
|   |-- pi-gnus.el
|   |-- pi-meta.el
|   |-- pi-org.el
|   `-- pi-tex.el
|-- init.el
|makefile
|site-lisp
|   |asy-keywords.el
|   |asy-mode.el
|   |bm.el
|   |boxquote.el
|   |col-highlight.el
|   |column-marker.el
|   |filladapt.el
|   |gnus-alias.el
|   |hexrgb.el
|   |htmlize-view.el
|   |htmlize.el
|   |icomplete+.el
|   |kill-ring-rotate.el
|   |latex-tempo.el
|   |meta-mode.el
|   |mic-paren.el
|   |no-word.el
|   |pi-functions.el
|   |pi-scroll-lock.el
|   |pi-template.el
|   |pi-tempo-abbrev-asy.el
|   |pi-tempo-abbrev-latex.el
|   |pi-tempo-abbrev-lisp.el
|   |pi-tempo-abbrev-meta.el
|   |pi-tempo-abbrev.el
|   |psvn.el
|   |redo.el
|   |scilab.el
|   |scissors.el
|   |scroll-in-place.el
|   |smart-compile+.el
|   |table.el
|   |two-mode-mode.el
|   `xml.el
`template
    |default.cls
    |default.el
    |default.html
    |default.sty
    |default.tex
    |default.xhtml
    |gpl.licence
    |ldl.licence
    |lettre.tex
    `simple.tex

Tester ma configuration

Je ne propose ici que ma configuration pour Emacs 22 sous Linux.

Commencer par faire une sauvegarde de tous vos fichiers de configuration pour Emacs;

Remplacer le code de votre .emacs par celui-ci:

(defvar running-xemacs-p (string-match "XEmacs\\|Lucid" emacs-version))
(setq user-init-file (expand-file-name "~/emacs.d/init.el"))
(load-file user-init-file)

Télécharger ICI dans votre home l'intégralité de l'arborescence de ~/emacs.d/;

Après avoir vérifié qu'il n'existe pas de répertoire emacs.d dans votre home, décompresser l'archive avec la commande
tar zxvf emacs.d.tgz

Dans le fichier ~/emacs.d/init.el il y a une section VARIABLES À MODIFIER dans laquelle quelques variables doivent être ajustées suivant la configuration de votre système; tout est expliqué dans le fichier.

Lancer Emacs, ça devrait rouler...

Il me faudrait détailler ici les diverses fonctionnalités que ma configuration apporte mais je n'en ai pas le temps... Je vous invite donc à parcourir dans un premier temps le fichier pi-configuration, puis les fichiers pi-functions, pi-tex et pi-meta qui sont, dans l'ensemble, assez bien commentés.

Last modified: Fri May 2 00:26:55 CEST 2008