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. )