mailing-list for TeXmacs Users

[David Allouche <address@hidden>]

By popular demand, here are the Init.scm snippets I designed for typing 
french text.

First snippets defines a custom keymap that makes it easier to type in french 
accented characters on a QWERTY or Dvorak keyboard. It uses key sequences 
(esp. those with apostrophe and comma, beware of the order) that are not 
normally used un french text. Other special characters are not meaningful in 
french text.

(set-keymap (in-french?)
            ("a `" "à") ("A `" "À") ("a ^" "â") ("A ^" "Â")
            ("e '" "é") ("E '" "É") ("e `" "è") ("E `" "È")
            ("e ^" "ê") ("E ^" "Ê") ("e \"" "ë") ("E \"" "Ë")
            ("i ^" "î") ("I ^" "Î")
            ("o ^" "ô") ("O ^" "Ô")
            ("u `" "ù") ("U `" "Ù") ("u ^" "û") ("U ^" "Û")
            (", c" "ç") (", C" "Ç")
            ("a e" "æ") ("A e" "Æ") ("A E" "Æ")
            ("o e" "÷") ("O e" "×") ("O E" "×"))


Second snippet is a hack to word around the fact that the typesetter does not 
properly handle local typesetting rules regarding puntuactions and spaces. 
Maybe that should be a wishlist item... Beware though, careless use can cause 
insertion of several thin spaces!

It also demonstrate the powerful but under-used insert-object function and an 
application of quasi-quotation.

(define (make-french-left-punctuation str)
  (insert-object `(concat (hspace "0.4spc") ,str)))
  
(define (make-french-right-punctuation str)
  (insert-object `(concat ,str (hspace "0.4spc"))))
  
(set-keymap (in-french?)
            (":" (make-french-left-punctuation ":"))
            (";" (make-french-left-punctuation ";"))
            ("?" (make-french-left-punctuation "?"))
            ("!" (make-french-left-punctuation "!"))
            ("< *" (make-french-right-punctuation " "))
            ("> *" (make-french-left-punctuation " "))
            ("< <" (make-french-right-punctuation " "))
            ("> >" (make-french-left-punctuation " ")))


The last snippet simply re-enable input of em-dashes. Maybe that should be a 
bug...

(set-keymap (in-text?) ("- - -" " "))
-- 

                                  -- David --