mirror of
https://github.com/mdgriffith/elm-ui.git
synced 2024-10-27 02:11:31 +03:00
add Font.variantList. Hold back Font.with for the moment.
This commit is contained in:
Matthew Griffith
parent
775abeef0c
commit
8d7339088a
@ -1,11 +1,11 @@
|
||||
module Element.Font exposing
|
||||
( color, size
|
||||
, family, Font, typeface, serif, sansSerif, monospace
|
||||
, external, with, sizeByCapital, full
|
||||
, external
|
||||
, alignLeft, alignRight, center, justify, letterSpacing, wordSpacing
|
||||
, underline, strike, italic, unitalicized
|
||||
, heavy, extraBold, bold, semiBold, medium, regular, light, extraLight, hairline
|
||||
, Variant, variant, smallCaps, slashedZero, ligatures, ordinal, tabularNumbers, stackedFractions, diagonalFractions, swash, feature, indexed
|
||||
, Variant, variant, variantList, smallCaps, slashedZero, ligatures, ordinal, tabularNumbers, stackedFractions, diagonalFractions, swash, feature, indexed
|
||||
, glow, shadow
|
||||
)
|
||||
|
||||
@ -36,24 +36,7 @@ module Element.Font exposing
|
||||
|
||||
@docs family, Font, typeface, serif, sansSerif, monospace
|
||||
|
||||
@docs external, with, sizeByCapital, full
|
||||
|
||||
`Font.external` can be used to import font files. Let's say you found a neat font on <http://fonts.google.com>:
|
||||
|
||||
import Element
|
||||
import Element.Font as Font
|
||||
|
||||
view =
|
||||
Element.el
|
||||
[ Font.family
|
||||
[ Font.external
|
||||
{ name = "Roboto"
|
||||
, url = "https://fonts.googleapis.com/css?family=Roboto"
|
||||
}
|
||||
, Font.sansSerif
|
||||
]
|
||||
]
|
||||
(Element.text "Woohoo, I'm stylish text")
|
||||
@docs external
|
||||
|
||||
|
||||
## Alignment and Spacing
|
||||
@ -73,7 +56,7 @@ module Element.Font exposing
|
||||
|
||||
## Variants
|
||||
|
||||
@docs Variant, variant, smallCaps, slashedZero, ligatures, ordinal, tabularNumbers, stackedFractions, diagonalFractions, swash, feature, indexed
|
||||
@docs Variant, variant, variantList, smallCaps, slashedZero, ligatures, ordinal, tabularNumbers, stackedFractions, diagonalFractions, swash, feature, indexed
|
||||
|
||||
|
||||
## Shadows
|
||||
@ -96,7 +79,13 @@ type alias Font =
|
||||
{-| -}
|
||||
color : Color -> Attr decorative msg
|
||||
color fontColor =
|
||||
Internal.StyleClass Flag.fontColor (Internal.Colored ("fc-" ++ Internal.formatColorClass fontColor) "color" fontColor)
|
||||
Internal.StyleClass
|
||||
Flag.fontColor
|
||||
(Internal.Colored
|
||||
("fc-" ++ Internal.formatColorClass fontColor)
|
||||
"color"
|
||||
fontColor
|
||||
)
|
||||
|
||||
|
||||
{-|
|
||||
@ -116,7 +105,12 @@ color fontColor =
|
||||
-}
|
||||
family : List Font -> Attribute msg
|
||||
family families =
|
||||
Internal.StyleClass Flag.fontFamily <| Internal.FontFamily (List.foldl Internal.renderFontClassName "ff-" families) families
|
||||
Internal.StyleClass
|
||||
Flag.fontFamily
|
||||
(Internal.FontFamily
|
||||
(List.foldl Internal.renderFontClassName "ff-" families)
|
||||
families
|
||||
)
|
||||
|
||||
|
||||
{-| -}
|
||||
@ -155,8 +149,7 @@ type alias Adjustment =
|
||||
{-| -}
|
||||
with :
|
||||
{ name : String
|
||||
, adjustment : Adjustment
|
||||
, url : Maybe String
|
||||
, adjustment : Maybe Adjustment
|
||||
, variants : List Variant
|
||||
}
|
||||
-> Font
|
||||
@ -176,7 +169,30 @@ full =
|
||||
Internal.htmlClass classes.fullSize
|
||||
|
||||
|
||||
{-| -}
|
||||
{-| **Note** it's likely that `Font.external` will cause a flash on your page on loading.
|
||||
|
||||
To bypass this, import your fonts using a separate stylesheet and just use `Font.typeface`.
|
||||
|
||||
It's likely that `Font.external` will be removed or redesigned in the future to avoid the flashing.
|
||||
|
||||
`Font.external` can be used to import font files. Let's say you found a neat font on <http://fonts.google.com>:
|
||||
|
||||
import Element
|
||||
import Element.Font as Font
|
||||
|
||||
view =
|
||||
Element.el
|
||||
[ Font.family
|
||||
[ Font.external
|
||||
{ name = "Roboto"
|
||||
, url = "https://fonts.googleapis.com/css?family=Roboto"
|
||||
}
|
||||
, Font.sansSerif
|
||||
]
|
||||
]
|
||||
(Element.text "Woohoo, I'm stylish text")
|
||||
|
||||
-}
|
||||
external : { url : String, name : String } -> Font
|
||||
external { url, name } =
|
||||
Internal.ImportFont name url
|
||||
@ -364,9 +380,7 @@ type alias Variant =
|
||||
]
|
||||
(text "rendered with smallcaps")
|
||||
|
||||
**Note** These will **not** stack. If you want multiple variants, you should use `Font.with`.
|
||||
|
||||
If you specify a font variant on an element, then it will override all variants listed in `Font.with`.
|
||||
**Note** These will **not** stack. If you want multiple variants, you should use `Font.variantList`.
|
||||
|
||||
-}
|
||||
variant : Variant -> Attribute msg
|
||||
@ -385,6 +399,54 @@ variant var =
|
||||
("\"" ++ name ++ "\" " ++ String.fromInt index)
|
||||
|
||||
|
||||
isSmallCaps x =
|
||||
case x of
|
||||
Internal.VariantActive feat ->
|
||||
feat == "smcp"
|
||||
|
||||
_ ->
|
||||
False
|
||||
|
||||
|
||||
{-| -}
|
||||
variantList : List Variant -> Attribute msg
|
||||
variantList vars =
|
||||
let
|
||||
features =
|
||||
vars
|
||||
|> List.map Internal.renderVariant
|
||||
|
||||
hasSmallCaps =
|
||||
List.any isSmallCaps vars
|
||||
|
||||
name =
|
||||
if hasSmallCaps then
|
||||
vars
|
||||
|> List.map Internal.variantName
|
||||
|> String.join "-"
|
||||
|> (\x -> x ++ "-sc")
|
||||
|
||||
else
|
||||
vars
|
||||
|> List.map Internal.variantName
|
||||
|> String.join "-"
|
||||
|
||||
featureString =
|
||||
String.join ", " features
|
||||
in
|
||||
Internal.StyleClass Flag.fontVariant <|
|
||||
Internal.Style ("v-" ++ name)
|
||||
[ Internal.Property "font-feature-settings" featureString
|
||||
, Internal.Property "font-variant"
|
||||
(if hasSmallCaps then
|
||||
"small-caps"
|
||||
|
||||
else
|
||||
"normal"
|
||||
)
|
||||
]
|
||||
|
||||
|
||||
{-| [Small caps](https://en.wikipedia.org/wiki/Small_caps) are rendered using uppercase glyphs, but at the size of lowercase glyphs.
|
||||
-}
|
||||
smallCaps : Variant
|
||||
|
||||
@ -90,6 +90,7 @@ module Internal.Model exposing
|
||||
, renderFontClassName
|
||||
, renderHeight
|
||||
, renderRoot
|
||||
, renderVariant
|
||||
, renderWidth
|
||||
, rootStyle
|
||||
, rowClass
|
||||
@ -103,6 +104,7 @@ module Internal.Model exposing
|
||||
, transformClass
|
||||
, unstyled
|
||||
, unwrapDecorations
|
||||
, variantName
|
||||
)
|
||||
|
||||
{-| -}
|
||||
@ -222,8 +224,7 @@ type Font
|
||||
| ImportFont String String
|
||||
| FontWith
|
||||
{ name : String
|
||||
, url : Maybe String
|
||||
, adjustment : Adjustment
|
||||
, adjustment : Maybe Adjustment
|
||||
, variants : List Variant
|
||||
}
|
||||
|
||||
@ -246,6 +247,18 @@ renderVariant var =
|
||||
"\"" ++ name ++ "\" " ++ String.fromInt index
|
||||
|
||||
|
||||
variantName var =
|
||||
case var of
|
||||
VariantActive name ->
|
||||
name
|
||||
|
||||
VariantOff name ->
|
||||
name ++ "-0"
|
||||
|
||||
VariantIndexed name index ->
|
||||
name ++ "-" ++ String.fromInt index
|
||||
|
||||
|
||||
renderVariants typeface =
|
||||
case typeface of
|
||||
FontWith font ->
|
||||
@ -2309,14 +2322,12 @@ renderTopLevelValues rules =
|
||||
ImportFont _ url ->
|
||||
Just ("@import url('" ++ url ++ "');")
|
||||
|
||||
FontWith with ->
|
||||
case with.url of
|
||||
Just x ->
|
||||
Just ("@import url('" ++ x ++ "');")
|
||||
|
||||
Nothing ->
|
||||
Nothing
|
||||
|
||||
-- FontWith with ->
|
||||
-- case with.url of
|
||||
-- Just x ->
|
||||
-- Just ("@import url('" ++ x ++ "');")
|
||||
-- Nothing ->
|
||||
-- Nothing
|
||||
_ ->
|
||||
Nothing
|
||||
|
||||
@ -2457,12 +2468,17 @@ typefaceAdjustment typefaces =
|
||||
Nothing ->
|
||||
case face of
|
||||
FontWith with ->
|
||||
Just
|
||||
( fontAdjustmentRules
|
||||
(.full (convertAdjustment with.adjustment))
|
||||
, fontAdjustmentRules
|
||||
(.capital (convertAdjustment with.adjustment))
|
||||
)
|
||||
case with.adjustment of
|
||||
Nothing ->
|
||||
found
|
||||
|
||||
Just adjustment ->
|
||||
Just
|
||||
( fontAdjustmentRules
|
||||
(.full (convertAdjustment adjustment))
|
||||
, fontAdjustmentRules
|
||||
(.capital (convertAdjustment adjustment))
|
||||
)
|
||||
|
||||
_ ->
|
||||
found
|
||||
|
||||
Loading…
Reference in New Issue
Block a user