;; Ajout à la configuration de base:
 
;;Définition du format des numérations de ligne:
(setq linum-format "%d ")
 
;; custom quote level colorizing in mail-mode:
(add-hook 'mail-mode-hook
          (lambda ()
            (font-lock-add-keywords nil
               '(("^[ \t]*>[ \t]*>[ \t]*>.*$"
                  (0 'mail-multiply-quoted-text-face))
                 ("^[ \t]*>[ \t]*>.*$"
                  (0 'mail-double-quoted-text-face))))))
 
;; restriction des lignes à 80 caractères:
(setq-default fill-column 80)
;;(add-hook 'text-mode-hook 'turn-on-auto-fill)
(add-hook 'mail-mode-hook 'turn-on-auto-fill)
 
;; PO Mode Line Wrapping:
(defun po-wrap ()
   "Filter current po-mode buffer through `msgcat' tool to wrap all lines."
   (interactive)
   (if (eq major-mode 'po-mode)
       (let ((tmp-file (make-temp-file "po-wrap."))
            (tmp-buf (generate-new-buffer "*temp*")))
   (unwind-protect
       (progn
        (write-region (point-min) (point-max) tmp-file nil 1)
        (if (zerop
            (call-process
            "msgcat" nil tmp-buf t (shell-quote-argument tmp-file)))
        (let ((saved (point))
            (inhibit-read-only t))
            (delete-region (point-min) (point-max))
            (insert-buffer tmp-buf)
            (goto-char (min saved (point-max))))
        (with-current-buffer tmp-buf
            (error (buffer-string)))))
   (kill-buffer tmp-buf)
   (delete-file tmp-file)))))
 
;; restriction de la taille des lignes en mode PO:
(add-hook 'po-subedit-mode-hook '(lambda () (longlines-mode 1)))
(add-hook 'po-subedit-exit-hook '(lambda () (longlines-mode 0)))
 
;; démarrer emacs dans mutt en mode mail
;;(server-start)
(add-to-list 'auto-mode-alist '("/mutt" . mail-mode))
 
;; affecter replace-string:
(global-set-key (kbd "C-c C-r") 'replace-string)
 
;; activer scroll à la souris en mode xterm-mouse:
(defun scroll-up-10-lines ()
  "Scroll up 10 lines"
  (interactive)
  (scroll-up 10))
 
(defun scroll-down-10-lines ()
  "Scroll down 10 lines"
  (interactive)
  (scroll-down 10))
 
(global-set-key (kbd "<mouse-4>") 'scroll-down-10-lines)
(global-set-key (kbd "<mouse-5>") 'scroll-up-10-lines) 
 
;; auto-completion avec la touche TAB:
(global-set-key (kbd "<backtab>")  'dabbrev-expand)
 
;; définir l'emplacement des sauvegardes (backup):
(setq backup-directory-alist '(("" . "~/.emacs.d/backups/")))
 
;; affecter ispell-buffer à une touche:
(global-set-key (kbd "M-£") 'ispell-buffer)