excel layout wip

Author: functora

ghcjs/delivery-calculator/delivery-calculator.cabal

@@ -16,6 +16,7 @@ common pkg
   hs-source-dirs:     src
   js-sources:         static/app.js
   other-modules:
+    App.I18n
     App.Jsm
     App.Types
     App.Widgets.Asset

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

@@ -0,0 +1,17 @@
+module App.I18n (xlsxHeaderRu) where
+
+import Functora.Miso.Prelude
+
+xlsxHeaderRu :: [Unicode]
+xlsxHeaderRu =
+  ["№",
+   "Ccылка/ 链接",
+   "Картинка/ 图片",
+   "Модель/ 型号",
+   "Количество/ 数量",
+   "Цена за 1 шт./ 单价",
+   "Доставка по Китаю/ 运费",
+   "Общая сумма/ 总价",
+   "",
+   "Примечание/ 注解"
+  ]

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

@@ -464,14 +464,11 @@ stTeleUri st = do
       ^. #modelState
       . #stMerchantTele
       . #fieldOutput
-  link <-
-    stUri st
   key <-
     URI.mkQueryKey "text"
   val <-
     URI.mkQueryValue
-      $ "Hello, I have a question about the delivery of the following items: "
-      <> URI.render link
+      $ "Hello, I have a question about delivery. I will send the Excel file in the next message."
   pure
     $ base
       { URI.uriPath = Just (False, [user]),

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

@@ -5,6 +5,7 @@ module App.Xlsx
   )
 where
 
+import qualified App.I18n as I18n
 import App.Types
 import Codec.Xlsx
 import qualified Data.ByteString.Lazy as BL
@@ -28,7 +29,7 @@ newXlsx st imgs = xlsx
         .~ newRowProps rows
         & #wsColumnsProperties
         .~ newColProps (fmap snd rows)
-        & addHeader st
+        & addHeader
         & flip (foldl $ addRow imgs) rows
         & addFooter st (RowIndex (length rows) + 2)
     rows =
@@ -59,39 +60,25 @@ newColProps rows = nubOrd $ do
     else
       pure
         ColumnsProperties
-          { cpMin = colIdx,
-            cpMax = colIdx,
+          { cpMin = mapCol colIdx,
+            cpMax = mapCol 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
-    [] -> sheet
-    (rowVal : _) ->
-      foldl
-        ( \acc (colIdx, colVal) ->
-            acc
-              & cellValueAt (1, colIdx)
-              ?~ CellText (from @Unicode @Text colVal)
-        )
-        sheet
-        $ zip [1 ..] rowVal
-  where
-    headers :: [[Unicode]]
-    headers =
-      fmap
-        ( ^..
-            #assetFieldPairs
-              . each
-              . #fieldPairKey
-              . #fieldOutput
-        )
-        $ stAssets st
+addHeader :: Worksheet -> Worksheet
+addHeader sheet =
+  foldl
+    ( \acc (colIdx, colVal) ->
+        acc
+          & cellValueAt (1, colIdx)
+          ?~ CellText (from @Unicode @Text colVal)
+    )
+    sheet
+    $ zip [1 ..] I18n.xlsxHeaderRu
 
 addFooter :: St Unique -> RowIndex -> Worksheet -> Worksheet
 addFooter st rowOffset sheet =
@@ -127,7 +114,7 @@ addRow ::
 addRow imgs sheet (rowIdx, rowVal) =
   foldl
     ( \acc (colIdx, colVal) ->
-        addCol imgs acc rowIdx colIdx colVal
+        addCol imgs acc rowIdx (mapCol colIdx) colVal
     )
     sheet
     $ zip [1 ..] rowVal
@@ -200,3 +187,12 @@ xlsxFile st =
 
 xlsxMime :: Unicode
 xlsxMime = "application/vnd.openxmlformats-officedocument.spreadsheetml.sheet"
+
+mapCol :: (Integral n) => n -> n
+mapCol = \case
+  1 -> 2
+  2 -> 3
+  3 -> 6
+  4 -> 5
+  5 -> 10
+  n -> n + 10