diff --git a/src/Element.elm b/src/Element.elm index 7c2c77d..425eea1 100644 --- a/src/Element.elm +++ b/src/Element.elm @@ -1143,6 +1143,8 @@ link attrs { url, label } = (classes.contentCenterX ++ " " ++ classes.contentCenterY + ++ " " + ++ classes.link ) :: attrs ) @@ -1166,7 +1168,13 @@ newTabLink attrs { url, label } = :: Internal.Attr (Html.Attributes.target "_blank") :: width shrink :: height shrink - :: Internal.htmlClass (classes.contentCenterX ++ " " ++ classes.contentCenterY) + :: Internal.htmlClass + (classes.contentCenterX + ++ " " + ++ classes.contentCenterY + ++ " " + ++ classes.link + ) :: attrs ) (Internal.Unkeyed [ label ]) diff --git a/src/Internal/Style.elm b/src/Internal/Style.elm index f24def5..6175238 100644 --- a/src/Internal/Style.elm +++ b/src/Internal/Style.elm @@ -253,6 +253,9 @@ classes = , inputText = "it" , inputMultiline = "iml" , inputMultilineParent = "imlp" + + -- link + , link = "lnk" } @@ -1222,15 +1225,16 @@ baseSheet = , Descriptor (dot classes.widthExact) [ Prop "flex-basis" "auto" ] + , Descriptor (dot classes.link) + [ Prop "flex-basis" "auto" + ] ] , Child (dot classes.heightFill) - [ --Prop "height" "100%" - -- alignTop, centerY, and alignBottom need to be disabled + [ -- alignTop, centerY, and alignBottom need to be disabled Prop "align-self" "stretch !important" ] , Child (dot classes.heightFillPortion) - [ --Prop "height" "100%" - -- alignTop, centerY, and alignBottom need to be disabled + [ -- alignTop, centerY, and alignBottom need to be disabled Prop "align-self" "stretch !important" ]