Starting a more modular approach for the website.

1 files changed, 0 insertions, 41 deletions

diff --git a/elm/battlemap/src/Model/SelectCharacter.elm b/elm/battlemap/src/Model/SelectCharacter.elm
deleted file mode 100644
index 7cc2102..0000000
--- a/elm/battlemap/src/Model/SelectCharacter.elm
+++ /dev/null
@@ -1,41 +0,0 @@
-module Model.SelectCharacter exposing (apply_to)
-
-import Dict
-
-import Character
-
-import Battlemap
-
-import Model
-import Error
-
-make_it_so : Model.Type -> Character.Ref -> Model.Type
-make_it_so model char_id =
-   case (Dict.get char_id model.characters) of
-      (Just char) ->
-            {model |
-               state = Model.MovingCharacterWithClick,
-               selection = (Model.SelectedCharacter char_id),
-               battlemap =
-                  (Battlemap.set_navigator
-                     (Character.get_location char)
-                     (Character.get_movement_points char)
-                     (Character.get_attack_range char)
-                     (\e -> True) -- TODO: check for characters.
-                     model.battlemap
-                  )
-            }
-
-      Nothing ->
-         (Model.invalidate
-            model
-            (Error.new
-               Error.Programming
-               "SelectCharacter: Unknown char selected."
-            )
-         )
-
-apply_to : Model.Type -> Character.Ref -> Model.Type
-apply_to model char_id =
-   case (Model.get_state model) of
-      _ -> (make_it_so model char_id)