logo Debian Debian Debian-France Debian-Facile Debian-fr.org Forum-Debian.fr Debian ? Communautés logo inclusivité

Debian-facile

Bienvenue sur Debian-Facile, site d'aide pour les nouveaux utilisateurs de Debian.

Vous n'êtes pas identifié(e).


L'icône rouge permet de télécharger chaque page du wiki visitée au format PDF et la grise au format ODT → ODT PDF Export

dot_emacs

fichier.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.
 )
utilisateurs/sogal/config/emacs.txt · Dernière modification: 11/11/2015 15:14 par sogal

Pied de page des forums

Propulsé par FluxBB