22 lines
715 B
Text
22 lines
715 B
Text
-- | `WARNING:` tiles are deprecated since Bulma 1.0.
|
|
module Web.Tile where
|
|
|
|
import Prelude (($), (<>))
|
|
|
|
import Halogen.HTML as HH
|
|
import Halogen.HTML.Properties as HP
|
|
|
|
import CSSClasses as C
|
|
|
|
tile :: forall w i. Array HH.ClassName -> Array (HH.HTML w i) -> HH.HTML w i
|
|
tile classes = HH.div [HP.classes ([C.tile] <> classes)]
|
|
|
|
tile_ :: forall w i. Array (HH.HTML w i) -> HH.HTML w i
|
|
tile_ = tile []
|
|
|
|
tile_danger :: forall w i. Array HH.ClassName -> Array (HH.HTML w i) -> HH.HTML w i
|
|
tile_danger classes = tile $ [C.is_danger, C.notification] <> classes
|
|
|
|
tile_warning :: forall w i. Array HH.ClassName -> Array (HH.HTML w i) -> HH.HTML w i
|
|
tile_warning classes = tile $ [C.is_warning, C.notification] <> classes
|
|
|