dashboard/src_storybook/Explorer.elm

56 lines
1.3 KiB
Elm

module Explorer exposing (main)
import Blueprints.BlueprintTile
import Html exposing (div)
import Html.Attributes exposing (attribute, style)
import UIExplorer
exposing
( UIExplorerProgram
, category
, createCategories
, defaultConfig
, explore
, exploreWithCategories
, storiesOf
)
config =
defaultConfig
main : UIExplorerProgram {} () {} {}
main =
exploreWithCategories
config
(createCategories
|> category
"Hub"
[]
|> category
"Blueprints"
[ storiesOf
"Tile"
[ let
model =
{ name = "String"
, author = "String"
, numberOfInstances = 10
, id = "String"
}
in
( "Blueprint tile", \_ -> wrapper {} (Blueprints.BlueprintTile.view model), {} )
]
]
)
wrapper opts x =
div
[ style "height" "500px"
, style "width" "500px"
, style "background" "#F4F4F4"
, style "padding" "50px"
]
[ x ]