NoRedInk/noredink-ui
1
1
Fork 0
mirror of https://github.com/NoRedInk/noredink-ui.git synced 2024-12-21 04:31:30 +03:00
Code Issues Packages Projects Releases Wiki Activity

lift eventsAndValues into internalConfig

Browse Source
This commit is contained in:
Alex Perkins 2021-11-19 17:10:16 -05:00
parent 647967d1b2
commit 2db0f5a6af
1 changed files with 14 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
src/Nri/Ui/RadioButton/V3.elm
View File

@ -289,7 +289,6 @@ view label attributes =
type alias InternalConfig value msg =
{ -- user specified Attributes
name : String
, valueToString : value -> String
, label : String
, teacherPremiumLevel : Maybe PremiumLevel
, contentPremiumLevel : Maybe PremiumLevel
@ -297,8 +296,12 @@ type alias InternalConfig value msg =
, describedByIds : List String
-- user specified messages and values TODO unpack eventsAndValues
, eventsAndValues : EventsAndValues value msg
, value : value
, selectedValue : Maybe value
, onSelect : Maybe (value -> msg)
, valueToString : value -> String
, premiumMsg : Maybe msg
, disclosedContent : List (Html msg)
-- computed values that both view helpers need
, isChecked : Bool
@ -328,14 +331,17 @@ makeInternalConfig label config eventsAndValues =
in
Just
{ name = name_
, valueToString = valueToString_
, label = label
, teacherPremiumLevel = config.teacherPremiumLevel
, contentPremiumLevel = config.contentPremiumLevel
, isDisabled = config.isDisabled
, describedByIds = config.describedByIds
, eventsAndValues = eventsAndValues
, value = value_
, selectedValue = eventsAndValues.selectedValue
, onSelect = eventsAndValues.onSelect
, valueToString = valueToString_
, premiumMsg = eventsAndValues.premiumMsg
, disclosedContent = eventsAndValues.disclosedContent
, isChecked = isChecked
, isLocked =
case ( config.contentPremiumLevel, config.teacherPremiumLevel ) of
@ -392,7 +398,7 @@ viewBlock internalConfig =
internalConfig.isChecked
[ id internalConfig.id
, Widget.disabled (internalConfig.isLocked || internalConfig.isDisabled)
, case ( internalConfig.eventsAndValues.onSelect, internalConfig.isDisabled ) of
, case ( internalConfig.onSelect, internalConfig.isDisabled ) of
( Just onSelect_, False ) ->
onClick (onSelect_ internalConfig.value)
@ -474,7 +480,7 @@ viewBlock internalConfig =
, ClickableSvg.css [ marginLeft (px 8) ]
]
)
internalConfig.eventsAndValues.premiumMsg
internalConfig.premiumMsg
]
]
, viewJust
@ -507,7 +513,7 @@ viewInline internalConfig =
internalConfig.isChecked
[ id internalConfig.id
, Widget.disabled (internalConfig.isLocked || internalConfig.isDisabled)
, case ( internalConfig.eventsAndValues.onSelect, internalConfig.isDisabled ) of
, case ( internalConfig.onSelect, internalConfig.isDisabled ) of
( Just onSelect_, False ) ->
onClick (onSelect_ internalConfig.value)
@ -593,7 +599,7 @@ viewInline internalConfig =
, ClickableSvg.css [ marginLeft (px 8) ]
]
)
internalConfig.eventsAndValues.premiumMsg
internalConfig.premiumMsg
]
]
, viewJust