summaryrefslogtreecommitdiff |
diff options
author | nsensfel <SpamShield0@noot-noot.org> | 2018-03-20 18:04:39 +0100 |
---|---|---|
committer | nsensfel <SpamShield0@noot-noot.org> | 2018-03-20 18:04:39 +0100 |
commit | 7a49310e8d1909201d790e61297caeed0145b0c3 (patch) | |
tree | 5e9c2a5d5dd0f8d1e43d16c62b16c6b4fbcf6a79 /src/altar/src/ElmModule/View.elm | |
parent | ce67d4a66521cd5b3e573ef71ea23d4c60e06d49 (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.elm | 54 |
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) + ] + ) + ] + ) |