summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authornsensfel <SpamShield0@noot-noot.org>2018-03-20 18:04:39 +0100
committernsensfel <SpamShield0@noot-noot.org>2018-03-20 18:04:39 +0100
commit7a49310e8d1909201d790e61297caeed0145b0c3 (patch)
tree5e9c2a5d5dd0f8d1e43d16c62b16c6b4fbcf6a79 /src/altar/src/ElmModule/View.elm
parentce67d4a66521cd5b3e573ef71ea23d4c60e06d49 (diff)
Starting to work on the Altar page.altar
Diffstat (limited to 'src/altar/src/ElmModule/View.elm')
-rw-r--r--src/altar/src/ElmModule/View.elm54
1 files changed, 54 insertions, 0 deletions
diff --git a/src/altar/src/ElmModule/View.elm b/src/altar/src/ElmModule/View.elm
new file mode 100644
index 0000000..63e382f
--- /dev/null
+++ b/src/altar/src/ElmModule/View.elm
@@ -0,0 +1,54 @@
+module ElmModule.View exposing (view)
+
+-- Elm -------------------------------------------------------------------------
+import Html
+import Html.Attributes
+
+-- Battlemap -------------------------------------------------------------------
+import Struct.Event
+import Struct.Model
+
+import View.Battlemap
+import View.SideBar
+import View.Footer
+
+--------------------------------------------------------------------------------
+-- LOCAL -----------------------------------------------------------------------
+--------------------------------------------------------------------------------
+
+--------------------------------------------------------------------------------
+-- EXPORTED --------------------------------------------------------------------
+--------------------------------------------------------------------------------
+view : Struct.Model.Type -> (Html.Html Struct.Event.Type)
+view model =
+ (Html.div
+ [
+ (Html.Attributes.class "fullscreen-module")
+ ]
+ [
+ (Html.div
+ [
+ (Html.Attributes.class "battlemap-left-panel")
+ ]
+ [
+ (Html.div
+ [
+ (Html.Attributes.class "battlemap-container")
+ ]
+ [
+ (View.Battlemap.get_html model)
+ ]
+ ),
+ (View.Footer.get_html model)
+ ]
+ ),
+ (Html.div
+ [
+ (Html.Attributes.class "battlemap-right-panel")
+ ]
+ [
+ (View.SideBar.get_html model)
+ ]
+ )
+ ]
+ )