view progression

Global/View.fs

@@ -1,12 +1,18 @@
 module DredgePos.Global.View
 
-open Giraffe.ViewEngine
 open DredgeFramework
+open Giraffe.ViewEngine
 
 let Value = attr "data-value"
+
+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 innerText = str
 let lang key =  language.get key |> str
 
+let template = tag "template"
+
 let scriptToHTML (scriptFile: string) =
     let scriptPath = $"/scripts/{scriptFile}"
     match FileExists ("wwwroot" + scriptPath) with
@@ -89,6 +95,10 @@ let keyboards = [|
     alert
 |]
 
+let posButton (extraClasses: string) attrs content =
+    let allAttrs = [_class $"posButton {extraClasses}"] |> List.append attrs
+    a allAttrs content
+
 let HtmlPage pageTitle scripts styles tags content =
     html [] [
         head [] [