anchor.diff:                          ( opts.CustomClass
                               // ::opts.Size
                               ::opts.Modifiers )
  -                        [ Classes.List.HasAddons, opts.HasAddons
  -                          Classes.List.IsCentered, opts.IsCentered
  -                          Classes.List.IsRight, opts.IsRight ]
  +                        [ ]
   
           div (classes::opts.Props) children
  
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:         static member Empty =
              { Level = None
                Size = None
                IsDisabled = false
                Props = []
                CustomClass = None
                OnClick = None
                Modifiers = [] }
  
      let private addClass (option: Option) (result: Options) =
          { result with Modifiers = (Fable.Core.Reflection.getCaseName option |> Some)::result.Modifiers }
  
      let internal btnView element (options : Option list) children =
          let parseOption (result : Options) opt =
  