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 ]