view progression

This commit is contained in:
2022-03-07 21:36:38 +10:00
parent cc7d06e78b
commit a587423d3e
6 changed files with 123 additions and 6 deletions

View File

@@ -8,9 +8,7 @@ open Giraffe.ViewEngine
open DredgeFramework
let VisibleInMode (value: string list) = value |> jsonEncode |> (attr "data-visible-in-mode")
let InvisibleInMode (value: string list) = value |> jsonEncode |> (attr "data-invisible-in-mode")
let ActiveInMode (value: string) = value |> (attr "data-active-in-mode")
let pageContainer (clerk: clerk) roomMenu =