anchor.diff:              // Sizes
               | Size size -> { result with Size = ofSize size |> Some }
               // Styles
  -            | IsFullWidth -> { result with IsFullWidth = true  }
  -            | IsLink -> { result with Level = Classes.Styles.IsLink |> Some }
  -            | IsOutlined -> { result with IsOutlined = true }
  -            | IsInverted -> { result with IsInverted = true }
  -            | IsText -> { result with IsText = true }
  -            | IsRounded -> { result with IsRounded = true }
  -            | IsExpanded -> { result with IsExpanded = true }
  +            | IsLink -> { result with Level = Fable.Core.Reflection.getCaseName opt |> Some }
  +            | IsFullWidth
  +            | IsOutlined
  +            | IsInverted
  +            | IsText
  +            | IsRounded
  +            | IsExpanded -> addClass opt result
               // States
  -            | IsHovered state -> { result with IsHovered = state }
  -            | IsFocused state -> { result with IsFocused = state }
  -            | IsActive state -> { result with IsActive = state }
  -            | IsLoading state -> { result with IsLoading = state }
  -            | IsStatic state -> { result with IsStatic = state }
  +            | IsHovered state
  +            | IsFocused state
  +            | IsActive state
  +            | IsLoading state
  +            | IsStatic state -> if state then addClass opt result else result
               | Disabled isDisabled -> { result with IsDisabled = isDisabled }
               | Props props -> { result with Props = props }
               | CustomClass customClass -> { result with CustomClass = Some customClass }
  
positive.code:         | Color of IColor
          | Size of ISize
          /// Add `is-fullwidth` class
          | IsFullWidth
          /// Add `is-link` class
          | IsLink
          /// Add `is-outlined` class
          | IsOutlined
          /// Add `is-inverted` class
          | IsInverted
          /// Add `is-text` class
          | IsText
          /// Add `is-rouned` class
          | IsRounded
          /// Add `is-expanded` class
          | IsExpanded
          /// Add `is-hovered` class if true
          | IsHovered of bool
          /// Add `is-focused` class if true
          | IsFocused of bool
          /// Add `is-active` class if true
          | IsActive of bool
          /// Add `is-loading` class if true
          | IsLoading of bool
          /// Add `is-static` class if true
          | IsStatic of bool
          /// Add `disabled` HTMLAttr if true
          | Disabled of bool
          | Props of IHTMLProp list
  
negative.code:     type internal Options =
          { Level : string option
            Size : string option
            IsDisabled : bool
            Props : IHTMLProp list
            CustomClass : string option
            OnClick : (MouseEvent -> unit) option
  