Slight refactoring to button action attributes

This commit is contained in:
dredgy
2022-07-07 15:42:40 +10:00
parent ac30d8147e
commit 9558074c4f
4 changed files with 18 additions and 14 deletions

View File

@@ -7,12 +7,11 @@ let attr = Giraffe.ViewEngine.HtmlElements.attr
let getItemActionAttributes (itemCode: string) =
let item = Entity.GetFirstByColumn<item> "code" (StringTrim itemCode)
[(attr "data-item") <| jsonEncode item]
[item |> jsonEncode |> attr "data-item"]
let getGridActionAttributes (gridId: int) = [(attr "data-grid") <| jsonEncode gridId]
let getActionAttributes (action: string) (actionValue: string) =
match action with
| "item" -> getItemActionAttributes actionValue
| "grid" -> actionValue |> int |> getGridActionAttributes