;; Exemple de fichier de configuration pour Emacs (fichier .emacs)
;; Exemple de définition de fonction:
;; Cette fonction permet de dérouler l'autre fenêtre vers le
;; bas d'un certain nombre de lignes.
(defun scroll-other-window-down (n)
"Scroll next window downward ARG lines;
A near full screen is `next-screen-context-lines' less than a full screen.
When calling from a program, supply a number as argument or nil."
(interactive "P")
(scroll-other-window (if n
(- (prefix-numeric-value n))
'-)))
;; Cette fonction sera utilisable par un raccourci-clavier à condition
;; d'ajouter la ligne suivante (meta-control-w):
(define-key esc-map "\C-w" 'scroll-other-window-down)
;; Voilà comment changer la valeur par défaut de différentes variables:
(setq default-left-margin 1) ;; marge à gauche
(setq default-major-mode 'text-mode) ;; mode de text
(setq text-mode-hook 'turn-on-auto-fill) ;; retour à la ligne automatique
(setq mail-signature t) ;; insertion automatique du fichier
;; .signature en fin de mail
;; Voilà encore un appel de fonction fort utile puisqu'il permet
;; de rendre la région visible (écran couleur).
(transient-mark-mode 1)
;; Ces deux appels de fonction permettent d'avoir l'heure dans
;; la ligne d'information ainsi que le numéro de la ligne dans
;; laquelle se trouve le curseur.
(line-number-mode 't)
(display-time)
;; Pour utiliser les abréviations:
(read-abbrev-file "~/.abbrev_defs") ;; lit le fichier
(setq default-abbrev-mode t) ;; expend par défaut
;; Encore une petite fonction personnalisée: idem à rmail-summary mais
;; économisant de la place dans la fenêtre de mail.
(defun rmail-small-sum ()
"Same as rmail-summary but smaller window"
(interactive)
(rmail-summary) (shrink-window 5 ))
;; Voilà comment personnaliser les racourcis-clavier:
(global-set-key "\C-r" 'rmail) ;; C-r appelle le mode rmail
(global-set-key "\M-r" 'rmail-small-sum) ;; M-r affiche la liste des mail
;; NOTE: les équivalents précédemment définis pour C-r et M-r sont perdus.
;; Pour ceux qui ont la chance d'utiliser EMACS 19, voici des COULEURS !!!
;; Note: les identificateurs utilisés pour les couleurs dépendent du
;; système utilisé.
(cond (window-system
(setq hilit-mode-enable-list '(not text-mode)
hilit-background-mode 'light
hilit-inhibit-hooks nil
hilit-inhibit-rebinding nil)
(require 'hilit19)
))
(hilit-translate string 'cyan
keyword 'green
)
;; Les lignes qui suivent sont facultatives et peuvent nécessiter
;; des modifications (couleurs) sur votre machine.
(set-background-color "grey20")
(set-foreground-color "yellow")
(set-cursor-color "green")
(set-face-background 'region "grey1" )
;; Pour avoir les couleurs actualisées avec C-l
(setq hilit-auto-rehighlight 't)
;; Pour fonctionner en ISO Latin 1 (accents)
;; Affichage des caractères 8 bits.
(standard-display-european t)
;; Les nouveaux caractères sont des lettres.
(require 'iso-syntax )
;; Incantation magique, pas très nécessaire
(set-input-mode (car (current-input-mode))
(nth 1 (current-input-mode)) 0)