anchor.diff:          | IsGreyLight
           | IsGreyLighter
           | IsWhiteTer
  -        | IsWhiteBis
  -        /// Allow you to specify a custom color. The color will be prefixed by "is-"
  -        | IsCustomColor of string
  -        /// Allow you to specify a NoColor case.
  -        | NoColor
  -
  -    let ofColor level =
  -        match level with
  -        | IsBlack -> Classes.IsBlack
  -        | IsDark -> Classes.IsDark
  -        | IsLight -> Classes.IsLight
  -        | IsWhite -> Classes.IsWhite
  -        | IsPrimary -> Classes.IsPrimary
  -        | IsInfo -> Classes.IsInfo
  -        | IsSuccess -> Classes.IsSuccess
  -        | IsWarning -> Classes.IsWarning
  -        | IsDanger -> Classes.IsDanger
  -        | IsLink -> Classes.IsLink
  -        | IsBlackBis -> Classes.IsBlackBis
  -        | IsBlackTer -> Classes.IsBlackTer
  -        | IsGreyDarker -> Classes.IsGreyDarker
  -        | IsGreyDark -> Classes.IsGreyDark
  -        | IsGrey -> Classes.IsGrey
  -        | IsGreyLight -> Classes.IsGreyLight
  -        | IsGreyLighter -> Classes.IsGreyLighter
  -        | IsWhiteTer -> Classes.IsWhiteTer
  -        | IsWhiteBis -> Classes.IsWhiteBis
  -        | IsCustomColor color -> "is-" + color
  -        | NoColor -> ""
  +        | IsWhiteBis -> Fable.Core.Reflection.getCaseName level
   
   [<AutoOpen>]
   module Size =
   
  -    module Classes =
  -        let [<Literal>] IsSmall = "is-small"
  -        let [<Literal>] IsMedium = "is-medium"
  -        let [<Literal>] IsLarge = "is-large"
  -
       type ISize =
  -        | IsSmall
  -        | IsMedium
  -        | IsLarge
  -
  -    let ofSize size =
  -        match size with
  -        | IsSmall -> Classes.IsSmall
  -        | IsMedium -> Classes.IsMedium
  -        | IsLarge -> Classes.IsLarge
  +        | [<CompiledName("is-small")>] IsSmall
  +        | [<CompiledName("is-medium")>] IsMedium
  +        | [<CompiledName("is-large")>] IsLarge
  +
  +    let inline ofSize size =
  +        Fable.Core.Reflection.getCaseName size
   
   [<RequireQualifiedAccess>]
   module TextSize =
  
