/
Message.purs
37 lines (28 loc) · 1.05 KB
/
Message.purs
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
-- | [Message](https://bulma.io/documentation/components/message/)
-- |
-- | Note: Following styles of messages are global
-- | and defined in `Bulma.Modifiers.Modifiers` only:
-- | * [Colors](https://bulma.io/documentation/components/message/#colors) (Use `isColor` of `Bulma.Modifiers.Modifiers`)
-- | * [Sizes](https://bulma.io/documentation/components/message/#sizes) (Use `isSize` of `Bulma.Modifiers.Modifiers`)
module Bulma.Components.Message
( message
, messageBody
, messageHeader
) where
import Prelude
import Bulma.Common (ClassName, ClassPart(..), joinClassParts, toClassName)
-- | `.message` class
message :: ClassName
message = toClassName messagePart
-- | `.message-header` class
messageHeader :: ClassName
messageHeader = messageClass $ ClassPart "header"
-- | `.message-body` class
messageBody :: ClassName
messageBody = messageClass $ ClassPart "body"
-- private helpers
messagePart :: ClassPart
messagePart = ClassPart "message"
messageClass :: ClassPart -> ClassName
messageClass cp =
toClassName $ joinClassParts [messagePart, cp]