diff options
Diffstat (limited to 'src/Styles.elm')
-rw-r--r-- | src/Styles.elm | 29 |
1 files changed, 28 insertions, 1 deletions
diff --git a/src/Styles.elm b/src/Styles.elm index db5b0ce..7b2eea7 100644 --- a/src/Styles.elm +++ b/src/Styles.elm | |||
@@ -1,3 +1,21 @@ | |||
1 | {- | ||
2 | - This file is part of `typers`. | ||
3 | - | ||
4 | - `typers` is free software: you can redistribute it and/or modify | ||
5 | - it under the terms of the GNU Affero Public License as published by | ||
6 | - the Free Software Foundation, either version 3 of the License, or | ||
7 | - (at your option) any later version. | ||
8 | - | ||
9 | - `typers` is distributed in the hope that it will be useful, | ||
10 | - but WITHOUT ANY WARRANTY; without even the implied warranty of | ||
11 | - MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | ||
12 | - GNU Affero Public License for more details. | ||
13 | - | ||
14 | - You should have received a copy of the GNU Affero Public License | ||
15 | - along with `typers`. If not, see <https://www.gnu.org/licenses/>. | ||
16 | -} | ||
17 | |||
18 | |||
1 | module Styles exposing (..) | 19 | module Styles exposing (..) |
2 | 20 | ||
3 | import Base exposing (WordStatus(..)) | 21 | import Base exposing (WordStatus(..)) |
@@ -16,7 +34,7 @@ styledButton = | |||
16 | , paddingTop (px 12) | 34 | , paddingTop (px 12) |
17 | , paddingBottom (px 12) | 35 | , paddingBottom (px 12) |
18 | , paddingLeft (px 0) | 36 | , paddingLeft (px 0) |
19 | , paddingRight (px 12) | 37 | , paddingRight (px 0) |
20 | , fontFamily monospace | 38 | , fontFamily monospace |
21 | , border (px 0) | 39 | , border (px 0) |
22 | , backgroundColor (hex "#fff") | 40 | , backgroundColor (hex "#fff") |
@@ -68,6 +86,15 @@ styledUnorderedList = | |||
68 | ] | 86 | ] |
69 | 87 | ||
70 | 88 | ||
89 | styledExternalLink : List (Attribute msg) -> List (Html msg) -> Html msg | ||
90 | styledExternalLink = | ||
91 | styled | ||
92 | a | ||
93 | [ textDecoration underline | ||
94 | , color (hex "#666") | ||
95 | ] | ||
96 | |||
97 | |||
71 | styledTextBox : List (Attribute msg) -> List (Html msg) -> Html msg | 98 | styledTextBox : List (Attribute msg) -> List (Html msg) -> Html msg |
72 | styledTextBox = | 99 | styledTextBox = |
73 | styled | 100 | styled |