positive.code: 
  [<RequireQualifiedAccess>]
  module Modifier =
  
      module Classes =
          module BackgroundColor =
              let [<Literal>] Black = "has-background-black"
              let [<Literal>] Dark = "has-background-dark"
              let [<Literal>] Light = "has-background-light"
              let [<Literal>] White = "has-background-white"
              let [<Literal>] Primary = "has-background-primary"
              let [<Literal>] Info = "has-background-info"
              let [<Literal>] Success = "has-background-success"
              let [<Literal>] Warning = "has-background-warning"
              let [<Literal>] Danger = "has-background-danger"
              let [<Literal>] Link = "has-background-link"
              let [<Literal>] BlackBis = "has-background-black-bis"
              let [<Literal>] BlackTer = "has-background-black-ter"
              let [<Literal>] GreyDarker = "has-background-grey-darker"
              let [<Literal>] GreyDark = "has-background-grey-dark"
              let [<Literal>] Grey = "has-background-grey"
              let [<Literal>] GreyLight = "has-background-grey-light"
              let [<Literal>] GreyLighter = "has-background-grey-lighter"
              let [<Literal>] WhiteTer = "has-background-white-ter"
              let [<Literal>] WhiteBis = "has-background-white-bis"
          module TextColor =
              let [<Literal>] Black = "has-text-black"
              let [<Literal>] Dark = "has-text-dark"
              let [<Literal>] Light = "has-text-light"
              let [<Literal>] White = "has-text-white"
              let [<Literal>] Primary = "has-text-primary"
              let [<Literal>] Info = "has-text-info"
              let [<Literal>] Success = "has-text-success"
              let [<Literal>] Warning = "has-text-warning"
              let [<Literal>] Danger = "has-text-danger"
              let [<Literal>] Link = "has-text-link"
              let [<Literal>] BlackBis = "has-text-black-bis"
              let [<Literal>] BlackTer = "has-text-black-ter"
              let [<Literal>] GreyDarker = "has-text-grey-darker"
              let [<Literal>] GreyDark = "has-text-grey-dark"
              let [<Literal>] Grey = "has-text-grey"
              let [<Literal>] GreyLight = "has-text-grey-light"
              let [<Literal>] GreyLighter = "has-text-grey-lighter"
              let [<Literal>] WhiteTer = "has-text-white-ter"
              let [<Literal>] WhiteBis = "has-text-white-bis"
  
          module Helpers =
              let [<Literal>] IsClearfix = "is-clearfix"
              let [<Literal>] IsPulledLeft = "is-pulled-left"
              let [<Literal>] IsPulledRight = "is-pulled-right"
              let [<Literal>] IsMarginless = "is-marginless"
              let [<Literal>] IsPaddingless = "is-paddingless"
              let [<Literal>] IsOverlay = "is-overlay"
              let [<Literal>] IsClipped = "is-clipped"
              let [<Literal>] IsRadiusless = "is-radiusless"
              let [<Literal>] IsShadowless = "is-shadowless"
              let [<Literal>] IsUnselectable = "is-unselectable"
              let [<Literal>] IsSrOnly = "is-sr-only"
  
      let internal ofBackground level =
          match level with
          | IsBlack -> Classes.BackgroundColor.Black
          | IsDark -> Classes.BackgroundColor.Dark
          | IsLight -> Classes.BackgroundColor.Light
          | IsWhite -> Classes.BackgroundColor.White
          | IsPrimary -> Classes.BackgroundColor.Primary
          | IsInfo -> Classes.BackgroundColor.Info
          | IsSuccess -> Classes.BackgroundColor.Success
          | IsWarning -> Classes.BackgroundColor.Warning
          | IsDanger -> Classes.BackgroundColor.Danger
          | IsLink -> Classes.BackgroundColor.Link
          | IsBlackBis -> Classes.BackgroundColor.BlackBis
          | IsBlackTer -> Classes.BackgroundColor.BlackTer
          | IsGreyDarker -> Classes.BackgroundColor.GreyDarker
          | IsGreyDark -> Classes.BackgroundColor.GreyDark
          | IsGrey -> Classes.BackgroundColor.Grey
          | IsGreyLight -> Classes.BackgroundColor.GreyLight
          | IsGreyLighter -> Classes.BackgroundColor.GreyLighter
          | IsWhiteTer -> Classes.BackgroundColor.WhiteTer
          | IsWhiteBis -> Classes.BackgroundColor.WhiteBis
          | IsCustomColor color -> "has-background-" + color
          | NoColor -> ""
  
      let internal ofText level =
          match level with
          | IsBlack -> Classes.TextColor.Black
          | IsDark -> Classes.TextColor.Dark
          | IsLight -> Classes.TextColor.Light
          | IsWhite -> Classes.TextColor.White
          | IsPrimary -> Classes.TextColor.Primary
          | IsInfo -> Classes.TextColor.Info
          | IsSuccess -> Classes.TextColor.Success
          | IsWarning -> Classes.TextColor.Warning
          | IsDanger -> Classes.TextColor.Danger
          | IsLink -> Classes.TextColor.Link
          | IsBlackBis -> Classes.TextColor.BlackBis
          | IsBlackTer -> Classes.TextColor.BlackTer
          | IsGreyDarker -> Classes.TextColor.GreyDarker
          | IsGreyDark -> Classes.TextColor.GreyDark
          | IsGrey -> Classes.TextColor.Grey
          | IsGreyLight -> Classes.TextColor.GreyLight
          | IsGreyLighter -> Classes.TextColor.GreyLighter
          | IsWhiteTer -> Classes.TextColor.WhiteTer
          | IsWhiteBis -> Classes.TextColor.WhiteBis
          | IsCustomColor color -> "has-text-" + color
          | NoColor -> ""
  
      let internal ofInvisible screen =
          "is-invisible" + Screen.toString screen
  
negative.code: [<RequireQualifiedAccess>]
  type Screen =
      | All
      | [<CompiledName("desktop")>] Desktop
      | [<CompiledName("tablet")>] Tablet
      | [<CompiledName("mobile")>] Mobile
      | [<CompiledName("widescreen")>] WideScreen
      | [<CompiledName("touch")>] Touch
      | [<CompiledName("fullhd")>] FullHD
  
      static member toString opt =
          match opt with
          | All -> ""
          | Desktop
          | Tablet
          | Mobile
          | WideScreen
          | Touch
          | FullHD -> "-" + Fable.Core.Reflection.getCaseName opt
  
  [<AutoOpen>]
  module Color =
  
      type IColor =
          | [<CompiledName("is-black")>] IsBlack
          | [<CompiledName("is-dark")>] IsDark
          | [<CompiledName("is-light")>] IsLight
          | [<CompiledName("is-white")>] IsWhite
          | [<CompiledName("is-primary")>] IsPrimary
          | [<CompiledName("is-info")>] IsInfo
          | [<CompiledName("is-success")>] IsSuccess
          | [<CompiledName("is-warning")>] IsWarning
          | [<CompiledName("is-danger")>] IsDanger
          | [<CompiledName("is-link")>] IsLink
          | [<CompiledName("is-black-bis")>] IsBlackBis
          | [<CompiledName("is-black-ter")>] IsBlackTer
          | [<CompiledName("is-grey-darker")>] IsGreyDarker
          | [<CompiledName("is-grey-dark")>] IsGreyDark
          | [<CompiledName("is-grey")>] IsGrey
          | [<CompiledName("is-grey-light")>] IsGreyLight
          | [<CompiledName("is-grey-lighter")>] IsGreyLighter
          | [<CompiledName("is-white-ter")>] IsWhiteTer
          | [<CompiledName("is-white-bis")>] IsWhiteBis
          /// Allow you to specify a custom color. The color will be prefixed by "is-"
          | IsCustomColor of string
          /// Allow you to specify a NoColor case.
          | NoColor
  
      let ofColor level =
          match level with
          | NoColor -> ""
          | IsCustomColor color -> "is-" + color
          | IsBlack
          | IsDark
          | IsLight
  