example-xlsx.hs

example :: IO ()
example = do
  ct <- getPOSIXTime
  let
    name = "3"
    ws =
      X.def
        & X.atCell (3, 2) ?~ X.Cell (Just 0) (Just $ X.CellDouble 42.0) Nothing Nothing
    styleSheet = sheet
     where
      -- fill
      red_ = X.def & X.colorARGB ?~ "ABABAB"
      fill_ =
        X.def
          & X.fillPattern
            ?~ ( X.def
                  & X.fillPatternBgColor ?~ red_
                  & X.fillPatternType ?~ X.PatternTypeSolid
               )

      (cellXF :: X.CellXf) =
        X.def
          & X.cellXfFillId ?~ 0
          & X.cellXfApplyFill ?~ True
          & X.cellXfId ?~ 0

      sheet =
        X.minimalStyleSheet
          & X.styleSheetCellXfs .~ [cellXF]
          & X.styleSheetFills .~ [fill_]
    xlsx =
      X.def
        & X.atSheet "List1" ?~ ws
        & X.xlStyles .~ X.renderStyleSheet styleSheet
  L.writeFile ("example-" <> name <> ".xlsx") $ X.fromXlsx ct xlsx