Adds premium display examples ot CC

This commit is contained in:
Tessa Kelly 2024-01-22 18:10:50 -07:00
parent 5d3e388977
commit 49592c7ceb

View File

@ -18,6 +18,7 @@ import EllieLink
import Example exposing (Example)
import Html.Styled.Attributes exposing (css)
import Nri.Ui.Colors.V1 as Colors
import Nri.Ui.Data.PremiumDisplay as PremiumDisplay
import Nri.Ui.Heading.V3 as Heading
import Nri.Ui.SideNav.V5 as SideNav
import Nri.Ui.Spacing.V1 as Spacing
@ -201,6 +202,56 @@ view ellieLinkConfig state =
, SideNav.entry "Sham Assignment" []
]
]
, Heading.h2
[ Heading.plaintext "Premium Display"
, Heading.css [ Css.marginTop Spacing.verticalSpacerPx ]
]
, SideNav.view
{ isCurrentRoute = \route -> route == "/subchildren-unlocked"
, routeToString = identity
, onSkipNav = SkipToContent
}
[ SideNav.navLabel "Premium Display"
, SideNav.navId "premium-display-sidenav"
]
(premiumDisplayEntries "/"
++ [ SideNav.entryWithChildren "As subchildren"
[]
(premiumDisplayEntries "/subchildren")
, SideNav.compactGroup "In a compact group"
[]
(premiumDisplayEntries "/compact")
]
)
]
premiumDisplayEntries : String -> List (SideNav.Entry String Msg)
premiumDisplayEntries hrefPrefix =
[ SideNav.entry "Free"
[ SideNav.premiumDisplay
PremiumDisplay.Free
(ConsoleLog "Clicked Free SideNav Entry")
, SideNav.href (hrefPrefix ++ "-free")
]
, SideNav.entry "Unlocked"
[ SideNav.premiumDisplay
PremiumDisplay.PremiumUnlocked
(ConsoleLog "Clicked PremiumUnlocked SideNav Entry")
, SideNav.href (hrefPrefix ++ "-unlocked")
]
, SideNav.entry "Locked"
[ SideNav.premiumDisplay
PremiumDisplay.PremiumLocked
(ConsoleLog "Clicked PremiumLocked SideNav Entry")
, SideNav.href (hrefPrefix ++ "-locked")
]
, SideNav.entry "Vouchered"
[ SideNav.premiumDisplay
PremiumDisplay.PremiumVouchered
(ConsoleLog "Clicked PremiumVouchered SideNav Entry")
, SideNav.href (hrefPrefix ++ "-vouchered")
]
]