Splits client and server into two repositories.

2 files changed, 0 insertions, 78 deletions

diff --git a/client/elm/battlemap/src/View/Controls.elm b/client/elm/battlemap/src/View/Controls.elm
deleted file mode 100644
index be698bf..0000000
--- a/client/elm/battlemap/src/View/Controls.elm
+++ /dev/null
@@ -1,36 +0,0 @@
-module View.Controls exposing (view)
-
-import Html
-import Html.Events
-
-import Battlemap.Direction
-
-import Event
-
-direction_button : Battlemap.Direction.Type -> String -> (Html.Html Event.Type)
-direction_button dir label =
-   (Html.button
-      [
-         (Html.Events.onClick
-            (Event.DirectionRequest dir)
-         )
-      ]
-      [ (Html.text label) ]
-   )
-
-end_turn_button : (Html.Html Event.Type)
-end_turn_button =
-   (Html.button
-      [ (Html.Events.onClick Event.EndTurn) ]
-      [ (Html.text "End Turn") ]
-   )
-
-view : (List (Html.Html Event.Type))
-view =
-   [
-      (direction_button Battlemap.Direction.Left "Left"),
-      (direction_button Battlemap.Direction.Down "Down"),
-      (direction_button Battlemap.Direction.Up "Up"),
-      (direction_button Battlemap.Direction.Right "Right"),
-      (end_turn_button)
-   ]
diff --git a/client/elm/battlemap/src/View/Status.elm b/client/elm/battlemap/src/View/Status.elm
deleted file mode 100644
index a7beb28..0000000
--- a/client/elm/battlemap/src/View/Status.elm
+++ /dev/null
@@ -1,42 +0,0 @@
-module View.Status exposing (view)
-
-import Dict
-
-import Html
-
-import Error
-import Event
-import Model
-
-moving_character_text : Model.Type -> String
-moving_character_text model =
-   case model.selection of
-      Nothing -> "Error: no model.selection."
-      (Just selection) ->
-         case (Dict.get selection.character model.characters) of
-            Nothing -> "Error: Unknown character selected."
-            (Just char) ->
-               (
-                  "Controlling "
-                  ++ char.name
-                  ++ ": "
-                  ++ (toString selection.navigator.remaining_points)
-                  ++ "/"
-                  ++ (toString char.movement_points)
-                  ++ " movement points remaining."
-               )
-
-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."
-         (Model.Error Error.Programming) ->
-            "Error of programming, please report."
-         (Model.Error Error.IllegalAction) ->
-            "This cannot be done while in this state."
-      )
-   )