instance Default Font where
  def = Font {
      _fontBold          = Just True   -- 18.8.2   p. 1757 && A.2  p. 3939 CT_BooleanProperty
    , _fontCharset       = Nothing
    , _fontColor         = Nothing
    , _fontCondense      = Just True   -- 18.8.12  p. 1764 && A.2  p. 3939 CT_BooleanProperty
    , _fontExtend        = Just True   -- 18.8.17  p. 1766 && A.2  p. 3939 CT_BooleanProperty
    , _fontFamily        = Nothing
    , _fontItalic        = Just True   -- 18.8.26  p. 1773 && A.2  p. 3939 CT_BooleanProperty
    , _fontName          = Nothing
    , _fontOutline       = Just True   -- 18.4.2   p. 1723 && A.2  p. 3939 CT_BooleanProperty
    , _fontScheme        = Nothing
    , _fontShadow        = Just True   -- 18.8.36  p. 1795 && A.2  p. 3939 CT_BooleanProperty
    , _fontStrikeThrough = Just True   -- 18.4.10  p. 1726 && A.2  p. 3939 CT_BooleanProperty
    , _fontSize          = Nothing
    , _fontUnderline     = Just FontUnderlineSingle   
                                       -- A.2  p. 3930 ST_UnderlineValues
    , _fontVertAlign     = Nothing


instance Default CellXf where
  def = CellXf {
      _cellXfApplyAlignment    = Just True   -- A.2  p. 3939 CT_BooleanProperty
    , _cellXfApplyBorder       = Just True   -- A.2  p. 3939 CT_BooleanProperty
    , _cellXfApplyFill         = Just True   -- A.2  p. 3939 CT_BooleanProperty
    , _cellXfApplyFont         = Just True   -- A.2  p. 3939 CT_BooleanProperty
    , _cellXfApplyNumberFormat = Just True   -- A.2  p. 3939 CT_BooleanProperty
    , _cellXfApplyProtection   = Just True   -- A.2  p. 3939 CT_BooleanProperty
    , _cellXfBorderId          = Nothing
    , _cellXfFillId            = Nothing
    , _cellXfFontId            = Nothing
    , _cellXfNumFmtId          = Nothing
    , _cellXfPivotButton       = Nothing
    , _cellXfQuotePrefix       = Nothing
    , _cellXfId                = Nothing
    , _cellXfAlignment         = Nothing
    , _cellXfProtection        = Nothing
    }


instance Default BorderStyle where
  def = BorderStyle {
      _borderStyleColor = Nothing
    , _borderStyleLine  = Just LineStyleNone   -- A.2  p. 3934 CT_BorderPr
    }          


instance Default Color where
  def = Color {
    _colorAutomatic = Nothing
  , _colorARGB      = Nothing
  , _colorTheme     = Nothing
  , _colorTint      = Just 0.0   -- A.2 p. 3935  CT_Color
  }