Starting a more modular approach for the website.

1 files changed, 0 insertions, 52 deletions

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)
-         )
-      )
-   )