NoRedInk/noredink-ui
1
1
Fork 0
mirror of https://github.com/NoRedInk/noredink-ui.git synced 2024-11-24 00:42:29 +03:00
Code Issues Packages Projects Releases Wiki Activity

Merge pull request #933 from NoRedInk/bat/side-nav-improvements

Browse Source 
Show other category links
This commit is contained in:
Tessa 2022-05-25 09:43:41 -07:00 committed by GitHub
commit 678ee10890
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 31 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

43
styleguide-app/App.elm
View File

@ -241,7 +241,7 @@ viewExample : Model key -> Example a Examples.Msg -> Html Msg
viewExample model example =
Example.view { packageDependencies = model.elliePackageDependencies } example
|> Html.map (UpdateModuleStates example.name)
|> withSideNav model.route
|> withSideNav model
notFound : Html Msg
@ -254,7 +254,7 @@ notFound =
viewAll : Model key -> Html Msg
viewAll model =
withSideNav model.route <|
withSideNav model <|
viewPreviews "all"
{ navigate = Routes.Doodad >> ChangeRoute
, exampleHref = Routes.Doodad >> Routes.toString
@ -264,7 +264,7 @@ viewAll model =
viewCategory : Model key -> Category -> Html Msg
viewCategory model category =
withSideNav model.route
withSideNav model
(model.moduleStates
|> Dict.values
|> List.filter
@ -280,8 +280,11 @@ viewCategory model category =
)
withSideNav : Route -> Html Msg -> Html Msg
withSideNav currentRoute content =
withSideNav :
{ model | route : Route, moduleStates : Dict String (Example Examples.State Examples.Msg) }
-> Html Msg
-> Html Msg
withSideNav model content =
Html.div
[ css
[ displayFlex
@ -291,7 +294,7 @@ withSideNav currentRoute content =
, margin auto
]
]
[ navigation currentRoute
[ navigation model
, Html.main_
[ css
[ flexGrow (int 1)
@ -302,7 +305,7 @@ withSideNav currentRoute content =
, Key.tabbable False
]
[ Html.div [ css [ Css.marginBottom (Css.px 30) ] ]
[ Routes.viewBreadCrumbs currentRoute
[ Routes.viewBreadCrumbs model.route
]
, content
]
@ -330,20 +333,36 @@ viewPreviews containerId navConfig examples =
]
navigation : Route -> Html Msg
navigation currentRoute =
navigation :
{ model | route : Route, moduleStates : Dict String (Example Examples.State Examples.Msg) }
-> Html Msg
navigation { moduleStates, route } =
let
examples =
Dict.values moduleStates
exampleEntriesForCategory category =
List.filter (\{ categories } -> List.any ((==) category) categories) examples
|> List.map
(\example ->
SideNav.entry example.name
[ SideNav.href (Routes.CategoryDoodad category example)
]
)
categoryNavLinks : List (SideNav.Entry Route Msg)
categoryNavLinks =
List.map
(\category ->
SideNav.entry (Category.forDisplay category)
[ SideNav.href (Routes.Category category) ]
SideNav.entryWithChildren (Category.forDisplay category)
[ SideNav.href (Routes.Category category)
]
(exampleEntriesForCategory category)
)
Category.all
in
SideNav.view
{ isCurrentRoute = (==) currentRoute
{ isCurrentRoute = (==) route
, routeToString = Routes.toString
, onSkipNav = SkipToMainContent
}