Je viens de lire sur le site de ubuntu que emacs pouvais avoir son fond coloré en noir et les écriture d'une couleur différente. le site dit que le fichier de configuration doit se trouver dans le /home du root, pour cela jutilise la commande suivante
sudo nano ~/.emacs et copie la configuration suivantes Code : Tout sélectionner
;; On lance gnuserv
(gnuserv-start)
;; pour les accents, et tout ce qui s'en suit...
(iso-accents-mode t)
(require 'iso-insert)
(standard-display-european 1)
(set-input-mode nil nil 1)
;; flyspell, c'est vraiment trop pratique c'est une couche supplémentaire pour
;; ispell, il surligne les mots incorrects en mode texte, et sous X, il permet
;; la correction avec un clik du bouton du milieu de la souris. on le trouve
;; sur http://kaolin.unice.fr/~serrano
(require 'flyspell)
;; La, je me définis quelques modes perso
(defun mon-java-mode ()
"Mode Java perso."
(interactive)
(java-mode)
(c-set-style "java")
(setq c-basic-offset 8)
)
(defun mon-c-mode ()
"Mode C perso."
(interactive)
(c-mode)
(c-set-style "K&R")
(setq c-basic-offset 8)
)
(defun mon-c++-mode ()
"mode C++ perso."
(interactive)
(c++-mode)
(c-set-style "K&R")
(setq c-basic-offset 8)
)
;; On charge automatiquement mes modes pour les fichiers concernés
(setq auto-mode-alist (cons '("/*/.*\\.[ch]$" . mon-c-mode)
auto-mode-alist))
(setq auto-mode-alist (cons '("/*/.*\\.C$" . mon-c-mode)
auto-mode-alist))
(setq auto-mode-alist (cons '("/*/.*\\.java$" . mon-java-mode)
auto-mode-alist))
;; en C, on va automatiquement a la ligne quand on tape un ; ou une accolade
(setq c-auto-newline t)
;; on met des couleurs partout
(setq global-font-lock-mode t)
;; hum, je sais plus
(setq transient-mark-mode t)
;; lorsqu'un erreur survient, on passe la fenetre en vidéo inverse
(setq visible-bell t)
;;on affiche l'heure en mode 24h
(display-time)
(setq display-time-24hr-format t)
;; Le sgml
(add-to-list 'load-path "/usr/lib/xemacs-20.4/lisp/psgml")
(autoload 'sgml-mode "psgml" "Mode majeur SGML." t)
(setq sgml-validate-command "nsgmls -s %s %s"
sgml-trace-entity-lookup t
sgml-set-face t
sgml-live-element-indicator t
sgml-indent-data t
sgml-indent-step 0)
;; lorsqu'on sauve, en fait, il va copier l'ancien fichier puis sauver
(setq backup-by-copying t)
;; on autorise le controle de version (CVS)
(setq version-control t)
;; ca, ca ne marche pas.
(setq-default set-face-font '"-*-Lucidatypewriter-Medium-R-*-*-*-120-*-*-*-*-iso8859-1")
;; quelques définitions de touches
(global-set-key [f7] 'kill-this-buffer)
(global-set-key [delete] 'delete-backward-char)
(global-set-key [kp-enter] 'newline-and-indent)
;; On affiche les lignes, les colonnes, et heu, je sais pu
(line-number-mode 1)
(column-number-mode 1)
(setq scroll-step 1)
;; Le menu buffer n'a pas de taille maximum
(setq buffers-menu-max-size nil)
;; TeX & LaTeX...
(setq tex-dvi-view-command "xdvi")
(setq tex-show-queue-command "lpstat -O")
(setq tex-dvi-print-command "dvips")
(setq tex-alt-dvi-print-command
'(format "dvips * -o %s" (read-string "Name of postscript file:")))
;; Trucs automatiquement générés par xemacs.....
;; Options Menu Settings
;; =====================
(cond
((and (string-match "XEmacs" emacs-version)
(boundp 'emacs-major-version)
(or (and
(= emacs-major-version 19)
(>= emacs-minor-version 14))
(= emacs-major-version 20))
(fboundp 'load-options-file))
(load-options-file "/home/mat/.xemacs-options")))
;; ============================
;; End of Options Menu Settings
(custom-set-variables
'(sgml-omittag-transparent t)
'(display-time-display-pad "grey35")
'(gnuserv-done-function (quote bury-buffer))
'(version-control t)
'(fill-column 78)
'(cperl-auto-newline t)
'(backup-by-copying t)
'(completions-merging-modes (quote (lisp c)))
'(c-strict-syntax-p t)
'(display-time-24hr-format t)
'(flyspell-default-dictionary "francais")
'(delete-old-versions (quote other))
'(scroll-step 1)
'(delete-key-deletes-forward nil)
'(undo-high-threshold 300000)
'(compilation-window-height 10)
'(kill-ring-max 50)
'(hyper-apropos-shrink-window t)
'(flyspell-global-modes t)
'(gnuserv-done-temp-file-function (quote bury-buffer))
'(cperl-auto-newline-after-colon t)
'(display-time-form-list (quote (dayname " " day " " monthname " " year " " 24-hours ":" minutes " " timezone " " load)))
'(sgml-inhibit-indent-tags nil)
'(focus-follows-mouse t)
'(global-flyspell-mode nil nil (flyspell))
'(toolbar-news-reader (quote gnus))
'(shell-multiple-shells t)
'(flyspell-mode-line-string " FlySpell")
'(sgml-markup-faces (quote ((start-tag . start-tag) (end-tag . end-tag) (comment . comment) (pi . pi) (sgml . sgml) (doctype . doctype) (entity . entity) (shortref . shortref))))
'(comint-completion-autolist t)
'(cperl-indent-level 4)
'(cperl-info-on-command-no-prompt t)
'(toolbar-mail-reader (quote gnus))
'(mark-ring-max 50)
'(sgml-auto-activate-dtd nil)
'(kill-whole-line nil)
'(global-mark-ring-max 20)
'(display-time-load-list (quote (0.5 0.8 1.1 1.8 2.6 5)))
'(sgml-warn-about-undefined-elements t)
'(display-time-mail-file (quote Non-nil))
'(cperl-hairy t)
'(undo-threshold 200000)
'(user-mail-address "arn_mat@club-internet.fr" t)
'(query-user-mail-address nil)
'(html-helper-address-string "<a href=\"mailto:arn_mat@club-internet.fr\">Mathieu Arnold</a>")
'(exec-path (quote ("/usr/local/ssl/bin" "/usr/local/bin" "/bin" "/usr/bin" "/usr/local/bin" "/usr/X11R6/bin" "/usr/games" "/usr/local/vnc" "/home/mat/bin" "/usr/lib/xemacs-20.4/i386-pc-linux/")))
'(save-completions-retention-time 43800)
'(whitespace-mode nil nil (whitespace-mode)))
(custom-set-faces
'(ediff-current-diff-face-B ((((class color)) (:foreground "white" :background "blue"))))
'(ediff-current-diff-face-A ((((class color)) (:foreground "firebrick" :background "green"))))
'(doctype ((t (:bold t :underline t :foreground "brown"))) t)
'(shell-prompt-face ((t (:underline t))) t)
'(font-lock-preprocessor-face ((t (:foreground "blue" :background "white"))) t)
'(font-lock-variable-name-face ((t (:foreground "blue" :background "green"))) t)
'(start-tag ((t (:bold t :foreground "red"))) t)
'(end-tag ((t (:bold t :foreground "red"))) t)
'(comment ((t (:italic t :foreground "darkgreen"))) t)
'(sgml ((t nil)) t)
'(entity ((t (:bold t :foreground "brown"))) t)
'(bold ((t (:bold t :foreground "#FF0000"))) t)
'(bold-italic ((t (:bold t :italic t))) t)
'(ediff-fine-diff-face-A ((((class color)) (:foreground "Navy" :background "red"))))
'(blue ((t (:foreground "blue"))) t)
'(italic ((t (:italic t :foreground "#005599"))) t)
'(font-lock-function-name-face ((t (:foreground "blue" :background "red"))) t)
'(pi ((t (:italic t))) t))sauf que avec cette configuration je n'est pas le fond de emacs en noir en fait il reste tel quel après l'installation.
Je sais que je ne suis pas sur le forum ubuntu mais je le dit que les fichiers de configuration doivent être les même sur toutes les distribution.
Merci d'avance pour vos réponses et bonne journée.
