(defn export-companies-to-csv
  "Exports companies to CSV file"
  [filters user]
  (let [companies (companies-controller/get-all filters user)
        rows
        wb (spreadsheet/create-workbook "Export společností"
                                rows)
        sheet (spreadsheet/select-sheet "Price List" wb)
        header-row (first (spreadsheet/row-seq sheet))]
    (spreadsheet/set-row-style! header-row (spreadsheet/create-cell-style! wb {:background :yellow,
                                                       :font {:bold true}}))
    (spreadsheet/save-workbook! "spreadsheet.xlsx" wb)))