src/roster-editor/src/View/Controlled.elm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36

module View.Controlled exposing (get_html)

-- Elm -------------------------------------------------------------------------
import Html
import Html.Attributes
import Html.Lazy

-- Roster Editor ---------------------------------------------------------------
import Struct.Event
import Struct.Model

import Util.Html

import View.CharacterCard

--------------------------------------------------------------------------------
-- LOCAL -----------------------------------------------------------------------
--------------------------------------------------------------------------------

--------------------------------------------------------------------------------
-- EXPORTED --------------------------------------------------------------------
--------------------------------------------------------------------------------
get_html : Struct.Model.Type -> (Html.Html Struct.Event.Type)
get_html model =
   case model.edited_char of
      Nothing -> (Util.Html.nothing)
      (Just char) ->
         (Html.div
            [(Html.Attributes.class "controlled")]
            [
               (Html.Lazy.lazy
                  (View.CharacterCard.get_full_html)
                  char
               )
            ]
         )