dot_emacs

(custom-set-variables
 ;; custom-set-variables was added by Custom.
 ;; 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.
 
 ;; st pour afficher elinks:
 '(browse-url-elinks-wrapper (quote ("st" "-e")))
 '(compose-mail-user-agent-warnings nil)
 
 ;; confirmer pour quitter:
 '(confirm-kill-emacs (quote y-or-n-p))
 '(custom-enabled-themes (quote (molokai)))
 '(custom-safe-themes
   (quote
    ("fe20c1ea61a2836a5cea69963865b5b8df8c480ccaf3f11ad7f2e1f543f6c274" "c3c0a3702e1d6c0373a0f6a557788dfd49ec9e66e753fb24493579859c8e95ab" default)))
 '(gnus-directory "~/news/")
 '(imap-default-user "blablapeople")
 '(imap-store-password t)
 '(inhibit-startup-screen t)
 '(message-directory "~/mail/")
 '(read-mail-command (quote gnus))
 '(send-mail-function (quote smtpmail-send-it))
 '(smtpmail-smtp-server "server.net")
 '(smtpmail-smtp-service 465)
 '(smtpmail-smtp-user "blablapeople")
 '(smtpmail-stream-type (quote ssl))
 '(user-full-name "blabla")
 '(user-mail-address "blabla")
 
;;;;;;;;;;;;;;;;;;;;;
;; sogal dot emacs ;;
;;;;;;;;;;;;;;;;;;;;;
 
;; support de la souris dans le terminal
;; (require 'mouse)
;; (xterm-mouse-mode t)
;; (global-set-key (kbd "<mouse-5>") 'scroll-up-line)
;; (global-set-key (kbd "<mouse-4>") 'scroll-down-line)
 
;; affichage des numéros de ligne (et de colonnes en bas)
(global-linum-mode t)
(setq linum-format "%d ")
(setq column-number-mode t)
 
;; 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)
    ;; pour le mode mail :
(add-hook 'mail-mode-hook 'turn-on-auto-fill)
    ;; et le mode python :
(add-hook 'python-mode-hook 
          (lambda ()
            (turn-on-auto-fill)
            (linum-mode)))
 
;; 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)))))
 
;; démarrer emacs dans mutt en mode mail
(add-to-list 'auto-mode-alist '("/mutt" . mail-mode))
 
;; affecter replace-string:
(global-set-key (kbd "C-x C-r") 'replace-string)
 
;; 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)
 
;; affecter next-buffer à Super-Page Down:
(global-set-key (kbd "<s-next>") 'next-buffer)
;; et affecter previous-buffer à Super-Page UP:
(global-set-key (kbd "<s-prior>") 'previous-buffer)
 
;; configuration courriel
(setq gnus-select-method
      '(nnimap "mail"
	      (nnimap-address "mail")
	      (nnimap-server-port "imaps")
	      (nnimap-stream ssl)))
 
;; ajout de la transparence (totale, cadre compris) :
(set-frame-parameter (selected-frame) 'alpha '(98 70))
(add-to-list 'default-frame-alist '(alpha 98 70))
 
;; fonction et raccourcis de toggle de la transparence :
(eval-when-compile (require 'cl))
 (defun toggle-transparency ()
   (interactive)
   (if (/=
        (cadr (frame-parameter nil 'alpha))
        100)
       (set-frame-parameter nil 'alpha '(100 100))
     (set-frame-parameter nil 'alpha '(98 70))))
(global-set-key (kbd "C-c t") 'toggle-transparency)
(custom-set-faces
 ;; custom-set-faces was added by Custom.
 ;; 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.
 )