mirror of
https://github.com/correl/elm-mdl.git
synced 2024-12-18 11:06:18 +00:00
58 lines
1.5 KiB
Elm
58 lines
1.5 KiB
Elm
|
module Material.Icon
|
||
|
( Size(..)
|
||
|
, view
|
||
|
, i
|
||
|
) where
|
||
|
|
||
|
{-| Convenience functions for producing Material Design Icons. Refer to
|
||
|
[the Material Design Icons page](https://google.github.io/material-design-icons),
|
||
|
or skip straight to the [Material Icons Library](https://design.google.com/icons/).
|
||
|
|
||
|
This implementation assumes that you have
|
||
|
|
||
|
<link href="https://fonts.googleapis.com/icon?family=Material+Icons"
|
||
|
rel="stylesheet">
|
||
|
|
||
|
or an equivalent means of loading the icons in your HTML header.
|
||
|
|
||
|
@docs i, Size, view
|
||
|
-}
|
||
|
|
||
|
|
||
|
import Html exposing (i, text, Html, Attribute)
|
||
|
import Html.Attributes exposing (class)
|
||
|
|
||
|
|
||
|
{-| Size of an icon. Constructors indicate their pixel size, i.e.,
|
||
|
`S18` is 18px. The constructor `S` gives you the default size, 24px.
|
||
|
-}
|
||
|
type Size
|
||
|
= S18 | S24 | S36 | S48 | S
|
||
|
|
||
|
|
||
|
{-| View function for icons. Supply the
|
||
|
(Material Icons Library)[https://design.google.com/icons/] name as
|
||
|
the first argument (replace spaces with underscores); and the size of the icon
|
||
|
as the second.
|
||
|
-}
|
||
|
view : String -> Size -> List Attribute -> Html
|
||
|
view name size attrs =
|
||
|
let
|
||
|
sz =
|
||
|
case size of
|
||
|
S18 -> " md-18"
|
||
|
S24 -> " md-24"
|
||
|
S36 -> " md-36"
|
||
|
S48 -> " md-48"
|
||
|
S -> ""
|
||
|
in
|
||
|
Html.i (class ("material-icons" ++ sz) :: attrs) [text name]
|
||
|
|
||
|
|
||
|
{-| Render a default-sized icon with no behaviour. The
|
||
|
`String` argument must be the name of a [Material Icon](https://design.google.com/icons/)
|
||
|
(replace spaces with underscores).
|
||
|
-}
|
||
|
i : String -> Html
|
||
|
i name = view name S []
|