anchor.diff:  [<RequireQualifiedAccess>]
   module TextWeight =
   
  -    module Classes =
  -        let [<Literal>] HasTextWeightLight = "has-text-weight-light"
  -        let [<Literal>] HasTextWeightNormal = "has-text-weight-normal"
  -        let [<Literal>] HasTextWeightSemibold = "has-text-weight-semibold"
  -        let [<Literal>] HasTextWeightBold = "has-text-weight-bold"
  -
       type Option =
           /// Add `has-text-weight-light`
  -        | Light
  +        | [<CompiledName("has-text-weight-light")>] Light
           /// Add `has-text-weight-normal`
  -        | Normal
  +        | [<CompiledName("has-text-weight-normal")>] Normal
           /// Add `has-text-weight-semi-bold`
  -        | SemiBold
  +        | [<CompiledName("has-text-weight-semi-bold")>] SemiBold
           /// Add `has-text-weight-bold`
  -        | Bold
  -
  -    let internal ofOption =
  -        function
  -        | Light -> Classes.HasTextWeightLight
  -        | Normal -> Classes.HasTextWeightNormal
  -        | SemiBold -> Classes.HasTextWeightSemibold
  -        | Bold -> Classes.HasTextWeightBold
  +        | [<CompiledName("has-text-weight-bold")>] Bold
  +
  +    let inline internal ofOption opt =
  +        Fable.Core.Reflection.getCaseName opt
   
   [<RequireQualifiedAccess>]
   module TextTransform =
   
  -    module Classes =
  -        let [<Literal>] IsCapitalized = "is-capitalized"
  -        let [<Literal>] IsLowercase = "is-lowercase"
  -        let [<Literal>] IsUppercase = "is-uppercase"
  -        let [<Literal>] IsItalic = "is-italic"
  -
       type Option =
           /// Add `is-capitalized`
  -        | Capitalized
  +        | [<CompiledName("is-capitalized")>] Capitalized
           /// Add `is-lowercase`
  -        | LowerCase
  +        | [<CompiledName("is-lowercase")>] LowerCase
           /// Add `is-uppercase`
  -        | UpperCase
  +        | [<CompiledName("is-uppercase")>] UpperCase
           /// Add `is-italic`
  -        | Italic
  -
  -        static member inline toClass =
  -            function
  -            | Capitalized -> Classes.IsCapitalized
  -            | LowerCase -> Classes.IsLowercase
  -            | UpperCase -> Classes.IsUppercase
  -            | Italic -> Classes.IsItalic
  +        | [<CompiledName("is-italic")>] Italic
  +
  +        static member inline toClass opt =
  +            Fable.Core.Reflection.getCaseName opt
   
   [<RequireQualifiedAccess>]
   module Display =
   
       type Option =
  -        | Block
  -        | Flex
  -        | Inline
  -        | InlineBlock
  -        | InlineFlex
  -
  -        static member inline toClass =
  -            function
  -            | Block -> "block"
  -            | Flex -> "flex"
  -            | Inline -> "inline"
  -            | InlineBlock -> "inline-block"
  -            | InlineFlex -> "inline-flex"
  +        | [<CompiledName("block")>] Block
  +        | [<CompiledName("flex")>] Flex
  +        | [<CompiledName("inline")>] Inline
  +        | [<CompiledName("inline-block")>] InlineBlock
  +        | [<CompiledName("inline-flex")>] InlineFlex
  +
  +        static member inline toClass opt =
  +            Fable.Core.Reflection.getCaseName opt
   
       let internal toDisplayClass screen display =
           let display = Option.toClass display
  
positive.code: [<RequireQualifiedAccess>]
  type Screen =
      | All
      | Desktop
      | Tablet
      | Mobile
      | WideScreen
      | Touch
      | FullHD
  
      static member toString =
          function
          | All -> ""
          | Desktop -> "-desktop"
          | Tablet -> "-tablet"
          | Mobile -> "-mobile"
          | WideScreen -> "-widescreen"
          | Touch -> "-touch"
          | FullHD -> "-fullhd"
  
  [<AutoOpen>]
  module Color =
  
      module Classes =
          let [<Literal>] IsBlack = "is-black"
          let [<Literal>] IsDark = "is-dark"
          let [<Literal>] IsLight = "is-light"
          let [<Literal>] IsWhite = "is-white"
          let [<Literal>] IsPrimary = "is-primary"
          let [<Literal>] IsInfo = "is-info"
          let [<Literal>] IsSuccess = "is-success"
          let [<Literal>] IsWarning = "is-warning"
          let [<Literal>] IsDanger = "is-danger"
          let [<Literal>] IsLink = "is-link"
          let [<Literal>] IsBlackBis = "is-black-bis"
          let [<Literal>] IsBlackTer = "is-black-ter"
          let [<Literal>] IsGreyDarker = "is-grey-darker"
          let [<Literal>] IsGreyDark = "is-grey-dark"
          let [<Literal>] IsGrey = "is-grey"
          let [<Literal>] IsGreyLight = "is-grey-light"
          let [<Literal>] IsGreyLighter = "is-grey-lighter"
          let [<Literal>] IsWhiteTer = "is-white-ter"
          let [<Literal>] IsWhiteBis = "is-white-bis"
  
      type IColor =
          | IsBlack
          | IsDark
          | IsLight
  
negative.code:         | Is6
          | Is7
  
          static member toString (x: Option) =
              Fable.Core.Reflection.getCaseTag x + 1 |> string
  
      let inline generic screen size =
          "is-size-" + Option.toString size + Screen.toString screen
  