bit-badger/myWebLog
1
0
Fork 0
Code Issues 4 Pull Requests Packages Projects Releases 11 Activity

Fix "add category" button (#40)

Browse Source
This commit is contained in:
Daniel J. Summers 2024-03-16 22:00:42 -04:00
parent 4301788344
commit 31d49d4b1a
2 changed files with 12 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/MyWebLog/Handlers/Admin.fs
View File

@ -96,7 +96,7 @@ module Category =
// GET /admin/categories // GET /admin/categories
let all : HttpHandler = fun next ctx -> let all : HttpHandler = fun next ctx ->
adminPage "Categories" true next ctx Views.WebLog.categoryList adminPage "Categories" true next ctx (Views.WebLog.categoryList (ctx.Request.Query.ContainsKey "new"))
// GET /admin/category/{id}/edit // GET /admin/category/{id}/edit
let edit catId : HttpHandler = fun next ctx -> task { let edit catId : HttpHandler = fun next ctx -> task {

18
src/MyWebLog/Views/WebLog.fs
View File

@ -51,7 +51,7 @@ let categoryEdit (model: EditCategoryModel) app =
/// Category list page /// Category list page
let categoryList app = [ let categoryList includeNew app = [
let catCol = "col-12 col-md-6 col-xl-5 col-xxl-4" let catCol = "col-12 col-md-6 col-xl-5 col-xxl-4"
let descCol = "col-12 col-md-6 col-xl-7 col-xxl-8" let descCol = "col-12 col-md-6 col-xl-7 col-xxl-8"
let categoryDetail (cat: DisplayCategory) = let categoryDetail (cat: DisplayCategory) =
@ -84,6 +84,8 @@ let categoryList app = [
match cat.Description with Some value -> raw value | None -> em [ _class "text-muted" ] [ raw "none" ] match cat.Description with Some value -> raw value | None -> em [ _class "text-muted" ] [ raw "none" ]
] ]
] ]
let loadNew =
span [ _hxGet (relUrl app "admin/category/new/edit"); _hxTrigger HxTrigger.Load; _hxSwap HxSwap.OuterHtml ] []
h2 [ _class "my-3" ] [ raw app.PageTitle ] h2 [ _class "my-3" ] [ raw app.PageTitle ]
article [] [ article [] [
@ -92,11 +94,13 @@ let categoryList app = [
] ]
div [ _id "catList"; _class "container" ] [ div [ _id "catList"; _class "container" ] [
if app.Categories.Length = 0 then if app.Categories.Length = 0 then
div [ _id "cat_new" ] [ if includeNew then loadNew
p [ _class "text-muted fst-italic text-center" ] [ else
raw "This web log has no categories defined" div [ _id "cat_new" ] [
p [ _class "text-muted fst-italic text-center" ] [
raw "This web log has no categories defined"
]
] ]
]
else else
div [ _class "container" ] [ div [ _class "container" ] [
div [ _class "row mwl-table-heading" ] [ div [ _class "row mwl-table-heading" ] [
@ -108,7 +112,7 @@ let categoryList app = [
// don't think we need this... // don't think we need this...
// _hxTarget "#catList"; _hxSwap $"{HxSwap.OuterHtml} show:window:top" // _hxTarget "#catList"; _hxSwap $"{HxSwap.OuterHtml} show:window:top"
antiCsrf app antiCsrf app
div [ _class "row mwl-table-detail"; _id "cat_new" ] [] div [ _class "row mwl-table-detail"; _id "cat_new" ] [ if includeNew then loadNew ]
yield! app.Categories |> Seq.ofArray |> Seq.map categoryDetail |> List.ofSeq yield! app.Categories |> Seq.ofArray |> Seq.map categoryDetail |> List.ofSeq
] ]
] ]
@ -173,7 +177,7 @@ let dashboard (model: DashboardModel) app = [
a [ _href (relUrl app "admin/categories"); _class "btn btn-secondary me-2" ] [ a [ _href (relUrl app "admin/categories"); _class "btn btn-secondary me-2" ] [
raw "View All" raw "View All"
] ]
a [ _href (relUrl app "admin/category/new/edit"); _class "btn btn-secondary" ] [ a [ _href (relUrl app "admin/categories?new"); _class "btn btn-secondary" ] [
raw "Add a New Category" raw "Add a New Category"
] ]
] ]