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
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
|
module Styles exposing (..)
import Css exposing (..)
import Css.Global exposing (global, selector)
import Html
import Html.Styled exposing (..)
styledButton : List (Attribute msg) -> List (Html msg) -> Html msg
styledButton =
styled
button
[ margin (px 12)
, color (hex "#000")
, fontFamily monospace
, backgroundColor (hex "#ddd")
, border (px 0)
, borderRadius (px 4)
, padding (px 12)
]
styledInput : List (Attribute msg) -> List (Html msg) -> Html msg
styledInput =
styled
input
[ margin (px 12)
, color (hex "#000")
, fontFamily monospace
, backgroundColor (hex "#eee")
, border (px 0)
, borderRadius (px 4)
, padding (px 12)
]
styledListItem : List (Attribute msg) -> List (Html msg) -> Html msg
styledListItem =
styled
li
[ display inline
]
styledUnorderedList : List (Attribute msg) -> List (Html msg) -> Html msg
styledUnorderedList =
styled
ul
[ listStyle Css.none
, padding (px 0)
]
styledTextBox : List (Attribute msg) -> List (Html msg) -> Html msg
styledTextBox =
styled
div
[ margin (px 12)
, color (hex "#000")
, fontFamily monospace
, backgroundColor (hex "#eee")
, border (px 0)
, borderRadius (px 4)
, padding (px 12)
, width (px 500)
, display inlineBlock
]
|