onasty: web/src/Components/Box.elm (7a1da0fa4be762f19bbb5136f14dcf26bdb922fd)

onasty/web/src/Components/Box.elm (view raw)

Olexandr Smirnov web: forgot password (#169)..., 10 months ago

module Components.Box exposing (error, success, successBox)

import Html as H exposing (Html)
import Html.Attributes as A


error : String -> Html msg
error errorMsg =
    H.div [ A.class "bg-red-50 border border-red-200 rounded-md p-4" ]
        [ H.p [ A.class "text-red-800 text-sm" ] [ H.text errorMsg ] ]


success : { header : String, body : String } -> Html msg
success opts =
    successBox
        [ H.div [ A.class "font-medium text-green-800 mb-2" ] [ H.text opts.header ]
        , H.p [ A.class "text-green-800 text-sm" ] [ H.text opts.body ]
        ]


successBox : List (Html msg) -> Html msg
successBox child =
    H.div [ A.class "bg-green-50 border border-green-200 rounded-md p-4" ] child

1	module Components.Box exposing (error, success, successBox)
2
3	import Html as H exposing (Html)
4	import Html.Attributes as A
5
6
7	error : String -> Html msg
8	error errorMsg =
9	H.div [ A.class "bg-red-50 border border-red-200 rounded-md p-4" ]
10	[ H.p [ A.class "text-red-800 text-sm" ] [ H.text errorMsg ] ]
11
12
13	success : { header : String, body : String } -> Html msg
14	success opts =
15	successBox
16	[ H.div [ A.class "font-medium text-green-800 mb-2" ] [ H.text opts.header ]
17	, H.p [ A.class "text-green-800 text-sm" ] [ H.text opts.body ]
18	]
19
20
21	successBox : List (Html msg) -> Html msg
22	successBox child =
23	H.div [ A.class "bg-green-50 border border-green-200 rounded-md p-4" ] child