NoRedInk/noredink-ui
1
1
Fork 0
mirror of https://github.com/NoRedInk/noredink-ui.git synced 2024-12-02 23:52:22 +03:00
Code Issues Packages Projects Releases Wiki Activity

Remove helpers

Browse Source
This commit is contained in:
Tessa Kelly 2019-04-04 11:41:26 -07:00
parent 4faffae6db
commit fcbebfaa32
1 changed files with 22 additions and 35 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

57
src/Nri/Ui/Checkbox/V5.elm
View File

@ -118,47 +118,34 @@ viewWithLabel model =
buildCheckbox : Model msg -> (String -> Html.Html msg) -> Html.Html msg
buildCheckbox model labelView =
case model.theme of
Square ->
viewSquareCheckbox model labelView
Locked ->
viewLockedCheckbox model labelView
viewSquareCheckbox : Model msg -> (String -> Html.Html msg) -> Html.Html msg
viewSquareCheckbox model labelView =
let
icon =
case model.selected of
Selected ->
checkboxChecked
NotSelected ->
checkboxUnchecked
PartiallySelected ->
checkboxCheckedPartially
in
checkboxContainer model
[ viewCheckbox model
, if model.disabled then
viewDisabledLabel model labelView icon
, case model.theme of
Square ->
let
icon =
case model.selected of
Selected ->
checkboxChecked
else
viewEnabledLabel model labelView icon
]
NotSelected ->
checkboxUnchecked
PartiallySelected ->
checkboxCheckedPartially
in
if model.disabled then
viewDisabledLabel model labelView icon
viewLockedCheckbox : Model msg -> (String -> Html.Html msg) -> Html.Html msg
viewLockedCheckbox model labelView =
checkboxContainer model
[ viewCheckbox model
, if model.disabled then
viewDisabledLabel model labelView checkboxLockOnInside
else
viewEnabledLabel model labelView icon
else
viewEnabledLabel model labelView checkboxLockOnInside
Locked ->
if model.disabled then
viewDisabledLabel model labelView checkboxLockOnInside
else
viewEnabledLabel model labelView checkboxLockOnInside
]