better img colums style

Author: functora

ghcjs/delivery-calculator/src/App/Xlsx.hs

@@ -18,14 +18,16 @@ newXlsx st imgs = xlsx
     xlsx =
       fromXlsx 0
         $ def
-        & atSheet "Delivery Calculator"
+        & atSheet "Delivery_Calculator"
         ?~ sheet
     sheet =
       def
         & #wsDrawing
         .~ Just (Drawing mempty)
         & #wsRowPropertiesMap
         .~ newRowProps rows
+        & #wsColumnsProperties
+        .~ newColProps (fmap snd rows)
         & addHeader st
         & flip (foldl $ addRow imgs) rows
     rows =
@@ -43,10 +45,28 @@ newRowProps =
     . fmap
       ( \(rowIdx, rowVal) ->
           if any (\x -> x ^. #fieldType == FieldTypeImage) rowVal
-            then Just (rowIdx, def & #rowHeight ?~ CustomHeight 200)
+            then Just (rowIdx, def & #rowHeight ?~ CustomHeight 180)
             else Nothing
       )
 
+newColProps :: [[Field DynamicField Unique]] -> [ColumnsProperties]
+newColProps rows = nubOrd $ do
+  row <- rows
+  (colIdx, colVal) <- zip [1 ..] row
+  if colVal ^. #fieldType /= FieldTypeImage
+    then mempty
+    else
+      pure
+        ColumnsProperties
+          { cpMin = colIdx,
+            cpMax = colIdx,
+            cpWidth = Just 45,
+            cpStyle = Nothing,
+            cpHidden = False,
+            cpCollapsed = False,
+            cpBestFit = False
+          }
+
 addHeader :: St Unique -> Worksheet -> Worksheet
 addHeader st sheet =
   case sortOn length headers of

pub/xlsx/src/Codec/Xlsx/Types.hs

@@ -179,7 +179,7 @@ data ColumnsProperties = ColumnsProperties
     -- fit'.
     cpBestFit :: Bool
   }
-  deriving (Eq, Show, Generic)
+  deriving (Eq, Ord, Show, Generic)
 
 instance NFData ColumnsProperties