24 lines
752 B
Forth
24 lines
752 B
Forth
module DredgePos.Entities.Floorplan_Decorations.View
|
||
|
||
open Giraffe.ViewEngine
|
||
open DredgePos.Global.View
|
||
|
||
let decoratorItem (imageName, imageUrl) =
|
||
let image = attr "data-image"
|
||
div [_class "decoratorItem"; image imageUrl] [
|
||
a [_style $"background-image:url('/images/decorations/{imageUrl}')"] []
|
||
a [] [str imageName]
|
||
]
|
||
|
||
let decoratorRow decoratorItems = div [_class "decoratorRow"] [yield! decoratorItems]
|
||
|
||
let decorator (decorationRows: XmlNode[]) =
|
||
div [_id "decorator"] [
|
||
div [_id "decoratorHeader"] [
|
||
h2 [] [lang "choose_decoration"]
|
||
a [_class "posButton hideDecorator"] [str "×"]
|
||
]
|
||
div [_id "decoratorContent"] [
|
||
yield! decorationRows
|
||
]
|
||
] |