Re: [INFO] task-french

[J�r�me Marant]

Nicolas SABOURET <[EMAIL PROTECTED]> writes:

 
> Merci, mais il n'y a pas de grosse difficult� : je m'inspire de ce qui

  L'id�e est l� et c'est d�j� bcp.

> est d�j� fait pour l'espagnol et l'allemand.
> Je profite de ta remarque pour poser qqes questions � l'ensemble de la
> liste :
> 
> - Les autres langages modifient le .emacs. A priori, je n'ai pas
> l'intention d'en faire un sp�cifique pour le fran�ais. Si qqun a un avis
> contraire, qu'il me le fasse savoir d�s qu'il peut.

  Pour le .emacs, il faut regarder si les bons charsets sont positionn�s.
  Voici l'extrait d�di� de mon .emacs :

----------------

  ; Affichage iso-8859-1
  (require 'iso-acc)
  (standard-display-european t)
  (setq-default ctl-arrow 'latin1)

  ;; Pour les accents fran�ais avec des deadkeys
  (load-file "~/emacs/iso-francais.el")

----------------

  et le fichier iso-francais.el :

----------------

  ;;; iso-francais.el, tr�s fortement inspir� de
;;; iso-insert.el de Howard Gayle pour la FSF

;; pour  XEmacs 19.14

;; bien s�r, vous pouvez modifier, copier, distribuer ce code
;; comme il vous plaira.

(defun insert-A-circumflex ()
   (interactive "*")
   (insert 194)
)

(defun insert-A-umlaut ()
   (interactive "*")
   (insert 196)
)

(defun insert-E-circumflex ()
   (interactive "*")
   (insert 202)
)

(defun insert-E-umlaut ()
   (interactive "*")
   (insert 203)
)

(defun insert-I-circumflex ()
   (interactive "*")
   (insert 206)
)

(defun insert-I-umlaut ()
   (interactive "*")
   (insert 207)
)

(defun insert-O-circumflex ()
   (interactive "*")
   (insert 212)
)

(defun insert-O-umlaut ()
   (interactive "*")
   (insert 214)
)

(defun insert-U-circumflex ()
   (interactive "*")
   (insert 219)
)

(defun insert-U-umlaut ()
   (interactive "*")
   (insert 220)
)

(defun insert-a-grave ()
   (interactive "*")
   (insert 224)
)

(defun insert-a-acute ()
   (interactive "*")
   (insert 225)
)

(defun insert-a-circumflex ()
   (interactive "*")
   (insert 226)
)

(defun insert-a-umlaut ()
   (interactive "*")
   (insert 228)
)

(defun insert-e-circumflex ()
   (interactive "*")
   (insert 234)
)

(defun insert-e-umlaut ()
   (interactive "*")
   (insert 235)
)

(defun insert-i-circumflex ()
   (interactive "*")
   (insert 238)
)

(defun insert-i-umlaut ()
   (interactive "*")
   (insert 239)
)

(defun insert-o-circumflex ()
   (interactive "*")
   (insert 244)
)

(defun insert-o-umlaut ()
   (interactive "*")
   (insert 246)
)

(defun insert-u-circumflex ()
   (interactive "*")
   (insert 251)
)

(defun insert-u-umlaut ()
   (interactive "*")
   (insert 252)
)

(defun insert-y-umlaut ()
   (interactive "*")
   (insert 255)
)

(defvar francais1-map nil "accents circonflexes.")
(if francais1-map nil
   (setq francais1-map (make-keymap))
   (define-key francais1-map "A"   'insert-A-circumflex)
   (define-key francais1-map "E"   'insert-E-circumflex)
   (define-key francais1-map "I"   'insert-I-circumflex)
   (define-key francais1-map "O"   'insert-O-circumflex)
   (define-key francais1-map "U"   'insert-U-circumflex)
   (define-key francais1-map "a"   'insert-a-circumflex)
   (define-key francais1-map "e"   'insert-e-circumflex)
   (define-key francais1-map "i"   'insert-i-circumflex)
   (define-key francais1-map "o"   'insert-o-circumflex)
   (define-key francais1-map "u"   'insert-u-circumflex)

   (define-key global-map [dead-circumflex] francais1-map))

(defvar francais2-map nil "accents cicomflexes.")
(if francais2-map nil
   (setq francais2-map (make-keymap))
   (define-key francais2-map "A"  'insert-A-umlaut)
   (define-key francais2-map "E"  'insert-E-umlaut)
   (define-key francais2-map "I"  'insert-I-umlaut)
   (define-key francais2-map "O"  'insert-O-umlaut)
   (define-key francais2-map "U"  'insert-U-umlaut)
   (define-key francais2-map "a"  'insert-a-umlaut)
   (define-key francais2-map "e"  'insert-e-umlaut)
   (define-key francais2-map "i"  'insert-i-umlaut)
   (define-key francais2-map "o"  'insert-o-umlaut)
   (define-key francais2-map "u"  'insert-u-umlaut)
   (define-key francais2-map "y"  'insert-y-umlaut)

   (define-key global-map [dead_diaeresis] francais2-map)
)

(provide 'iso-francais)

---------------------------

  Je pense qu'il n'est pas inint�ressant de regarder ce qu'on peut
  r�cup�rer du package french-howto qui se trouve l� :
  ftp.internatif.org/debian/UNOFFICIAL

  Il contient une carte clavier du french howto pour console-tools
  et une keymap �quivalente pour X.

-- 
J�r�me Marant