.emacs

.emacs.el (text/plain), 10.40 KB, created by thierry volpiatto on 2007-06-05 07:46:28 UTC

;;mon .emacs à moi sans emacs_customize pour thievol
;;************************commence ici***************************
;;***************************************************************
;;
;;
;;chargement de la copie de travail de protomail dans le registre
;;(set-register ?r '(file . "/home/thierry/SVN_PROTOMAIL/trunk/protomail.py"))

;;start server emacs
;;(server-start)

;;localisation
(setq current-language-environment "Latin-9")
(setq default-input-method "latin-9-prefix")
(setq case-fold-search t)
(setq transient-mark-mode t)

;;coloration syntaxique
(global-font-lock-mode t)
(setq font-lock-maximum-decoration t)

;; python mode
(autoload 'python-mode "python-mode" "Python editing mode" t)
(setq auto-mode-alist (cons '(".py$" . python-mode) auto-mode-alist))
(setq interpreter-mode-alist (cons '("python" . python-mode) interpreter-mode-alist))
(global-set-key (kbd "<f11> p") 'py-shell)

;; Le raccourci pour Uncomment Region(pas besoin je fais C-u C-c #)
;;(add-hook 'python-mode-hook (lambda () 
;;			      (define-key py-mode-map "\C-c3" 
;;				(lambda (beg end) (interactive "r")
;;				  (py-comment-region beg end '(4))))))


;; Le curseur clignotant
(if (>= emacs-major-version 21)
    (blink-cursor-mode -1))

;;couleur dans le shell
(autoload 'ansi-color-for-comint-mode-on "ansi-color" nil t)
(add-hook 'shell-mode-hook 'ansi-color-for-comint-mode-on)

;;binding pour le calculateur d'emacs
(global-set-key [(control return)] 'calculator)

;; caracteres accentues dans emacs -nw
(set-keyboard-coding-system locale-coding-system)
(set-terminal-coding-system locale-coding-system)

;; La barre de menu ne me sert (presque) jamais ...
(menu-bar-mode -1)
(if (>= emacs-major-version 21)
    (progn
      (tool-bar-mode -1)
      (scroll-bar-mode -1)
      (setq-default cursor-in-non-selected-windows nil)
      ))

;;chargement des programmes tiers
(load "/usr/share/emacs/site-lisp/site-gentoo")

;;correction orthographique
(setq-default ispell-program-name "aspell")
(setq ispell-dictionary "francais")

;; Pour que F2 lance flyspell en mode continu
(global-set-key [f2] 'flyspell-mode)

;;impression avec lpr 
;;pour imprimer les caractères latin-9
(setq ps-mule-font-info-database-default '((latin-iso8859-15 (normal nil nil iso-latin-9)) 
					   (latin-iso8859-1 (normal nil nil iso-latin-1))))
(setq lpr-command "gtklp")
(setq-default ps-print-header nil)
(set-variable 'lpr-switches '("-Pepson"))
(global-set-key (kbd "<f12> p") 'ps-print-buffer)
(global-set-key (kbd "<f12> r") 'ps-print-region)

;;a2ps modification de a2ps-print.el et recompilation:;;(concat "-1Rf12")
(load "a2ps-print")
(global-set-key (kbd "<f12> a") 'a2ps-buffer)		;imprime le buffer
(global-set-key (kbd "<f12> z") 'a2ps-region)		;print selected text
(setq a2ps-switches `("-C" "--line-numbers=1"))
;;(setq a2ps-switches `("-B" "--no-header"))

;;lecture des pdf avec pdftotext
;;(add-to-list 'auto-mode-alist '("\\.pdf\\'" . no-pdf))
;;(defun no-pdf ()
;;  "Run pdftotext on the entire buffer."
;;  (interactive)
;;  (let ((modified (buffer-modified-p)))
;;    (erase-buffer)
;;    (shell-command
;;     (concat "pdftotext " (buffer-file-name) " -")
;;     (current-buffer)
;;     t)
;;    (set-buffer-modified-p modified)))

;;macro shell
(global-set-key (kbd "<f11> s") 'shell)
(global-set-key (kbd "<f11> t") 'term)

;;chargement de AucTex
(require 'tex-site)
(load "auctex.el" nil t t)

;;parametres latex divers
(setq TeX-auto-save t)
     (setq TeX-parse-self t)
(setq-default TeX-master nil)
(add-hook 'TeX-language-fr-hook
     	  (lambda () (ispell-change-dictionary "french")))

;;fond noir et couleurs
(defun set-dark-colors (&optional frame)
  "Set colors suitable for working in the darkness without electricity."
  (interactive)
  (if frame
      (select-frame frame)
    (setq frame (selected-frame)))
  (set-background-color "black")
  (set-foreground-color "DarkGrey")
  (set-cursor-color "red")
  (when (facep 'region)
    (set-face-background 'region "DimGray" frame))
  (when (facep 'fringe)
    (set-face-background 'fringe (face-background 'default) frame)
    (set-face-foreground 'fringe (face-foreground 'default) frame)))

(set-dark-colors ())

;;planner
(setq planner-project "Thierry")
(add-to-list 'load-path "/usr/share/emacs/site-lisp/muse")
     (add-to-list 'load-path "/usr/share/emacs/site-lisp/planner")
     (add-to-list 'load-path "/usr/share/emacs/site-lisp/remember")
(setq muse-project-alist
           '(("Thierry"
             ("~/plans"   ;; ou le dossier de son choix peu importe
             :default "index"
             :major-mode planner-mode
	     :visit-link planner-visit-link))))
     (require 'planner)
 (require 'remember-planner)
  (setq remember-handler-functions '(remember-planner-append))
  (setq remember-annotation-functions planner-annotation-functions)

;;parametres muse
(add-hook 'find-file-hooks 'muse-mode-maybe)
(require 'muse-mode)     ; load authoring mode
     
(require 'muse-html)     ; load publishing styles I use
(require 'muse-latex)
(require 'muse-texinfo)
(require 'muse-docbook)


;;site web muse
;;(require 'muse-project)
     
;;(setq muse-project-alist
;;'(("website"                 ; my various writings
;;   ("~/Pages" :default "index")
;;   (:base "html" :path "~/public_html")
;;   (:base "pdf" :path "~/public_html/pdf"))))

;;quelques racourcis pour planner
(global-set-key (kbd "<f9> t") 'planner-create-task-from-buffer)
(global-set-key (kbd "<f9> s") 'planner-show)
(global-set-key (kbd "<f9> r") 'planner-goto-today)
(global-set-key (kbd "<f9> o") 'planner-tasks-overview-show-summary)
(global-set-key (kbd "<f9> c") 'calendar)
(global-set-key (kbd "C-x C-n") 'remember)
(global-set-key (kbd "<f9> y") 'planner-diary-add-entry)
(global-set-key (kbd "<f9> u") 'planner-create-note-from-task)
(global-set-key (kbd "<f9> n") 'planner-notes-index)

;;planner ID
(require 'planner-id)

;;diary pour planner
(require 'planner-diary)
 (add-hook 'diary-display-hook 'fancy-diary-display)
(setq planner-diary-use-diary t)
          (planner-diary-insinuate)
 (setq planner-day-page-template
           "* Tasks\n\n\n* Schedule\n\n\n* Diary\n\n\n* Notes")
(planner-insinuate-calendar)

;;cyclic task pour planner
 (require 'planner-cyclic)
(setq planner-cyclic-diary-nag nil)

;;apointement section
(require 'planner-appt)
(setq planner-appt-task-use-appointments-section-flag t)

;;localisation w3m
;;(standard-display-european t)

;;w3m par defaut
(setq browse-url-browser-function 'w3m-browse-url)
 (autoload 'w3m-browse-url "w3m" "Ask a WWW browser to show a URL." t)
 (global-set-key "\C-xp" 'browse-url-at-point)
(global-set-key (kbd "<f7> h") 'w3m) 
(global-set-key (kbd "<f7> w") 'w3m-weather) 
(global-set-key (kbd "<f7> t") 'w3m-dtree) 

;;w3m homepage
(setq w3m-home-page "http://www.google.fr")

;;netscape vs firefox
(setq browse-url-netscape-program '"firefox")

;;w3m pour planner
(require 'planner-w3m)

;;integration de tramp
(add-to-list 'load-path "/usr/share/emacs/site-lisp/tramp")
;;la syntaxe ssh://
;;(setq tramp-syntax 'url)
(require 'tramp)

;;methode par defaut
(setq tramp-default-method "ssh")

;;host par defaut pour tramp
(setq tramp-defaut-user "thiedlecques"
      tramp-defaut-host "download.gna.org:/upload/proto-mail")

;;mode lecture photo
(auto-image-file-mode)

;;mon planner au demarrage dans une fenêtre
(plan)

;;mon home dans l'autre fenêtre
(find-file-other-window "~/" 1)

;;gnus mailer par defaut
(setq mail-user-agent 'gnus-user-agent)
(setq read-mail-command 'gnus)
(setq send-mail-command 'gnus-msg-mail)

;;pour appeler gnus
(global-set-key (kbd "<f8> m") 'gnus)

;;gnus au demarrage d'emacs
(gnus nil)

;;gnus pour planner
(require 'planner-gnus)
(planner-gnus-insinuate)

;; bbdb carnet d'adresse pour gnus
(require 'bbdb)
(bbdb-initialize 'gnus)
(add-hook 'gnus-startup-hook 'bbdb-insinuate-gnus)
(global-set-key (kbd "<f8> b") 'bbdb)
(autoload 'bbdb-insinuate-gnus     "bbdb-gnus"  "Hook BBDB into GNUS")
(autoload 'bbdb-insinuate-sendmail "bbdb"       "Hook BBDB into sendmail")
(setq bbdb-send-mail-style 'message)

;;pour créer un nouveau contact dans bbdb
(global-set-key (kbd "<f8> c") 'bbdb-create)

;;pour enregistrer le contact sender
(global-set-key (kbd "<f8> s") 'bbdb/gnus-annotate-sender)

;;pour completer l'adresse
(global-set-key (kbd "<f8> a") 'bbdb-complete-name)

;; par defaut bbdb est configure pour accepter les numeros de
;; telephone au format americain ici on desactive cette option
(setq bbdb-north-american-phone-numbers-p nil)

;; permet d'eviter d'avoir une fenetre bbdb qui montre en permanence
;; les mises a jour dans bbdb lorsque l'on utilise GNUS
(setq bbdb-use-pop-up nil)

;; pas de code de localisation par defaut pour les numeros de
;; telephone 
(setq bbdb-default-area-code nil)

;; permet d'empecher a bbdb de creer une nouvelle entree a chaque fois
;; qu'un mail d'une nouvelle personne est lu avec GNUS, RMAIL, VM ou
;; MH. 
(setq bbdb/mail-auto-create-p nil)

;; nombre de lignes desire dans la fenetre popup de bbdb lorsque l'on
;; utilise VM/MH/RMAIL ou GNUS.
(setq bbdb-pop-up-target-lines 7)

;;pour créer un lien bbdb vers planner
(require 'planner-bbdb)

;;bbdb-print pour faire un carnet en latex
(add-hook 'bbdb-load-hook (function (lambda () (require 'bbdb-print))))

;;subversion
(require 'psvn)
(setq svn-status-verbose t)
(global-set-key (kbd "<f5> s") 'svn-status)

;;subversion vs VC
(add-to-list 'vc-handled-backends 'SVN)

;;subversion hyperlink dans planner
(require 'planner-log-edit)
(require 'planner-psvn)
(setq planner-psvn-log-edit-notice-commit-function t)
 
;;chat irc avec erc emacs
(add-to-list 'load-path "/usr/share/emacs/site-lisp/erc")
(require 'erc)
(setq erc-server "irc.freenode.net" 
       erc-port 6667 
       erc-nick "thiedlecques"
       erc-user-full-name user-full-name
       erc-email-userid "tvolpiatt"    ; for when ident is not activated
       erc-prompt-for-password nil) ; OPN doesn't require passwords
(global-set-key (kbd "<f6> i") 'erc-select)

;;créer des liens vers irc dans planner
(require 'planner-erc)

;;mailcrypt
(load-library "mailcrypt") ; provides "mc-setversion"
(mc-setversion "gpg")    ; for PGP 2.6 (default); also "5.0" and "gpg"
(autoload 'mc-install-write-mode "mailcrypt" nil t)
(autoload 'mc-install-read-mode "mailcrypt" nil t)
(add-hook 'mail-mode-hook 'mc-install-write-mode)

;;slime et lisp
(setq inferior-lisp-program "/usr/bin/sbcl")
(add-to-list 'load-path "/usr/share/emacs/site-lisp/slime")
(require 'slime)
(slime-setup)
(global-set-key (kbd "<f11> l") 'slime)

;;table
(require 'table)
(add-hook 'text-mode-hook 'table-recognize)

;;*************et finit là****************