functora:card wip

Author: functora

pub/functora/cfg/card.toml

@@ -1,4 +1,5 @@
 [img]
+out = "./img/functora-card-"
 dpi = 96
 width = 2100
 height = 1200
@@ -19,18 +20,8 @@ vertical = true
 [[group.item]]
 kind = "Head"
 data = "Functora"
-size = 90
-padX = 734
-[[group.item]]
-kind = "Head"
-data = "Hi-end quality software development."
-size = 30
-padX = 635
-[[group.item]]
-kind = "Head"
-data = "Reliable. Functional. Pure."
-size = 30
-padX = 714
+size = 150
+padX = 585
 [[group.item]]
 data = "0xe677"
 kind = "Icon"
@@ -45,25 +36,28 @@ size = 590
 data = "https://functora.github.io"
 kind = "Note"
 size = 30
-padY = 5
+padY = 0
 
 [[group]]
 [[group.item]]
+kind = "Head"
+data = ""
+size = 150
+[[group.item]]
 data = "0xe636"
 kind = "Icon"
-size = 210
-padX = 168
-padY = 236
+size = 217
+padX = 164
 [[group.item]]
 data = "https://functora.github.io/apps/currency-converter"
 kind = "Qr"
 size = 590
-padY = 52
+padY = 53
 [[group.item]]
 data = "https://functora.github.io/apps/"
 kind = "Note"
 size = 30
-padY = 5
+padY = 8
 [[group.item]]
 data = "currency-converter"
 kind = "Note"
@@ -72,21 +66,24 @@ padY = 0
 
 [[group]]
 [[group.item]]
+kind = "Head"
+data = ""
+size = 150
+[[group.item]]
 data = "0xe60e"
 kind = "Icon"
 size = 180
 padX = 198
-padY = 240
 [[group.item]]
 data = "https://play.google.com/store/apps/details?id=com.functora.currency_converter"
 kind = "Qr"
 size = 594
-padY = 70
+padY = 90
 [[group.item]]
 data = "https://play.google.com/store/apps/"
 kind = "Note"
 size = 30
-padY = 5
+padY = 16
 [[group.item]]
 data = "details?id=com.functora.currency_converter"
 kind = "Note"

pub/functora/src/card/Functora/Card.hs

@@ -26,7 +26,6 @@ main = withUtf8 $ do
     fmap (foldl1 const) $ case cli of
       CliTextConf txt _ -> forM txt unToml
       CliFileConf loc _ -> forM loc $ readFile >=> unToml
-  putStrLn $ inspect @Text @Cfg cfg
   headFont <- mkFont $ cfg ^. #cfgFont . #cfgFontHead
   iconFont <- mkFont $ cfg ^. #cfgFont . #cfgFontIcon
   noteFont <- mkFont $ cfg ^. #cfgFont . #cfgFontNote
@@ -47,6 +46,7 @@ main = withUtf8 $ do
   forM_ (Extra (Px width) (Px height) False : cfgExtra cfg) $ \ext -> do
     let extWidth = ext ^. #extraWidth . #unPx
     let extHeight = ext ^. #extraHeight . #unPx
+    let out = from @Text @String $ cfg ^. #cfgImg . #imgOut
     let fin =
           R.renderDrawingAtDpi
             extWidth
@@ -59,23 +59,27 @@ main = withUtf8 $ do
               (unsafeFrom @Int @Float (extHeight - height) / 2)
     if extraVertical ext
       then
-        CP.writePng
-          ( "./img/card-"
-              <> inspect extHeight
-              <> "x"
-              <> inspect extWidth
-              <> ".png"
-          )
-          $ JP.rotateRight90 fin
+        ( do
+            let file =
+                  out
+                    <> inspect extHeight
+                    <> "x"
+                    <> inspect extWidth
+                    <> ".png"
+            CP.writePng file $ JP.rotateRight90 fin
+            putStrLn $ "Created ==> " <> file
+        )
       else
-        CP.writePng
-          ( "./img/card-"
-              <> inspect extWidth
-              <> "x"
-              <> inspect extHeight
-              <> ".png"
-          )
-          fin
+        ( do
+            let file =
+                  out
+                    <> inspect extWidth
+                    <> "x"
+                    <> inspect extHeight
+                    <> ".png"
+            CP.writePng file fin
+            putStrLn $ "Created ==> " <> file
+        )
 
 mkFont :: Text -> IO TT.Font
 mkFont =
@@ -234,7 +238,8 @@ data Cfg = Cfg
     via GenericType Cfg
 
 data Img = Img
-  { imgDpi :: Px,
+  { imgOut :: Text,
+    imgDpi :: Px,
     imgWidth :: Px,
     imgHeight :: Px,
     imgPadX :: Px,