Re: [INFO] task-french
Nicolas SABOURET <Nicolas.Sabouret@limsi.fr> 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
Reply to: