upgrade TextArea to new InputStyles

This commit is contained in:
Brian Hicks 2020-06-22 15:51:20 -05:00
parent 31312eefda
commit f455c2b670
2 changed files with 10 additions and 2 deletions

View File

@ -11,7 +11,6 @@ src/Nri/Ui/SlideModal/V2.elm,Nri.Ui.Text,2
src/Nri/Ui/TextInput/V6.elm,Nri.Ui.InputStyles,2
src/Nri/Ui/SortableTable/V1.elm,Nri.Ui.Table,4
src/Nri/Ui/AssignmentIcon/V1.elm,Nri.Ui.AssignmentIcon,1
src/Nri/Ui/TextArea/V4.elm,Nri.Ui.InputStyles,2
src/Nri/Ui/Button/V8.elm,Html,DEPRECATED
src/Nri/Ui/Button/V5.elm,Nri.Ui.Icon,3
src/Nri/Ui/SegmentedControl/V6.elm,Nri.Ui.Icon,3

1 filename name version
11 src/Nri/Ui/TextInput/V6.elm Nri.Ui.InputStyles 2
12 src/Nri/Ui/SortableTable/V1.elm Nri.Ui.Table 4
13 src/Nri/Ui/AssignmentIcon/V1.elm Nri.Ui.AssignmentIcon 1
src/Nri/Ui/TextArea/V4.elm Nri.Ui.InputStyles 2
14 src/Nri/Ui/Button/V8.elm Html DEPRECATED
15 src/Nri/Ui/Button/V5.elm Nri.Ui.Icon 3
16 src/Nri/Ui/SegmentedControl/V6.elm Nri.Ui.Icon 3

View File

@ -29,7 +29,7 @@ import Html.Styled as Html exposing (Html)
import Html.Styled.Attributes as Attributes
import Html.Styled.Events as Events
import Nri.Ui.Html.Attributes.V2 as Extra
import Nri.Ui.InputStyles.V2 as InputStyles
import Nri.Ui.InputStyles.V3 as InputStyles
exposing
( Theme(..)
, input
@ -103,6 +103,9 @@ view_ theme model =
Standard ->
InputStyles.textAreaHeight
UserGenerated ->
InputStyles.textAreaHeight
ContentCreation ->
InputStyles.textAreaHeight
@ -180,6 +183,9 @@ calculateMinHeight textAreaStyle specifiedHeight =
Standard ->
singleLineHeight
UserGenerated ->
singleLineHeight
Writing ->
writingSingleLineHeight
@ -191,6 +197,9 @@ calculateMinHeight textAreaStyle specifiedHeight =
Standard ->
InputStyles.textAreaHeight
UserGenerated ->
InputStyles.textAreaHeight
Writing ->
InputStyles.writingMinHeight