[Date Prev][Date Next] [Thread Prev][Thread Next] [Date Index] [Thread Index]

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: