git.iko.soy/typeable/elm-ui
on master help sign in
remove custom logic on visibility of radio.
40ac5d9Matthew Griffith
src/Element/Input.elm+1−87
compare with master
unifiedsplit
@@ -1501,92 +1501,6 @@ radioHelper orientation attrs input =
1501 AfterFound ->
1501 AfterFound ->
1502 ( found, prev, nxt )
1502 ( found, prev, nxt )
1503
1503
1504− inputVisible =
1505− List.isEmpty <|
1506− Internal.get attrs <|
1507− \attr ->
1508− case attr of
1509− Internal.StyleClass _ (Internal.Transparency _ _) ->
1510− True
1511−
1512− Internal.Class _ "hidden" ->
1513− True
1514−
1515− _ ->
1516− False
1517−
1518− labelVisible =
1519− case input.label of
1520− Label _ labelAttrs _ ->
1521− List.isEmpty <|
1522− Internal.get labelAttrs <|
1523− \attr ->
1524− case attr of
1525− Internal.StyleClass _ (Internal.Transparency _ _) ->
1526− True
1527−
1528− Internal.Class _ "hidden" ->
1529− True
1530−
1531− _ ->
1532− False
1533−
1534− HiddenLabel _ ->
1535− True
1536−
1537− hideIfEverythingisInvisible =
1538− if not labelVisible && not inputVisible then
1539− let
1540− pseudos =
1541− List.filterMap
1542− (\attr ->
1543− case attr of
1544− Internal.StyleClass _ style ->
1545− case style of
1546− Internal.PseudoSelector pseudo styles ->
1547− let
1548− transparent =
1549− List.filter forTransparency styles
1550−
1551− forTransparency psuedoStyle =
1552− case psuedoStyle of
1553− Internal.Transparency _ _ ->
1554− True
1555−
1556− _ ->
1557− False
1558−
1559− flag =
1560− case pseudo of
1561− Internal.Hover ->
1562− Flag.hover
1563−
1564− Internal.Focus ->
1565− Flag.focus
1566−
1567− Internal.Active ->
1568− Flag.active
1569− in
1570− case transparent of
1571− [] ->
1572− Nothing
1573−
1574− _ ->
1575− Just <| Internal.StyleClass flag <| Internal.PseudoSelector pseudo transparent
1576−
1577− _ ->
1578− Nothing
1579−
1580− _ ->
1581− Nothing
1582− )
1583− attrs
1584− in
1585− Internal.StyleClass Flag.transparency (Internal.Transparency "transparent" 1.0) :: pseudos
1586−
1587− else
1588− []
1589−
1590 events =
1504 events =
1591 Internal.get
1505 Internal.get
1592 attrs
1506 attrs
@@ -1647,7 +1561,7 @@ radioHelper orientation attrs input =
1647 )
1561 )
1648 ]
1562 ]
1649 ++ events
1563 ++ events
1650− ++ hideIfEverythingisInvisible
1564+ -- ++ hideIfEverythingisInvisible
1651 )
1565 )
1652 input.label
1566 input.label
1653 optionArea
1567 optionArea