This module exposes all Length attributes (x, y, width, etc.) as em
-based
attributes. It's used as a shortcut so that it becomes unnecessary to prefix
each numeric length with the em
function.
Example:
import Html exposing (Html)
import Color
import TypedSvg exposing (svg, rect)
import TypedSvg.Attributes exposing (viewBox, fill, stroke)
import TypedSvg.Attributes.InEm exposing (x, y, width, height, strokeWidth)
type Msg
= NoOp
type alias Model =
Int
view : Model -> Html Msg
view model =
svg
[ viewBox 0 0 800 600
]
[ rect
[ x 15
, y 15
, width 20
, height 20
, fill Color.white
, strokeWidth 0.5
, stroke Color.black
]
[]
]
module TypedSvg.Attributes.InEm exposing (..)
{-| This module exposes all Length attributes (x, y, width, etc.) as `em`-based
attributes. It's used as a shortcut so that it becomes unnecessary to prefix
each numeric length with the `em` function.
Example:
import Html exposing (Html)
import Color
import TypedSvg exposing (svg, rect)
import TypedSvg.Attributes exposing (viewBox, fill, stroke)
import TypedSvg.Attributes.InEm exposing (x, y, width, height, strokeWidth)
type Msg
= NoOp
type alias Model =
Int
view : Model -> Html Msg
view model =
svg
[ viewBox 0 0 800 600
]
[ rect
[ x 15
, y 15
, width 20
, height 20
, fill Color.white
, strokeWidth 0.5
, stroke Color.black
]
[]
]
# Common Length Attributes
@docs x, y, r, width, height, strokeWidth
# Text
@docs fontSize, textLength
# Marker
@docs markerWidth, markerHeight
# Other
@docs cx, cy, dx, dy, fx, fy, rx, ry, x1, y1, x2, y2
-}
import TypedSvg.Core exposing (Attribute)
import TypedSvg.Types exposing (em)
import TypedSvg.Attributes as Attr
{-| -}
cx : Float -> Attribute msg
cx value =
Attr.cx (em value)
{-| -}
cy : Float -> Attribute msg
cy value =
Attr.cy (em value)
{-| -}
dx : Float -> Attribute msg
dx value =
Attr.dx (em value)
{-| -}
dy : Float -> Attribute msg
dy value =
Attr.dy (em value)
{-| -}
fontSize : Float -> Attribute msg
fontSize value =
Attr.fontSize (em value)
{-| -}
fx : Float -> Attribute msg
fx xAxisCoord =
Attr.fx (em xAxisCoord)
{-| -}
fy : Float -> Attribute msg
fy yAxisCoord =
Attr.fx (em yAxisCoord)
{-| -}
height : Float -> Attribute msg
height value =
Attr.height (em value)
{-| -}
markerHeight : Float -> Attribute msg
markerHeight value =
Attr.markerHeight (em value)
{-| -}
markerWidth : Float -> Attribute msg
markerWidth value =
Attr.markerWidth (em value)
{-| -}
r : Float -> Attribute msg
r value =
Attr.r (em value)
{-| -}
rx : Float -> Attribute msg
rx value =
Attr.rx (em value)
{-| -}
ry : Float -> Attribute msg
ry value =
Attr.ry (em value)
{-| -}
textLength : Float -> Attribute msg
textLength value =
Attr.textLength (em value)
{-| -}
strokeWidth : Float -> Attribute msg
strokeWidth value =
Attr.strokeWidth (em value)
{-| -}
width : Float -> Attribute msg
width value =
Attr.width (em value)
{-| -}
x : Float -> Attribute msg
x value =
Attr.x (em value)
{-| -}
x1 : Float -> Attribute msg
x1 value =
Attr.x1 (em value)
{-| -}
x2 : Float -> Attribute msg
x2 value =
Attr.x2 (em value)
{-| -}
y : Float -> Attribute msg
y value =
Attr.y (em value)
{-| -}
y1 : Float -> Attribute msg
y1 value =
Attr.y1 (em value)
{-| -}
y2 : Float -> Attribute msg
y2 value =
Attr.y2 (em value)