Japanese translation

modules/webapp/src/main/elm/Language.elm

@@ -8,11 +8,13 @@ type Language
     = English
     | German
     | French
+    | Japanese
 
 
 allLanguages : List Language
 allLanguages =
     [ English
     , German
     , French
+    , Japanese
     ]

modules/webapp/src/main/elm/Messages.elm

@@ -53,6 +53,9 @@ get lang =
         French ->
             fr
 
+        Japanese ->
+            ja
+
 
 {-| Get a ISO-3166-1 code of the given lanugage.
 -}
@@ -160,3 +163,23 @@ fr =
     , newInvite = Messages.NewInvitePage.fr
     , settings = Messages.SettingsPage.fr
     }
+
+
+ja : Messages
+ja =
+    { lang = Japanese
+    , iso2 = "ja"
+    , label = "日本語"
+    , flagIcon = "flag-icon flag-icon-jp"
+    , app = Messages.App.ja
+    , login = Messages.LoginPage.ja
+    , register = Messages.RegisterPage.ja
+    , account = Messages.AccountPage.ja
+    , aliasPage = Messages.AliasPage.ja
+    , detail = Messages.DetailPage.ja
+    , share = Messages.SharePage.ja
+    , home = Messages.HomePage.ja
+    , upload = Messages.UploadPage.ja
+    , newInvite = Messages.NewInvitePage.ja
+    , settings = Messages.SettingsPage.ja
+    }

modules/webapp/src/main/elm/Messages/AccountForm.elm

@@ -3,6 +3,7 @@ module Messages.AccountForm exposing
     , de
     , fr
     , gb
+    , ja
     )
 
 import Messages.FixedDropdown
@@ -70,3 +71,19 @@ fr =
     , yesNo = Messages.YesNoDimmer.gb
     , dropdown = Messages.FixedDropdown.fr
     }
+
+
+ja : Texts
+ja =
+    { id = "ID"
+    , login = "ログイン"
+    , state = "状態"
+    , admin = "管理者"
+    , password = "パスワード"
+    , submit = "保存"
+    , back = "戻る"
+    , delete = "削除"
+    , email = "メール"
+    , yesNo = Messages.YesNoDimmer.ja
+    , dropdown = Messages.FixedDropdown.ja
+    }

modules/webapp/src/main/elm/Messages/AccountPage.elm

@@ -3,6 +3,7 @@ module Messages.AccountPage exposing
     , de
     , gb
     , fr
+    , ja
     )
 
 import Messages.AccountForm
@@ -49,3 +50,14 @@ fr =
     , accountForm = Messages.AccountForm.fr
     , accountTable = Messages.AccountTable.fr
     }
+
+
+ja : Texts
+ja =
+    { createAccountTitle = "アカウントの新規作成"
+    , accounts = "アカウント"
+    , searchPlaceholder = "検索…"
+    , newAccount = "アカウントの新規作成"
+    , accountForm = Messages.AccountForm.ja
+    , accountTable = Messages.AccountTable.ja
+    }

modules/webapp/src/main/elm/Messages/AccountTable.elm

@@ -3,6 +3,7 @@ module Messages.AccountTable exposing
     , de
     , fr
     , gb
+    , ja
     )
 
 import Language
@@ -70,3 +71,18 @@ fr =
     , edit = "Éditer"
     , dateTime = formatDateTime Language.French
     }
+
+
+ja : Texts
+ja =
+    { login = "ログイン"
+    , source = "ソース"
+    , state = "状態"
+    , nrShares = "共有数"
+    , admin = "管理者"
+    , nrLogins = "ログイン回数"
+    , lastLogin = "最終ログイン"
+    , created = "作成日時"
+    , edit = "編集"
+    , dateTime = formatDateTime Language.Japanese
+    }

modules/webapp/src/main/elm/Messages/AliasForm.elm

@@ -3,6 +3,7 @@ module Messages.AliasForm exposing
     , de
     , fr
     , gb
+    , ja
     )
 
 import Html exposing (..)
@@ -107,3 +108,27 @@ fr =
     , yesNo = Messages.YesNoDimmer.fr
     , validityField = Messages.ValidityField.fr
     }
+
+
+ja : Texts
+ja =
+    { id = "ID"
+    , noteToIdsHead = "ID について"
+    , noteToIds =
+        p []
+            [ text "ID は、だれもがファイルをアップロードできる URL の一部になります。"
+            , text "無作為なものを使うことをおすすめします。"
+            , text "空欄にしておくことで自動生成します。"
+            ]
+    , name = "受信箱名"
+    , validity = "有効期限"
+    , enabled = "有効"
+    , submit = "保存"
+    , back = "戻る"
+    , delete = "削除"
+    , searchPlaceholder = "検索…"
+    , members = "共同編集ユーザー"
+    , memberInfo = "この受信箱を共同作業するユーザーです。この受信箱を共有したり、ここにアップロードされたファイルのすべてを見ることができます。"
+    , yesNo = Messages.YesNoDimmer.ja
+    , validityField = Messages.ValidityField.ja
+    }

modules/webapp/src/main/elm/Messages/AliasPage.elm

@@ -3,6 +3,7 @@ module Messages.AliasPage exposing
     , de
     , fr
     , gb
+    , ja
     )
 
 import Messages.AliasForm
@@ -91,3 +92,24 @@ fr =
     , aliasTable = Messages.AliasTable.fr
     , mailSend = Messages.MailSend.fr
     }
