Re: [HS] Couper les lignes automatiquement sous emacs
mouss a écrit :
> GiGGz wrote:
>> pascal a écrit :
>>> GiGGz a écrit :
>>>> Bonjour la liste,
>>>>
>>>> Désolé pour ce HS. Je cherche à ce que sous emacs les lignes se coupent
>>>> automatiquement à 72 caractères. Pour l'instant je peux écrire des
>>>> lignes très longues sans qu'emacs les coupe.
>>>> Que faut il ajouter dans le .emacs pour avoir ça ?
>>>>
>>>> Merci d'avance.
>>>> Guillaume
>>>>
>>>>
>>> dans .emacs
>>>
>>> (add-hook 'text-mode-hook 'turn-on-auto-fill)
>>> (defun auto-fill-hook ()
>>> auto-fill-mode 1)
>>> (setq fill-column 72))
>>>
>>> P.
>>>
>>>
>> Merci de ta rapide réponse!
>>
>>
>
> et tu peux le faire pour un buffer en tapant la commande:
> auto-fill-mode
>
> tu peux le désactiver en retapant la même commande.
>
> parfois, ce n'est pas désirable d'avoir la coupure automatique.
>
>
Merci pour vos réponses. Mais pour l'instant...ça ne marche pas :
je suis en sid avec le dernier emacs. quand je mets
(add-hook 'text-mode-hook 'turn-on-auto-fill)
(defun auto-fill-hook ()
auto-fill-mode 1)
(setq fill-column 72))
dans mon .emacs j'ai droit un ce message d'erreur :
An error has occurred while loading `/home/giggz/.emacs':
Invalid read syntax: )
alors j'enlève la dernière parenthèse; là tout se lance mais je ne vois
pas du tout de changement dans le comportement d'emacs :
si je tape dans un fichier vide une grande ligne ça ne va pas à la ligne
automatiquement...
Ciao
je copie colle le .emacs que j'ai recup sur le net :
;; .emacs
;; Copyright (C) 2000-2001-2002 Philippe Dumont
;; Author: Philippe Dumont <dumont@lifl.fr>
;; Last version : http://www.lifl.fr/~dumont/emacs/
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 2, or (at your option)
;; any later version.
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;;##########################################################
;; Commentaires
;; J'ai pille le travail de nombreuses personnes pour realiser ce .emacs
;; En voici la liste non exhaustive :
;; Jonathan Bailleul
;; Laurent Schurter
;; Stéphane Levant
;; Philippe Marquet
;; Pierre Boulet
;; Pour que la configuration soit complète, il faut rajouter
;; les lignes suivantes dans son .Xdefaults :
;; emacs.title: Philippe's dot emacs !
;; emacs*.cursorColor: black
;; emacs*.pointerColor: black
;; emacs*.foreground: black
;; emacs*.background: white
;; emacs*.toolBar: 0
;; emacs*.font:
-adobe-courier-medium-r-normal--12-120-75-75-m-70-iso8859-15
;; Pour recharger son .Xdefaults sans relancer le serveur X
;; xrdb -load .Xdefaults
;; Il faut également récupérer les 5 fichiers annexes :
;; Calendrier.el, Couleurs.el, Mouse-wheel.el, Souris.el, Vectra.el
;; Si vous utilisez ce .emacs, il suffit d'appuyer sur F1
;; sur une fonction afin d'obtenir de l'aide
;Enlève la barre d'outils et la bar de défilement
(tool-bar-mode -1)
(scroll-bar-mode -1)
;pas de message au démarrage
(setq inhibit-startup-message t)
;pas de biiiiiiiip
(setq visible-bell 't)
;; coupe les lignes au 72 ieme caractere
(add-hook 'text-mode-hook 'turn-on-auto-fill)
(defun auto-fill-hook ()
auto-fill-mode 1)
(setq fill-column 72))
; Activation de la surbrillance
(transient-mark-mode 1)
;dico français
(setq ispell-program-name "aspell")
;;##########################################################
;; Langue
;;(set-language-environment 'utf-8)
;;(prefer-coding-system 'mule-utf-8)
;;(prefer-coding-system 'latin-1)
;;(and (boundp 'coding-category-utf-8)
;; (set-coding-priority
;; '( coding-category-utf-8
;; coding-category-iso-8-1
;; coding-category-iso-8-2
;; coding-category-raw-text )))
;;(defun getlocale (vars)
;; (if vars
;; (let ((locale (getenv (car vars))))
;; (if locale locale (getlocale (cdr vars))))
;; ""
;;))
;;(if (string-match "UTF-8\\>" (getlocale '("LC_ALL" "LC_CTYPE" "LANG")))
;; (progn
;; (set-keyboard-coding-system 'utf-8)
;; (set-terminal-coding-system 'utf-8))
;;)
;;***Fin Langue
;;##########################################################
;; Fichiers annexes
;;
;;inclusion de la gestion des couleurs
(load-file "~/.emacs.d/Perso/Couleurs.el")
;;inclusion de la gestion de la souris et de sa molette
(load-file "~/.emacs.d/Perso/Souris.el")
;;inclusion des fonctions personnelles
(load-file "~/.emacs.d/Perso/Vectra.el")
;;inclusion du calendrier
(load-file "~/.emacs.d/Perso/Calendrier.el")
;;***Fin fichiers annexes
;;##########################################################
;; Section Mode des fichiers
;;
;;permettre à la speedbar de reconnaître plus de fichiers
(require 'speedbar)
(speedbar-add-supported-extension "\\.\\(inc\\|txt\\)")
(speedbar-add-supported-extension "\\.\\(inc\\|ml[i]?\\)")
(speedbar-add-supported-extension "\\.\\(inc\\|xml\\)")
(speedbar-add-supported-extension "\\.\\(inc\\|css\\)")
;;*** Fin Section Mode des fichiers
;;##########################################################
;; Section Fonctions événementielles
;;
;;Mode C
(setq c-mode-hook
(lambda ()
(c-set-style "GNU")
(load-library "cc-cmds")
(c-toggle-auto-state t)
(c-toggle-hungry-state t)
))
;;Mode C++
(setq c++-mode-hook
(lambda ()
(c-set-style "GNU")
(load-library "cc-cmds")
(c-toggle-auto-state t)
(c-toggle-hungry-state t)
))
;;Mode Java
(setq java-mode-hook
(lambda ()
(load-library "cc-cmds")
(c-toggle-auto-state t)
(c-toggle-hungry-state t)
))
;;Mode ObjC
(setq objc-mode-hook
(lambda ()
(load-library "cc-cmds")
(c-toggle-auto-state t)
(c-toggle-hungry-state t)
))
;;Mode Makefile
(setq makefile-mode-hook
(lambda ()
))
;;Mode LaTEX
(setq LaTex-mode-hook
(lambda ()
(auto-fill-mode t)
))
(setq latex-mode-hook
(lambda ()
(auto-fill-mode t)
))
(setq TeX-mode-hook
(lambda ()
(auto-fill-mode t)
))
(setq tex-mode-hook
(lambda ()
(auto-fill-mode t)
))
;;Mode texte
(add-hook 'text-mode-hook
(lambda ()
))
;;Mode Shell (command line)
(setq shell-mode-hook
(lambda ()
))
;;Mode Shell-script (script editing)
(setq sh-mode-hook
(lambda ()
))
;;Mode Emacs-Lisp (.emacs)
(setq emacs-lisp-mode-hook
(lambda ()
(local-set-key [f9] 'eval-current-buffer)
))
;;Mode SGML-HTML
(setq sgml-mode-hook
(lambda ()
))
;;** Fin Section Fonctions événementielles
;;##########################################################
;;Mode par défaut
;;
;; la langue du dictionnaire
(setq ispell-dictionary "francais")
;; on démarre en mode texte
(setq initial-major-mode 'text-mode)
;; le mode par défaut
(setq default-major-mode 'text-mode)
;; faire peur au curseur
(mouse-avoidance-mode 'jump)
;; montre les parenthèses
(show-paren-mode)
;; pas de re-définition intempestive de certaines touches après
pc-selection-mode
(setq pc-select-selection-keys-only t)
;; sélection avec shift
(pc-selection-mode)
;; pas de ligne en plus à la fin du fichier
(setq next-line-add-newlines nil)
;; quelle heure est-il ??
(setq display-time-day-and-date t)
(setq display-time-24hr-format t)
(display-time)
;; la completion respecte la casse
(setq dabbrev-case-replace nil)
;;*** Fin mode par défault
;;##########################################################
;; Section raccourcis clavier
;; Globals
(define-key global-map "\^x\^z" 'suspend-emacs)
(global-set-key [delete] 'delete-char)
;; Meta
(global-set-key "\M-l" 'goto-line)
(global-set-key "\M-j" 'switch-to-buffer)
;; Ctrl
(global-set-key "\C-z" 'copy-region-as-kill)
;; Touches de fonctions
;; F1 : lance l'apropos sur le mot ou se trouve le curseur
(global-set-key [f1] 'vectra-apropos-on-word)
;; Ctrl+F1 : lance man sur le mot ou se trouve le curseur
(global-set-key [\C-f1] 'vectra-man-on-word)
;; F2 : coupe le buffer en 2 verticalement
(global-set-key [f2] 'split-window-vertically)
;; F2 : coupe le buffer en 2 horizontalement
(global-set-key [\C-f2] 'split-window-horizontally)
;; F3 : non affecté
;; F4 : commente la ligne courante suivant le mode choisi (C++,C,...)
(global-set-key [f4] 'vectra-comment-region)
;; Ctrl + F4 : decommente la ligne courante suivant le mode choisi
(C++,C,...)
(global-set-key [\C-f4] 'vectra-uncomment-region)
;; F5 : la complétion
(global-set-key [f5] 'dabbrev-expand)
;; F6 : lance ispell
(global-set-key [f6] 'ispell-buffer)
(global-set-key [\C-f6] 'ispell-word)
(global-set-key [\M-f6] 'ispell-region)
;; F7 : indente correctement tout le buffer courant
(global-set-key [f7] 'vectra-indent-hilit-buffer)
;; F8 : sauvegarde le buffer en html
;; Nécessite le htmlize
(global-set-key [f8] 'htmlize-buffer)
;; F9 : lance la compilation
(global-set-key [f9] 'compile)
;; F10 : va à l erreur suivante
(global-set-key [f10] 'next-error)
;; F11 : lance la speedbar
(global-set-key [f11] 'speedbar)
;; F12 : tue le buffer courant
(global-set-key [f12] 'kill-buffer)
;; Flèches
(global-set-key [\M-left] 'backward-sentence)
(global-set-key [\M-right] 'forward-sentence)
(global-set-key [\M-up] 'beginning-of-buffer)
(global-set-key [\M-down] 'end-of-buffer)
Reply to: