From dd8ce35e745eda652438f1512baa14a095dc7660 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?F=C3=A9lix?= Date: Mon, 9 Apr 2012 19:58:23 +0200 Subject: [PATCH 1/5] French translation of Yesod Auth messages --- yesod-auth/Yesod/Auth/Message.hs | 37 ++++++++++++++++++++++++++++++++ 1 file changed, 37 insertions(+) diff --git a/yesod-auth/Yesod/Auth/Message.hs b/yesod-auth/Yesod/Auth/Message.hs index 383ef98f..fbcf7386 100644 --- a/yesod-auth/Yesod/Auth/Message.hs +++ b/yesod-auth/Yesod/Auth/Message.hs @@ -8,6 +8,7 @@ module Yesod.Auth.Message , portugueseMessage , swedishMessage , germanMessage + , frenchMessage ) where import Data.Monoid (mappend) @@ -183,3 +184,39 @@ germanMessage NowLoggedIn = "Login erfolgreich" germanMessage LoginTitle = "Login" germanMessage PleaseProvideUsername = "Bitte Nutzername angeben" germanMessage PleaseProvidePassword = "Bitte Passwort angeben" + + + +frenchMessage :: AuthMessage -> Text +frenchMessage NoOpenID = "Aucun fournisseur OpenID n'a été trouvé" +frenchMessage LoginOpenID = "Se connecter avec OpenID" +frenchMessage LoginGoogle = "Se connecter avec Google" +frenchMessage LoginYahoo = "Se connecter avec Yahoo" +frenchMessage Email = "Adresse électronique" +frenchMessage Password = "Mot de passe" +frenchMessage Register = "S'inscrire" +frenchMessage RegisterLong = "Créer un compte" +frenchMessage EnterEmail = "Entrez ci-dessouse votre adresse électronique, et un message de confirmation vous sera envoyé" +frenchMessage ConfirmationEmailSentTitle = "Message de confirmation" +frenchMessage (ConfirmationEmailSent email) = + "Un message de confirmation a été envoyé à " `mappend` + email `mappend` + "." +frenchMessage AddressVerified = "Votre adresse électronique a été validée, merci de choisir un nouveau mot de passe." +frenchMessage InvalidKeyTitle = "Clef de validation incorrecte" +frenchMessage InvalidKey = "Désolé, mais cette clef de validation est incorrecte" +frenchMessage InvalidEmailPass = "Le couple mot de passe/adresse électronique n'est pas correct" +frenchMessage BadSetPass = "Vous devez être connecté pour choisir un mot de passe" +frenchMessage SetPassTitle = "Changer de mot de passe" +frenchMessage SetPass = "Choisir un nouveau mot de passe" +frenchMessage NewPass = "Nouveau mot de passe" +frenchMessage ConfirmPass = "Confirmation du mot de passe" +frenchMessage PassMismatch = "Le deux mots de passe sont différents, veuillez les corriger" +frenchMessage PassUpdated = "Le mot de passe a bien été changé" +frenchMessage Facebook = "Se connecter avec Facebook" +frenchMessage LoginViaEmail = "Se connecter à l'aide d'une adresse électronique" +frenchMessage InvalidLogin = "Nom d'utilisateur incorrect" +frenchMessage NowLoggedIn = "Vous êtes maintenant connecté" +frenchMessage LoginTitle = "Se eonnecter" +frenchMessage PleaseProvideUsername = "Merci de renseigner votre nom d'utilisateur" +frenchMessage PleaseProvidePassword = "Merci de spécifier un mot de passe" From 69871a030ac3201663e2d20d59fbca2c01613421 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?F=C3=A9lix?= Date: Tue, 10 Apr 2012 19:14:41 +0200 Subject: [PATCH 2/5] Fixed some typos in the french translation --- yesod-auth/Yesod/Auth/Message.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/yesod-auth/Yesod/Auth/Message.hs b/yesod-auth/Yesod/Auth/Message.hs index fbcf7386..f22e5962 100644 --- a/yesod-auth/Yesod/Auth/Message.hs +++ b/yesod-auth/Yesod/Auth/Message.hs @@ -196,7 +196,7 @@ frenchMessage Email = "Adresse électronique" frenchMessage Password = "Mot de passe" frenchMessage Register = "S'inscrire" frenchMessage RegisterLong = "Créer un compte" -frenchMessage EnterEmail = "Entrez ci-dessouse votre adresse électronique, et un message de confirmation vous sera envoyé" +frenchMessage EnterEmail = "Entrez ci-dessous votre adresse électronique, et un message de confirmation vous sera envoyé" frenchMessage ConfirmationEmailSentTitle = "Message de confirmation" frenchMessage (ConfirmationEmailSent email) = "Un message de confirmation a été envoyé à " `mappend` @@ -217,6 +217,6 @@ frenchMessage Facebook = "Se connecter avec Facebook" frenchMessage LoginViaEmail = "Se connecter à l'aide d'une adresse électronique" frenchMessage InvalidLogin = "Nom d'utilisateur incorrect" frenchMessage NowLoggedIn = "Vous êtes maintenant connecté" -frenchMessage LoginTitle = "Se eonnecter" +frenchMessage LoginTitle = "Se connecter" frenchMessage PleaseProvideUsername = "Merci de renseigner votre nom d'utilisateur" frenchMessage PleaseProvidePassword = "Merci de spécifier un mot de passe" From 9ccd0e24a628c0d2a7e3d678f9689307b1a72779 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?F=C3=A9lix?= Date: Tue, 10 Apr 2012 20:27:10 +0200 Subject: [PATCH 3/5] French support for forms --- yesod-form/Yesod/Form/I18n/French.hs | 26 ++++++++++++++++++++++++++ 1 file changed, 26 insertions(+) create mode 100644 yesod-form/Yesod/Form/I18n/French.hs diff --git a/yesod-form/Yesod/Form/I18n/French.hs b/yesod-form/Yesod/Form/I18n/French.hs new file mode 100644 index 00000000..3a34fa6f --- /dev/null +++ b/yesod-form/Yesod/Form/I18n/French.hs @@ -0,0 +1,26 @@ +{-# LANGUAGE OverloadedStrings #-} +module Yesod.Form.I18n.French where + +import Yesod.Form.Types (FormMessage (..)) +import Data.Monoid (mappend) +import Data.Text (Text) + +frenchFormMessage :: FormMessage -> Text +frenchFormMessage (MsgInvalidInteger t) = "Entier invalide : " `mappend` t +frenchFormMessage (MsgInvalidNumber t) = "Nombre invalide : " `mappend` t +frenchFormMessage (MsgInvalidEntry t) = "Entrée invalide : " `mappend` t +frenchFormMessage MsgInvalidTimeFormat = "Heure invalide (elle doit être au format HH:MM ou HH:MM:SS" +frenchFormMessage MsgInvalidDay = "Date invalide (elle doit être au format AAAA-MM-JJ" +frenchFormMessage (MsgInvalidUrl t) = "Adresse Internet invalide : " `mappend` t +frenchFormMessage (MsgInvalidEmail t) = "Adresse électronique invalide : " `mappend` t +frenchFormMessage (MsgInvalidHour t) = "Heure invalide : " `mappend` t +frenchFormMessage (MsgInvalidMinute t) = "Minutes invalides : " `mappend` t +frenchFormMessage (MsgInvalidSecond t) = "Secondes invalides " `mappend` t +frenchFormMessage MsgCsrfWarning = "Afin d'empêcher les attaques CSRF, veuillez ré-envoyer ce formulaire" +frenchFormMessage MsgValueRequired = "Ce champ est requis" +frenchFormMessage (MsgInputNotFound t) = "Entrée non trouvée : " `mappend` t +frenchFormMessage MsgSelectNone = "" +frenchFormMessage (MsgInvalidBool t) = "Booléen invalide : " `mappend` t +frenchFormMessage MsgBoolYes = "Oui" +frenchFormMessage MsgBoolNo = "Non" +frenchFormMessage MsgDelete = "Détruire ?" From e41a6aca80f250c21cae6d14e65f3b3a75b05f71 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?F=C3=A9lix?= Date: Wed, 11 Apr 2012 19:49:11 +0200 Subject: [PATCH 4/5] Fixed module informations for the french translation of form messages --- yesod-form/Yesod/Form/I18n/French.hs | 2 +- yesod-form/yesod-form.cabal | 1 + 2 files changed, 2 insertions(+), 1 deletion(-) diff --git a/yesod-form/Yesod/Form/I18n/French.hs b/yesod-form/Yesod/Form/I18n/French.hs index 3a34fa6f..f3db8653 100644 --- a/yesod-form/Yesod/Form/I18n/French.hs +++ b/yesod-form/Yesod/Form/I18n/French.hs @@ -1,5 +1,5 @@ {-# LANGUAGE OverloadedStrings #-} -module Yesod.Form.I18n.French where +module Yesod.Form.I18n.Frencih (frenchFormMessage) where import Yesod.Form.Types (FormMessage (..)) import Data.Monoid (mappend) diff --git a/yesod-form/yesod-form.cabal b/yesod-form/yesod-form.cabal index ecaa476e..40ba39a7 100644 --- a/yesod-form/yesod-form.cabal +++ b/yesod-form/yesod-form.cabal @@ -46,6 +46,7 @@ library Yesod.Form.I18n.Portuguese Yesod.Form.I18n.Swedish Yesod.Form.I18n.German + Yesod.Form.I18n.French -- FIXME Yesod.Helpers.Crud ghc-options: -Wall From 856a25c67ff141a0556136f673b6a79567e4828e Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?F=C3=A9lix?= Date: Wed, 11 Apr 2012 20:15:11 +0200 Subject: [PATCH 5/5] Frencih -> French --- yesod-form/Yesod/Form/I18n/French.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/yesod-form/Yesod/Form/I18n/French.hs b/yesod-form/Yesod/Form/I18n/French.hs index f3db8653..ce971ac4 100644 --- a/yesod-form/Yesod/Form/I18n/French.hs +++ b/yesod-form/Yesod/Form/I18n/French.hs @@ -1,5 +1,5 @@ {-# LANGUAGE OverloadedStrings #-} -module Yesod.Form.I18n.Frencih (frenchFormMessage) where +module Yesod.Form.I18n.French (frenchFormMessage) where import Yesod.Form.Types (FormMessage (..)) import Data.Monoid (mappend)