summaryrefslogtreecommitdiff
path: root/elm
diff options
context:
space:
mode:
authorYorhel <git@yorhel.nl>2020-07-08 13:26:06 +0200
committerYorhel <git@yorhel.nl>2020-07-08 13:26:06 +0200
commitf102034bfdc068b6fd002a90b7ffc36c164a9215 (patch)
treeec09478abe8b0f2c4313a8a75668df37afb45ad2 /elm
parentc741fcd9d48301ac1bc33019a21e67c976c4b932 (diff)
VN::Edit: Fix some errors + title/alias warnings & normalization
Diffstat (limited to 'elm')
-rw-r--r--elm/VNEdit.elm16
1 files changed, 13 insertions, 3 deletions
diff --git a/elm/VNEdit.elm b/elm/VNEdit.elm
index 0764c167..cfa00e56 100644
--- a/elm/VNEdit.elm
+++ b/elm/VNEdit.elm
@@ -277,20 +277,30 @@ view : Model -> Html Msg
view model =
let
geninfo =
- [ formField "title::Title (romaji)" [ inputText "title" model.title Title GVE.valTitle ]
+ [ formField "title::Title (romaji)"
+ [ inputText "title" model.title Title (style "width" "500px" :: GVE.valTitle)
+ , if containsNonLatin model.title
+ then b [ class "standout" ] [ br [] [], text "This title field should only contain latin-alphabet characters, please put the \"actual\" title in the field below and the romanization above." ]
+ else text ""
+ ]
, formField "original::Original title"
- [ inputText "original" model.original Title GVE.valOriginal
+ [ inputText "original" model.original Original (style "width" "500px" :: GVE.valOriginal)
, if model.title /= "" && model.title == model.original
then b [ class "standout" ] [ br [] [], text "Should not be the same as the Title (romaji). Leave blank is the original title is already in the latin alphabet" ]
+ else if model.original /= "" && String.toLower model.title /= String.toLower model.original && not (containsNonLatin model.original)
+ then b [ class "standout" ] [ br [] [], text "Original title does not seem to contain any non-latin characters. Leave this field empty if the title is already in the latin alphabet" ]
else text ""
]
, formField "alias::Aliases"
[ inputTextArea "alias" model.alias Alias (rows 3 :: GVE.valAlias)
, br [] []
+ , if hasDuplicates <| String.lines <| String.toLower model.alias
+ then b [ class "standout" ] [ text "List contains duplicate aliases.", br [] [] ]
+ else text ""
+ -- TODO: Warn when release titles are entered?
, text "List of alternative titles or abbreviations. One line for each alias. Can include both official (japanese/english) titles and unofficial titles used around net."
, br [] []
, text "Titles that are listed in the releases should not be added here!"
- -- TODO: Compare & warn when release title is listed as alias
]
, formField "desc::Description"
[ TP.view "desc" model.desc Desc 600 (style "height" "180px" :: GVE.valDesc) [ b [ class "standout" ] [ text "English please!" ] ]