From e008855086d124f0de14eacc858ecb57d23e371c Mon Sep 17 00:00:00 2001 From: nsensfel Date: Thu, 19 Oct 2017 13:30:40 +0200 Subject: Starting a more modular approach for the website. --- elm/battlemap/src/View/Status.elm | 52 --------------------------------------- 1 file changed, 52 deletions(-) delete mode 100644 elm/battlemap/src/View/Status.elm (limited to 'elm/battlemap/src/View/Status.elm') diff --git a/elm/battlemap/src/View/Status.elm b/elm/battlemap/src/View/Status.elm deleted file mode 100644 index de2a167..0000000 --- a/elm/battlemap/src/View/Status.elm +++ /dev/null @@ -1,52 +0,0 @@ -module View.Status exposing (view) - -import Dict - -import Html - -import Battlemap -import Character - -import Error -import Event -import Model - -moving_character_text : Model.Type -> String -moving_character_text model = - case model.selection of - (Model.SelectedCharacter char_id) -> - case (Dict.get char_id model.characters) of - Nothing -> "Error: Unknown character selected." - (Just char) -> - ( - "Controlling " - ++ char.name - ++ ": " - ++ (toString - (Battlemap.get_navigator_remaining_points - model.battlemap - ) - ) - ++ "/" - ++ (toString (Character.get_movement_points char)) - ++ " movement points remaining." - ) - _ -> "Error: model.selection does not match its state." - -view : Model.Type -> (Html.Html Event.Type) -view model = - (Html.text - ( - (case model.state of - Model.Default -> "Click on a character to control it." - Model.MovingCharacterWithButtons -> (moving_character_text model) - Model.MovingCharacterWithClick -> (moving_character_text model) - Model.FocusingTile -> "Error: Unimplemented." - ) - ++ " " ++ - (case model.error of - Nothing -> "" - (Just error) -> (Error.to_string error) - ) - ) - ) -- cgit v1.2.3-70-g09d2