dillonkearns/elm-pages-v3-beta
1
1
Fork 0
mirror of https://github.com/dillonkearns/elm-pages-v3-beta.git synced 2024-12-25 04:43:03 +03:00
Code Issues Packages Projects Releases Wiki Activity

Use Route helper function.

Browse Source
This commit is contained in:
Dillon Kearns 2022-08-16 16:04:18 -07:00
parent ab1344113c
commit fe3c46c8be
1 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
examples/todos/app/Route/Visibility__.elm
View File

@ -806,11 +806,11 @@ viewControlsFilters : Visibility -> Html (Pages.Msg.Msg Msg)
viewControlsFilters visibility =
ul
[ class "filters" ]
[ visibilitySwap "/" All visibility
[ visibilitySwap Nothing All visibility
, text " "
, visibilitySwap "/active" Active visibility
, visibilitySwap (Just "active") Active visibility
, text " "
, visibilitySwap "/completed" Completed visibility
, visibilitySwap (Just "completed") Completed visibility
]
@ -827,12 +827,14 @@ visibilityToString visibility =
"Completed"
visibilitySwap : String -> Visibility -> Visibility -> Html (Pages.Msg.Msg Msg)
visibilitySwap uri visibility actualVisibility =
visibilitySwap : Maybe String -> Visibility -> Visibility -> Html (Pages.Msg.Msg Msg)
visibilitySwap visibilityParam visibility actualVisibility =
li
[]
[ a [ href uri, classList [ ( "selected", visibility == actualVisibility ) ] ]
[ visibility |> visibilityToString |> text ]
[ Route.Visibility__ { visibility = visibilityParam }
|> Route.link
[ classList [ ( "selected", visibility == actualVisibility ) ] ]
[ visibility |> visibilityToString |> text ]
]