Add support for internationalization

messages/de.msg

@@ -0,0 +1,2 @@
+SummerTerm year@Integer: Sommersemester #{tshow year}
+WinterTerm year@Integer: Wintersemester #{tshow year}/#{tshow $ succ year}

src/Foundation.hs

@@ -92,6 +92,20 @@ data MenuTypes
 -- | A convenient synonym for creating forms.
 type Form x = Html -> MForm (HandlerT UniWorX IO) (FormResult x, Widget)
 
+mkMessage "UniWorX" "messages" "de"
+
+-- This instance is required to use forms. You can modify renderMessage to
+-- achieve customized and internationalized form validation messages.
+instance RenderMessage UniWorX FormMessage where
+    renderMessage _ _ = defaultFormMessage
+
+instance RenderMessage UniWorX TermIdentifier where
+  renderMessage foundation ls TermIdentifier{..} = case season of
+    Summer -> renderMessage' $ MsgSummerTerm year
+    Winter -> renderMessage' $ MsgWinterTerm year
+    where renderMessage' = renderMessage foundation ls
+
+
 -- Please see the documentation for the Yesod typeclass. There are a number
 -- of settings which can be configured by overriding methods here.
 instance Yesod UniWorX where
@@ -421,11 +435,6 @@ isAuthenticated = do
 
 instance YesodAuthPersist UniWorX
 
--- This instance is required to use forms. You can modify renderMessage to
--- achieve customized and internationalized form validation messages.
-instance RenderMessage UniWorX FormMessage where
-    renderMessage _ _ = defaultFormMessage
-
 -- Useful when writing code that is re-usable outside of the Handler context.
 -- An example is background jobs that send email.
 -- This can also be useful for writing code that works across multiple Yesod applications.

src/Model/Types.hs

@@ -25,7 +25,6 @@ import Data.Text (Text)
 import qualified Data.Text as Text
 
 import Text.Read (readMaybe)
-import Text.Shakespeare.I18N
 
 -- import Data.CaseInsensitive (CI)
 import qualified Data.CaseInsensitive as CI
@@ -133,9 +132,6 @@ instance ToJSON TermIdentifier where
 instance FromJSON TermIdentifier where
   parseJSON = withText "Term" $ either (fail . Text.unpack) return . termFromText
   
-instance RenderMessage site TermIdentifier where -- TODO: I18N
-  renderMessage _ _ = termToText
-
 {- Must be defined in a later module:
 termField :: Field (HandlerT UniWorX IO) TermIdentifier
 termField = checkMMap (return . termFromText) termToText textField