Initial application stub

modules/webapp/src/main/elm/Page/Home/Data.elm

@@ -0,0 +1,15 @@
+module Page.Home.Data exposing (..)
+
+import Http
+
+type alias Model =
+    {
+    }
+
+emptyModel: Model
+emptyModel  =
+    {
+    }
+
+type Msg
+    = Dummy

modules/webapp/src/main/elm/Page/Home/Update.elm

@@ -0,0 +1,9 @@
+module Page.Home.Update exposing (update)
+
+import Api
+import Data.Flags exposing (Flags)
+import Page.Home.Data exposing (..)
+
+update: Flags -> Msg -> Model -> (Model, Cmd Msg)
+update flags msg model =
+    (model, Cmd.none)

modules/webapp/src/main/elm/Page/Home/View.elm

@@ -0,0 +1,23 @@
+module Page.Home.View exposing (view)
+
+import Html exposing (..)
+import Html.Attributes exposing (..)
+import Html.Events exposing (onClick)
+
+import Page exposing (Page(..))
+import Page.Home.Data exposing (..)
+import Data.Flags
+
+view: Model -> Html Msg
+view model =
+    div [class "home-page ui fluid grid"]
+        [div [class "three wide column"]
+             [h3 [][text "Menu"]
+             ]
+        ,div [class "seven wide column", style "border-left" "1px solid"]
+             [h3 [][text "List"]
+             ]
+        ,div [class "six wide column", style "border-left" "1px solid", style "height" "100vh"]
+             [h3 [][text "DocView"]
+             ]
+        ]