Added French, German localizations to Bibtex converter.

See #98.
jgm · May 6, 2015 · 1cb1885 · 1cb1885
1 parent 43af193
commit 1cb1885
Showing 1 changed file with 72 additions and 0 deletions.
diff --git a/src/Text/CSL/Input/Bibtex.hs b/src/Text/CSL/Input/Bibtex.hs
@@ -366,6 +366,78 @@ resolveKey' (Lang "en" "US") k =
        "newseries"     -> "new series"
        "oldseries"     -> "old series"
        _               -> k
+resolveKey' (Lang "de" "DE") k =
+    case map toLower k of
+       "inpreparation" -> "in Vorbereitung"
+       "submitted"     -> "eingereicht"
+       "forthcoming"   -> "im Erscheinen"
+       "inpress"       -> "im Druck"
+       "prepublished"  -> "Vorveröffentlichung"
+       "mathesis"      -> "Magisterarbeit"
+       "phdthesis"     -> "Dissertation"
+       -- "candthesis" -> "" -- missing
+       "techreport"    -> "Technischer Bericht"
+       "resreport"     -> "Forschungsbericht"
+       "software"      -> "Computer-Software"
+       "datacd"        -> "CD-ROM"
+       "audiocd"       -> "Audio-CD"
+       "patent"        -> "Patent"
+       "patentde"      -> "deutsches Patent"
+       "patenteu"      -> "europäisches Patent"
+       "patentfr"      -> "französisches Patent"
+       "patentuk"      -> "britisches Patent"
+       "patentus"      -> "US-Patent"
+       "patreq"        -> "Patentanmeldung"
+       "patreqde"      -> "deutsche Patentanmeldung"
+       "patreqeu"      -> "europäische Patentanmeldung"
+       "patreqfr"      -> "französische Patentanmeldung"
+       "patrequk"      -> "britische Patentanmeldung"
+       "patrequs"      -> "US-Patentanmeldung"
+       "countryde"     -> "Deutschland"
+       "countryeu"     -> "Europäische Union"
+       "countryep"     -> "Europäische Union"
+       "countryfr"     -> "Frankreich"
+       "countryuk"     -> "Großbritannien"
+       "countryus"     -> "USA"
+       "newseries"     -> "neue Folge"
+       "oldseries"     -> "alte Folge"
+       _               -> k
+resolveKey' (Lang "fr" "FR") k =
+    case map toLower k of
+       "inpreparation" -> "en préparation"
+       "submitted"     -> "soumis"
+       "forthcoming"   -> "à paraître"
+       "inpress"       -> "sous presse"
+       "prepublished"  -> "prépublié"
+       "mathesis"      -> "mémoire de master"
+       "phdthesis"     -> "thèse de doctorat"
+       "candthesis"    -> "thèse de candidature"
+       "techreport"    -> "rapport technique"
+       "resreport"     -> "rapport scientifique"
+       "software"      -> "logiciel"
+       "datacd"        -> "cédérom"
+       "audiocd"       -> "disque compact audio"
+       "patent"        -> "brevet"
+       "patentde"      -> "brevet allemand"
+       "patenteu"      -> "brevet européen"
+       "patentfr"      -> "brevet français"
+       "patentuk"      -> "brevet britannique"
+       "patentus"      -> "brevet américain"
+       "patreq"        -> "demande de brevet"
+       "patreqde"      -> "demande de brevet allemand"
+       "patreqeu"      -> "demande de brevet européen"
+       "patreqfr"      -> "demande de brevet français"
+       "patrequk"      -> "demande de brevet britannique"
+       "patrequs"      -> "demande de brevet américain"
+       "countryde"     -> "Allemagne"
+       "countryeu"     -> "Union européenne"
+       "countryep"     -> "Union européenne"
+       "countryfr"     -> "France"
+       "countryuk"     -> "Royaume-Uni"
+       "countryus"     -> "États-Unis"
+       "newseries"     -> "nouvelle série"
+       "oldseries"     -> "ancienne série"
+       _               -> k
 resolveKey' _ k = resolveKey' (Lang "en" "US") k
 
 parseMonth :: String -> String