Merge pull request #48 from alexmingoia/topic/vertical-align-rule

Add vertical-align rule

Author: garyb

src/CSS/Common.purs

@@ -28,6 +28,10 @@ class Hidden   a where hidden   :: a
 class Initial  a where initial  :: a
 class Unset    a where unset    :: a
 
+class Top      a where top      :: a
+class Middle   a where middle   :: a
+class Bottom   a where bottom   :: a
+
 -- | The other type class is used to escape from the type safety introduced by
 -- embedding CSS properties into the typed world of purescript-css.
 -- `Other` allows you to cast any `Value` to a specific value type.
@@ -47,6 +51,10 @@ instance otherValue    :: Other    Value where other    = id
 instance initialValue  :: Initial  Value where initial  = fromString "initial"
 instance unsetValue    :: Unset    Value where unset    = fromString "unset"
 
+instance topValue      :: Top      Value where top      = fromString "top"
+instance middleValue   :: Middle   Value where middle   = fromString "middle"
+instance bottomValue   :: Bottom   Value where bottom   = fromString "bottom"
+
 -------------------------------------------------------------------------------
 
 -- | Common list browser prefixes to make experimental properties work in

src/CSS/VerticalAlign.purs

@@ -0,0 +1,69 @@
+module CSS.VerticalAlign where
+
+import CSS.Common (class Baseline, class Inherit, class Initial, class Unset, class Top, class Middle, class Bottom)
+import CSS.Property (class Val)
+import CSS.String (fromString)
+import CSS.Stylesheet (CSS, key)
+import Data.Function (($))
+
+data VerticalAlign
+  = Baseline
+  | Sub
+  | Super
+  | TextTop
+  | TextBottom
+  | Middle
+  | Top
+  | Bottom
+  | Inherit
+  | Initial
+  | Unset
+
+instance valVerticalAlign :: Val (VerticalAlign) where
+  value (Baseline) = fromString "baseline"
+  value (Sub) = fromString "sub"
+  value (Super) = fromString "super"
+  value (TextTop) = fromString "text-top"
+  value (TextBottom) = fromString "text-bottom"
+  value (Middle) = fromString "middle"
+  value (Top) = fromString "top"
+  value (Bottom) = fromString "bottom"
+  value (Inherit) = fromString "inherit"
+  value (Initial) = fromString "initial"
+  value (Unset) = fromString "unset"
+
+instance inheritVerticalAlign :: Inherit (VerticalAlign) where
+  inherit = Inherit
+
+instance initialVerticalAlign :: Initial (VerticalAlign) where
+  initial = Initial
+
+instance unsetVerticalAlign :: Unset (VerticalAlign) where
+  unset = Unset
+
+instance baselineVerticalAlign :: Baseline (VerticalAlign) where
+  baseline = Baseline
+
+instance middleVerticalAlign :: Middle (VerticalAlign) where
+  middle = Middle
+
+instance topVerticalAlign :: Top (VerticalAlign) where
+  top = Top
+
+instance bottomVerticalAlign :: Bottom (VerticalAlign) where
+  bottom = Bottom
+
+sub :: VerticalAlign
+sub = Sub
+
+super :: VerticalAlign
+super = Super
+
+textTop :: VerticalAlign
+textTop = TextTop
+
+textBottom :: VerticalAlign
+textBottom = TextBottom
+
+verticalAlign :: VerticalAlign -> CSS
+verticalAlign = key $ fromString "vertical-align"