NoRedInk/noredink-ui
1
1
Fork 0
mirror of https://github.com/NoRedInk/noredink-ui.git synced 2025-01-04 12:47:53 +03:00
Code Issues Packages Projects Releases Wiki Activity

🎨 DRY link code slighlty

Browse Source
This commit is contained in:
Tessa Kelly 2019-05-03 09:45:43 -07:00
parent e741eb588f
commit 196bece147
1 changed files with 18 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

45
styleguide-app/View.elm
View File

@ -104,33 +104,24 @@ navigation route =
_ ->
False
categoryLink active hash displayName =
Html.styled Html.a
[ backgroundColor transparent
, borderStyle none
, textDecoration none
, if active then
color Colors.navy
else
color Colors.azure
]
[ Attributes.href hash ]
[ Html.text displayName ]
navLink category =
Html.styled Html.a
[ backgroundColor transparent
, borderStyle none
, if isActive category then
color Colors.navy
else
color Colors.azure
, textDecoration none
]
[ Attributes.href <| "#category/" ++ Debug.toString category ]
[ Html.text (categoryForDisplay category) ]
allLink =
Html.styled Html.a
[ backgroundColor transparent
, borderStyle none
, if route == Routes.All then
color Colors.navy
else
color Colors.azure
, textDecoration none
]
[ Attributes.href "#" ]
[ Html.text "All" ]
categoryLink (isActive category)
("#category/" ++ Debug.toString category)
(categoryForDisplay category)
toNavLi element =
Html.li
@ -154,7 +145,7 @@ navigation route =
[]
[ Headings.h4
[ Html.text "Categories" ]
, (allLink
, (categoryLink (route == Routes.All) "#" "All"
:: List.map
navLink
[ Messaging