+
+
+ja : Texts
+ja =
+    { createNew = "受信箱の新規作成"
+    , aliasPage = "受信箱 : "
+    , aliasPages = "あなたの受信箱"
+    , newAliasPage = "受信箱の新規作成"
+    , searchPlaceholder = "検索..."
+    , errorQrCode = "QR コードの生成でエラーが発生しました。"
+    , shareThisLink = "このリンクを共有"
+    , aliasPageNowAt = "この受信箱への URL : "
+    , shareThisUrl = "この URL を共有することで、相手からファイルを受信できます。"
+    , sendEmail = "メール送信"
+    , copyLink = "リンクをコピー"
+    , owner = "所有者"
+    , notOwnerInfo = "この受信箱はほかのユーザーが所有していますが、あなたと共同作業しています。情報の変更は所有者でなければできません。"
+    , aliasForm = Messages.AliasForm.ja
+    , aliasTable = Messages.AliasTable.ja
+    , mailSend = Messages.MailSend.ja
+    }

modules/webapp/src/main/elm/Messages/AliasTable.elm

@@ -3,6 +3,7 @@ module Messages.AliasTable exposing
     , de
     , fr
     , gb
+    , ja
     )
 
 import Language
@@ -63,3 +64,17 @@ fr =
     , validityField = Messages.ValidityField.fr
     , dateTime = Messages.DateFormat.formatDateTime Language.French
     }
+
+
+ja : Texts
+ja =
+    { name = "受信箱名"
+    , enabled = "有効"
+    , validity = "有効期限"
+    , created = "作成日時"
+    , edit = "編集"
+    , show = "表示"
+    , owner = "所有者"
+    , validityField = Messages.ValidityField.ja
+    , dateTime = Messages.DateFormat.formatDateTime Language.Japanese
+    }

modules/webapp/src/main/elm/Messages/App.elm

@@ -3,6 +3,7 @@ module Messages.App exposing
     , de
     , fr
     , gb
+    , ja
     )
 
 
@@ -71,3 +72,20 @@ fr =
     , logoutSharry = "Déconnexion de Sharry"
     , logoutOAuth = "Déconnexion de votre fournisseur d'authentification"
     }
+
+
+ja : Texts
+ja =
+    { home = "ホーム"
+    , shares = "共有"
+    , aliases = "受信箱"
+    , accounts = "アカウント"
+    , settings = "設定"
+    , newInvites = "招待"
+    , logout = \user -> "ログアウト (" ++ user ++ ")"
+    , login = "ログイン"
+    , register = "登録"
+    , lightDark = "ライト / ダーク"
+    , logoutSharry = "ログアウト"
+    , logoutOAuth = "認証プロバイダーからログアウト"
+    }

modules/webapp/src/main/elm/Messages/DateFormat.elm

@@ -28,6 +28,8 @@ get lang =
         French ->
             fr
 
+        Japanese ->
+            ja
 
 formatDateTime : Language -> Int -> String
 formatDateTime lang millis =
@@ -102,6 +104,23 @@ fr =
     }
 
 
+ja : DateTimeMsg
+ja =
+    { format =
+        [ DateFormat.yearNumber
+        , DateFormat.text "年 "
+        , DateFormat.monthNameFull
+        , DateFormat.text " "
+        , DateFormat.dayOfMonthNumber
+        , DateFormat.text "日"
+        , DateFormat.dayOfWeekNameAbbreviated
+        , DateFormat.text " "
+        , DateFormat.hourMilitaryNumber
+        , DateFormat.text ":"
+        , DateFormat.minuteFixed
+        ]
+    , lang = japanese
+    }
 
 --- Languages for the DateFormat module
 -- French
@@ -319,6 +338,84 @@ toGermanWeekdayName weekday =
         Sun ->
             "Sonntag"
 
+-- Japanese
+{-| The Japanese language!
+-}
+japanese : DL.Language
+japanese =
+    let
+        withoutDot str =
+            str ++ ""
+    in
+    DL.Language
+        toJapaneseMonthName
+        (toJapaneseMonthName >> String.left 3 >> withoutDot)
+        toJapaneseWeekdayName
+        (toJapaneseWeekdayName >> String.left 3 >> withoutDot)
+        toEnglishAmPm
+        (\_ -> ".")
+toJapaneseMonthName : Month -> String
+toJapaneseMonthName month =
+    case month of
+        Jan ->
+            "1月"
+
+        Feb ->
+            "2月"
+
+        Mar ->
+            "3月"
+
+        Apr ->
+            "4月"
+
+        May ->
+            "5月"
+
+        Jun ->
+            "6月"
+
+        Jul ->
+            "7月"
+
+        Aug ->
+            "8月"
+
+        Sep ->
+            "9月"
+
+        Oct ->
+            "10月"
+
+        Nov ->
+            "11月"
+
+        Dec ->
+            "12月"
+
+toJapaneseWeekdayName : Weekday -> String
+toJapaneseWeekdayName weekday =
+    case weekday of
+        Mon ->
+            "(月)"
+
+        Tue ->
+            "(火)"
+
+        Wed ->
+            "(水)"
+
+        Thu ->
+            "(木)"
+
+        Fri ->
+            "(金)"
+
+        Sat ->
+            "(土)"
+
+        Sun ->
+            "(日)"
 
 
 --- Copy from DateFormat.Language