stub for i18nWidgetFile created and used

models/users

@@ -1,3 +1,4 @@
+-- Some comments needes
 User json
     ident          (CI Text)
     authentication AuthenticationMode

src/Handler/Home.hs

@@ -192,7 +192,7 @@ getImpressumR :: Handler Html
 getImpressumR = -- do
   siteLayoutMsg' MsgMenuImpressum $ do
     setTitleI MsgImpressumHeading
-    $(widgetFile "impressum")
+    $(i18nWidgetFile "imprint")
 
 
 -- | Hinweise zu Datenschutz und Aufbewahrungspflichten
@@ -200,7 +200,7 @@ getDataProtR :: Handler Html
 getDataProtR = -- do
   siteLayoutMsg' MsgMenuDataProt $ do
     setTitleI MsgDataProtHeading
-    $(widgetFile "data-protection-de")
+    $(i18nWidgetFile "data-protection")
 
 
 -- | Allgemeine Informationen
@@ -280,8 +280,7 @@ getInfoLecturerR :: Handler Html
 getInfoLecturerR =
   siteLayoutMsg' MsgInfoLecturerTitle $ do
     setTitleI MsgInfoLecturerTitle
-    -- TODO: Translation. This is simply too much for a simple message and too akwward to cut into bits. Create i18nWidgetFile tool.
-    $(widgetFile "infoLecturer")
+    $(i18nWidgetFile "info-lecturer")
 
 
 getAuthPredsR, postAuthPredsR :: Handler Html

src/Handler/Utils.hs

@@ -8,6 +8,9 @@ import qualified Data.Text as T
 -- import qualified Data.Set (Set)
 import qualified Data.Set as Set
 
+import Language.Haskell.TH (Q, Exp)
+-- import Language.Haskell.TH.Datatype
+
 import Handler.Utils.DateTime as Handler.Utils
 import Handler.Utils.Form as Handler.Utils
 import Handler.Utils.Table as Handler.Utils
@@ -70,3 +73,12 @@ warnTermDays tid times = do
   forM_ outoflecture  $ warnI MsgDayIsOutOfLecture
   forM_ outoftermdays $ warnI MsgDayIsOutOfTerm
 
+-- | Add language dependent template files
+--   For large files which are translated as a whole.
+--   Argument musst be a directory under templates,
+--   which contains a file for each language,
+--   eg. /templates/imprint/de.hamlet and /templates/imprint/en.hamlet
+i18nWidgetFile :: FilePath -> Q Exp
+i18nWidgetFile =
+  -- TODO write code to distinguish languages here
+  widgetFile . (</> "de")

templates/data-protection/de.hamlet

@@ -73,7 +73,7 @@
     <h4>Welche Daten werden erhoben
     Der Webserver protokolliert
     <ul>
-      <li>Pseudonymisierte IP-Adresse des Webclients des Nutzers dieses Dienstes
+      <li>IP-Adresse des Webclients des Nutzers dieses Dienstes
       <li>Datum und Uhrzeit des Abrufs eines Elementes der Webseite
       <li>Adresse des abgerufenen Elementes
       <li>übertragene Datenmenge