X-Git-Url: http://olivier.miskin.fr/git/?a=blobdiff_plain;f=emacs%2Femacs.el;h=2404d2f019e45f8d37518fc120a09bc525e59fe6;hb=3c252435315b83ba8b4c1ba377fc1b8728aaacce;hp=07c0cc469fdd18a07278a7d35f18f9c5a713a1ae;hpb=6c71f73d3cbcd4b55c717498a7635cef9f2ad5cb;p=dotfiles.git diff --git a/emacs/emacs.el b/emacs/emacs.el index 07c0cc4..2404d2f 100644 --- a/emacs/emacs.el +++ b/emacs/emacs.el @@ -1,7 +1,7 @@ ;; -*- emacs-lisp -*- -;; Author: Olivier Tetard -;; URL : http://www.miskin.be/ +;; Author: Olivier Tetard +;; URL : http://toutoune25.miskin.fr/ ;; This file is free software; you can redistribute it and/or modify it ;; under the terms of the GNU General Public License as published by the @@ -27,46 +27,31 @@ ;; `---- (push (expand-file-name "~/.elisp") load-path) -(push (expand-file-name "~/.elisp/bbdb/lisp") load-path) -(push (expand-file-name "~/.elisp/erc") load-path) - -;; Mozmail is available in XEmacs CVS : -;; http://cvs.xemacs.org/viewcvs.cgi/XEmacs/packages/xemacs-packages/net-utils/mozmail.el -(require 'mozmail) -(require 'tt25-passwords) -(require 'tt25-muse) -(require 'tt25-erc) -(require 'color-theme) -(require 'erc) ; Installé dans ~/.elisp/erc/ + (require 'ido) +(require 'uniquify) +(require 'themes) -;; Pour Wikipedia -(require 'wikipedia-mode) -(autoload 'longlines-mode "longlines.el" - "Minor mode for editing long lines." t) -(add-to-list 'auto-mode-alist '("mozex.\\.*" . wikipedia-mode)) ;; ,---- ;; | Couleurs et apparence ;; `---- (if window-system - (color-theme-resolve) - (color-theme-dark-laptop)) - -(set-face-background 'default "black") - -(if window-system - (progn + (progn (tool-bar-mode nil) (tooltip-mode nil) (scroll-bar-mode t))) +;; font +(if (>= emacs-major-version 23) + (set-frame-font "DejaVu Sans Mono-10")) + ;; ,---- ;; | Comportement ;; `---- -(gnuserv-start) ; Utilisation de gnuserv +(server-start) ; Multi-tty powa ! (ido-mode t) ; Utilisation du mode ido (setq auto-save-interval 1200) ; Autosave (setq scroll-step 2) ; On se decale de 2 lignes quand on change de page @@ -76,6 +61,23 @@ (setq display-time-24hr-format t) ; Heure au format 24h (display-time) ; On affiche l'heure dans la barre (setq visible-bell t) ; On desactive les beeps +(setq inhibit-startup-screen t) ; On désactive le splash screen +(setq use-file-dialog nil) ; Désactivation des boites de +(setq use-dialog-box nil) ; fichiers GTK+ +(setq scroll-bar-mode 'right) +(column-number-mode 1) + +;; Configuration d'uniquify +(setq uniquify-buffer-name-style 'reverse) +(setq uniquify-separator "|") +(setq uniquify-after-kill-buffer-p t) +(setq uniquify-ignore-buffers-re "^\\*") + +;; Les copiers/coller doivent aller dans le clipboard de l'OS +(setq x-select-enable-clipboard t) +(setq interprogram-paste-function 'x-cut-buffer-or-selection-value) + +(setq auto-mode-alist (cons '(".mail" . message-mode) auto-mode-alist)) ;; Quand vous recevez un fichier .txt d'une machine dos/windows il est ;; très énervant de voir les ^M a chaque fin de ligne, utiliser M-x @@ -86,6 +88,8 @@ (while (search-forward "\r" nil t) (replace-match ""))) ;; Complétion +;; (abbrev-mode t) +;; (read-abbrev-file "~/.abbrev_defs") (setq save-abbrevs t) (global-set-key (quote [S-tab]) (quote dabbrev-expand)) @@ -93,6 +97,9 @@ (set default-major-mode 'text-mode) (add-hook 'text-mode-hook 'turn-on-auto-fill) +;; Enable longlines-mode for LaTeX files +(add-hook 'latex-mode-hook 'longlines-mode) + ;; Impression (setq lpr-command "/usr/bin/gtklp") (setq ps-lpr-command "/usr/bin/gtklp") @@ -154,9 +161,9 @@ ;; Configuration de debian-changelog (setq debian-changelog-full-name "Olivier Tétard") -(setq debian-changelog-mailing-address "toutoune25@free.fr") +(setq debian-changelog-mailing-address "olivier.tetard@miskin.fr") -(setq safe-local-variable-values +(setq safe-local-variable-values (quote ((TeX-PDF-mode . PDF)))) ;; Stolen from http://xemacs.seanm.ca/lisp/dired-extras.el @@ -178,7 +185,10 @@ The function is not passed any arguments. The function honours restrictions." ;; If you edit it by hand, you could mess it up, so be careful. ;; Your init file should contain only one such instance. ;; If there is more than one, they won't work right. + '(TeX-output-view-style (quote (("^dvi$" ("^landscape$" "^pstricks$\\|^pst-\\|^psfrag$") "%(o?)dvips -t landscape %d -o && gv %f") ("^dvi$" "^pstricks$\\|^pst-\\|^psfrag$" "%(o?)dvips %d -o && gv %f") ("^dvi$" ("^\\(?:a4\\(?:dutch\\|paper\\|wide\\)\\|sem-a4\\)$" "^landscape$") "%(o?)xdvi %dS -paper a4r -s 0 %d") ("^dvi$" "^\\(?:a4\\(?:dutch\\|paper\\|wide\\)\\|sem-a4\\)$" "%(o?)xdvi %dS -paper a4 %d") ("^dvi$" ("^\\(?:a5\\(?:comb\\|paper\\)\\)$" "^landscape$") "%(o?)xdvi %dS -paper a5r -s 0 %d") ("^dvi$" "^\\(?:a5\\(?:comb\\|paper\\)\\)$" "%(o?)xdvi %dS -paper a5 %d") ("^dvi$" "^b5paper$" "%(o?)xdvi %dS -paper b5 %d") ("^dvi$" "^letterpaper$" "%(o?)xdvi %dS -paper us %d") ("^dvi$" "^legalpaper$" "%(o?)xdvi %dS -paper legal %d") ("^dvi$" "^executivepaper$" "%(o?)xdvi %dS -paper 7.25x10.5in %d") ("^dvi$" "." "%(o?)xdvi %dS %d") ("^pdf$" "." "evince %o %(outpage)") ("^html?$" "." "netscape %o")))) + '(canlock-password "a29a3189d5be23f38adc9d2627e77c898e00cde1") '(display-time-24hr-format t) + '(inhibit-startup-screen t) '(mail-yank-prefix "> ") '(muse-file-extension "muse") '(muse-html-charset-default "utf-8") @@ -186,12 +196,11 @@ The function is not passed any arguments. The function honours restrictions." '(muse-html-meta-content-encoding (quote utf-8)) '(muse-html-style-sheet "") '(muse-mode-auto-p nil) - '(muse-mode-hook (quote (footnote-mode muse-wiki-update-custom-values))) '(muse-publish-desc-transforms (quote (muse-wiki-publish-pretty-title muse-wiki-publish-pretty-interwiki muse-publish-escape-specials-in-string))) '(muse-wiki-publish-small-title-words (quote ("the" "and" "at" "on" "of" "for" "in" "an" "a" "page" "anime"))) '(muse-xhtml-footer "~/documents/wiki/common/footer.html") '(muse-xhtml-header "~/documents/wiki/common/header.html") - '(safe-local-variable-values (quote ((TeX-PDF-mode . PDF))))) + '(safe-local-variable-values (quote ((sh-indentation . 2) (TeX-PDF-mode . "PDF") (TeX-PDF-mode . PDF))))) (custom-set-faces ;; custom-set-faces was added by Custom. ;; If you edit it by hand, you could mess it up, so be careful.