aboutsummaryrefslogtreecommitdiff
path: root/src/client/elm/Model/Translations.elm
blob: 9499dde993f05626d520a48976c07d5239b7e6b1 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
module Model.Translations exposing
  ( translationsDecoder
  , Translations
  , Translation
  , getMessage
  , getParamMessage
  )

import Maybe exposing (withDefault)
import Json.Decode as Json exposing ((:=))
import String

type alias Translations = List Translation

translationsDecoder : Json.Decoder Translations
translationsDecoder = Json.list translationDecoder

type alias Translation =
  { key : String
  , message : List MessagePart
  }

getTranslation : String -> Translations -> Maybe (List MessagePart)
getTranslation key translations =
  translations
    |> List.filter (\translation -> String.toLower translation.key == String.toLower key)
    |> List.head
    |> Maybe.map .message

translationDecoder : Json.Decoder Translation
translationDecoder =
  Json.object2 Translation
    ("key" := Json.string)
    ("message" := Json.list partDecoder)

type MessagePart =
  Order Int
  | Str String

partDecoder : Json.Decoder MessagePart
partDecoder =
  ("tag" := Json.string) `Json.andThen` partDecoderWithTag

partDecoderWithTag : String -> Json.Decoder MessagePart
partDecoderWithTag tag =
  case tag of
    "Order" -> Json.object1 Order ("contents" := Json.int)
    _ -> Json.object1 Str ("contents" := Json.string)

-----

getMessage : String -> Translations -> String
getMessage = getParamMessage []

getParamMessage : List String -> String -> Translations -> String
getParamMessage values key translations =
  getTranslation key translations
    |> Maybe.map (\parts -> String.concat (List.map (replacePart values) parts))
    |> withDefault key

replacePart : List String -> MessagePart -> String
replacePart values part =
  case part of
    Str str -> str
    Order n ->
      values
        |> List.drop (n - 1)
        |> List.head
        |> withDefault ("{" ++ (toString n) ++ "}")