Elm version 0.19 のstyle属性


このエントリーをはてなブックマークに追加

久しぶりにElm触ってみたら以前とちょくちょく変わっていた

今回はcss当てるstyleのところ

Elm練習してみる2 | ぬわーーーーーーー!!!

以前はmyStyleみたいなので定義していた書き方を

今だと下記みたいな感じになるみたい

Html.Attributes - html 1.0.0

なので, tutorialのreverseサンプルにCSS当てたやつを書き直してみたのが下記

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
import Browser
import Html exposing (Html, Attribute, div, input, text)
import Html.Attributes exposing (..)
import Html.Events exposing (onInput)
-- MAIN
main =
Browser.sandbox { init = init, update = update, view = view }
-- Model
type alias Model =
{ content : String
}
init : Model
init =
{ content = "" }
-- UPDATE
type Msg
= Change String
update : Msg -> Model -> Model
update msg model =
case msg of
Change newContent ->
{ model | content = newContent }
-- VIEW
view : Model -> Html Msg
view model =
div []
[ input [ placeholder "Text to reverse", value model.content, onInput Change ][]
, div myStyle [ text (String.reverse model.content)]
, div myStyle [ text (String.repeat 3 model.content)]
, div myStyle [ text (String.replace " " "-" model.content) ]
, div myStyle [ text (String.append "ABC" model.content)]
]
myStyle =
[ style "width" "100%"
, style "height" "40px"
, style "padding" "10px 0"
, style "font-size" "2em"
, style "text-align" "center"
]

このエントリーをはてなブックマークに追加