custom css for reactor

integration-tests
Josha von Gizycki 6 years ago
parent b3cf9ccd2f
commit 3551350908

@ -1,7 +1,8 @@
module Explore exposing (Msg(..), main, update, view) module Explore exposing (Msg(..), main, update, view)
import Browser import Browser
import Html exposing (Html, button, div, text) import Html exposing (Html, button, div, node, text)
import Html.Attributes exposing (type_)
import Html.Events exposing (onClick) import Html.Events exposing (onClick)
@ -23,9 +24,19 @@ update msg model =
model - 1 model - 1
withStyle html =
div []
[ node "style"
[ type_ "text/css" ]
[ text "@import url(/resources/public/css/app.css)" ]
, html
]
view model = view model =
div [] div []
[ button [ onClick Decrement ] [ text "-" ] [ button [ onClick Decrement ] [ text "-" ]
, div [] [ text (String.fromInt model) ] , div [] [ text (String.fromInt model) ]
, button [ onClick Increment ] [ text "+" ] , button [ onClick Increment ] [ text "+" ]
] ]
|> withStyle

Loading…
Cancel
Save