Moved to Giraffe View Engine

This commit is contained in:
2022-02-22 15:22:32 +10:00
parent b5a2514495
commit cb58262507
51 changed files with 284 additions and 1379 deletions

View File

@@ -1,16 +1,15 @@
module DredgePos.Authenticate.Controller
open Giraffe
open DredgeFramework
open Microsoft.AspNetCore.Http
open DredgePos.Global.Controller
let loadAuthenticatePage (): HttpHandler =
let variables = map ["title", "Log In"]
let scripts = ["dredgepos.authenticate.js"]
let styles = ["dredgepos.authenticate.css"]
let loadAuthenticatePage =
let scripts = [|"dredgepos.authenticate.js"|] |> addDefaultScripts
let styles = [|"dredgepos.authenticate.css"|] |> addDefaultStyles
let metaTags = [|"viewport", "user-scalable = no, initial-scale=0.8,maximum-scale=0.8 ,shrink-to-fit=yes"|] |> addDefaultMetaTags
Theme.loadTemplateWithVarsScriptsAndStyles "authenticate" variables scripts styles
|> htmlString
View.index scripts styles metaTags
let loginWithLoginCode (context: HttpContext) (login_code: int) =
if Model.clerkLogin login_code context then ajaxSuccess "success"