mirror of
https://github.com/fluencelabs/dashboard
synced 2024-12-04 23:30:20 +00:00
56 lines
1.3 KiB
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 ]
|