business card generator wip

Author: functora

nix/misc.nix

@@ -33,6 +33,33 @@ in
           } --disable-optimization --repl-options=-fobject-code --repl-options=-fno-break-on-exception --repl-options=-fno-break-on-error --repl-options=-v1 --repl-options=-ferror-spans --repl-options=-j -fghcid")
         '';
       };
+    mkGhcidV2 = {
+      pkg,
+      sub ? null,
+      opt ? null,
+    }:
+      pkgs.writeShellApplication {
+        name = "${pkg}${
+          if sub == null
+          then ""
+          else "-${sub}"
+        }-ghcid";
+        text = ''
+          (cd ${repo}/pub/${pkg} && ghcid --test=":main ${
+            if sub == "test"
+            then "--fail-fast --color -f failed-examples"
+            else ""
+          } ${
+            if opt == null
+            then ""
+            else opt
+          }" --command="cabal new-repl ${pkg}${
+            if sub == "test"
+            then "-"
+            else ":"
+          }${sub} --disable-optimization --repl-options=-fobject-code --repl-options=-fno-break-on-exception --repl-options=-fno-break-on-error --repl-options=-v1 --repl-options=-ferror-spans --repl-options=-j -fghcid")
+        '';
+      };
     mkService = srv: usr: exe: {
       lib,
       pkgs,

nix/shell.nix

@@ -7,6 +7,7 @@ in
       cabal-install = "latest";
       hspec-discover = "latest";
       haskell-language-server = "latest";
+      implicit-hie = "latest";
       cabal-fmt = "latest";
       ghcid = "latest";
       hpack = "latest";

pub/functora/.ghcid

@@ -1,3 +1,4 @@
+--restart=cfg
 --restart=.ghcid
 --restart=README.md
 --restart=functora.cabal

pub/functora/cfg/card.toml

@@ -0,0 +1,51 @@
+dpi = 96
+width = 2100.0
+height = 1200.0
+padding = 10.0
+headFont = "./fonts/larabiefont.ttf"
+iconFont = "./fonts/devicons.ttf"
+noteFont = "./fonts/rondo.ttf"
+
+[[group]]
+[[group.item]]
+kind = "Head"
+data = "Functora"
+size = 50.0
+[[group.item]]
+kind = "Note"
+data = "Hi-end quality software development."
+size = 20.0
+[[group.item]]
+kind = "Note"
+data = "Reliable. Functional. Pure."
+size = 20.0
+[[group.item]]
+data = "0xe677"
+kind = "Icon"
+size = 300.0
+[[group.item]]
+data = "https://functora.github.io"
+kind = "Qr"
+size = 500.0
+[[group.item]]
+data = "https://functora.github.io"
+kind = "Note"
+size = 50.0
+
+[[group]]
+[[group.item]]
+kind = "Head"
+data = "Converter Web"
+size = 50.0
+[[group.item]]
+data = "0xe636"
+kind = "Icon"
+size = 50.0
+[[group.item]]
+data = "https://functora.github.io/apps/currency-converter"
+kind = "Qr"
+size = 50.0
+[[group.item]]
+data = "https://functora.github.io/apps/currency-converter"
+kind = "Note"
+size = 50.0

pub/functora/fonts/devicons.ttf

@@ -38,10 +38,14 @@ common pkg
     default-extensions: StandaloneKindSignatures
 
   if impl(ghc >=9.2.8)
-    ghc-options:        -Wno-operator-whitespace
+    ghc-options: -Wno-operator-whitespace
 
   if impl(ghc >=9.8.2)
-    ghc-options:        -Wno-missing-poly-kind-signatures -Wno-missing-role-annotations
+    ghc-options:
+      -Wno-missing-poly-kind-signatures -Wno-missing-role-annotations
+
+  if flag(ghcid)
+    ghc-options: -Wno-unused-packages
 
   default-extensions:
     AllowAmbiguousTypes
@@ -284,6 +288,20 @@ common pkg-elm2miso
     , base
     , regex-compat
 
+common pkg-card
+  import:         pkg
+  hs-source-dirs: src/card
+  build-depends:
+    , base
+    , bytestring
+    , FontyFruity
+    , functora
+    , functora:cfg
+    , JuicyPixels
+    , qrcode-core
+    , qrcode-juicypixels
+    , Rasterific
+
 common pkg-bolt11
   import:         pkg
   hs-source-dirs: src/bolt11
@@ -398,6 +416,12 @@ library elm2miso-lib
   visibility:      public
   exposed-modules: Functora.Elm2Miso
 
+library card-lib
+  import:          pkg-card
+  exposed:         True
+  visibility:      public
+  exposed-modules: Functora.Card
+
 library bolt11
   import:          pkg-bolt11
   build-depends:   functora
@@ -410,6 +434,11 @@ executable elm2miso
   main-is:       Main.hs
   other-modules: Functora.Elm2Miso
 
+executable card
+  import:        pkg-card, exe
+  main-is:       Main.hs
+  other-modules: Functora.Card
+
 test-suite functora-test
   import:         pkg
   type:           exitcode-stdio-1.0
@@ -452,14 +481,14 @@ test-suite functora-test
       pkg-prelude, pkg-qr, pkg-aes,
       pkg-cfg, pkg-web, pkg-sql,
       pkg-money, pkg-rates, pkg-tags,
-      pkg-soplate, pkg-elm2miso, pkg-bolt11,
-      pkg-uri
+      pkg-soplate, pkg-elm2miso, pkg-card,
+      pkg-bolt11, pkg-uri
 
-    ghc-options:   -Wno-unused-packages
     other-modules:
       Functora.Aes
       Functora.AesOrphan
       Functora.Bolt11
+      Functora.Card
       Functora.Cfg
       Functora.CfgOrphan
       Functora.Elm2Miso
@@ -488,6 +517,7 @@ test-suite functora-test
     build-depends:
       , aes
       , bolt11
+      , card-lib
       , cfg
       , elm2miso-lib
       , functora

pub/functora/fonts/larabiefont.ttf

@@ -0,0 +1,58 @@
+cradle:
+  cabal:
+    - path: "./"
+      component: "lib:functora"
+
+    - path: "./src/qr"
+      component: "functora:lib:qr"
+
+    - path: "./src/aes"
+      component: "functora:lib:aes"
+
+    - path: "./src/uri"
+      component: "functora:lib:uri"
+
+    - path: "./src/cfg"
+      component: "functora:lib:cfg"
+
+    - path: "./src/web"
+      component: "functora:lib:web"
+
+    - path: "./src/sql"
+      component: "functora:lib:sql"
+
+    - path: "./src/money"
+      component: "functora:lib:money"
+
+    - path: "./src/rates"
+      component: "functora:lib:rates"
+
+    - path: "./src/tags"
+      component: "functora:lib:tags"
+
+    - path: "./src/soplate"
+      component: "functora:lib:soplate"
+
+    - path: "./src/bolt11"
+      component: "functora:lib:bolt11"
+
+    - path: "./src/elm2miso"
+      component: "functora:lib:elm2miso-lib"
+
+    - path: "./src/elm2miso/Main.hs"
+      component: "functora:exe:elm2miso"
+
+    - path: "./src/elm2miso/Functora/Elm2Miso.hs"
+      component: "functora:exe:elm2miso"
+
+    - path: "./src/card"
+      component: "functora:lib:card-lib"
+
+    - path: "./src/card/Main.hs"
+      component: "functora:exe:card"
+
+    - path: "./src/card/Functora/Card.hs"
+      component: "functora:exe:card"
+
+    - path: "src/test"
+      component: "functora:test:functora-test"

pub/functora/fonts/rondo.ttf

@@ -1,3 +1,15 @@
 with (import ./../../../nix/misc.nix); [
-  (mkGhcid "functora" "test" null)
+  (mkGhcidV2 {
+    pkg = "functora";
+    sub = "test";
+  })
+  (mkGhcidV2 {
+    pkg = "functora";
+    sub = "card-lib";
+  })
+  (mkGhcidV2 {
+    pkg = "functora";
+    sub = "card";
+    opt = "-f ${toString ../cfg/card.toml}";
+  })
 ]