thermoprint on bragi

2 files changed, 54 insertions, 1 deletions

diff --git a/bragi.nix b/bragi.nix
index 42fccd75..5a73c3b6 100644
--- a/bragi.nix
+++ b/bragi.nix
@@ -80,6 +80,8 @@ in rec {
             --run "umask 0"
         '';
       });
+
+      inherit (pkgs.callPackage ./custom/thermoprint {}) thermoprint-server thermoprint-webgui tprint;
     };
 
   environment.systemPackages = with pkgs; [
@@ -91,6 +93,7 @@ in rec {
     jack2Full
     trivmix
     zsh
+    tprint
   ];
 
   # List services that you want to enable:
@@ -272,10 +275,60 @@ in rec {
     home = "/var/lib/thermoprint";
   };
 
+  environment.etc."thermoprint-server/config.hs" = ''
+    {-# LANGUAGE OverloadedStrings  #-}
+    {-# LANGUAGE ImpredicativeTypes #-}
+
+    module Main (main) where
+
+    import Thermoprint.Server
+
+    import Thermoprint.Server.Printer.Generic
+
+    import Control.Monad.Trans.Resource
+    import Control.Monad.Logger
+    import Control.Monad.Reader
+
+    import Database.Persist.Sqlite
+    
+   import qualified Network.Wai.Handler.Warp as Warp
+
+    main :: IO ()
+    main = thermoprintServer True (Nat runSqlite) $ (\c -> c { queueManagers = queueManagers, warpSettings = wSettings }) <$> def `withPrinters` printers
+      where
+        runSqlite :: ReaderT ConnectionPool (LoggingT IO) a -> IO a
+        runSqlite = runStderrLoggingT . withSqlitePool "${users.extraUsers."thermoprint".home}/thermoprint.sqlite" 1 . runReaderT
+
+        printers = [ (pure $ genericPrint "/dev/usb/lp0", def)
+                   ]
+
+        queueManagers _ = QMConfig
+          { manager = union [ limitHistorySize 100
+                            , limitHistoryAge 3600
+                            ]
+          , collapse = standardCollapse
+          }
+
+        wSettings = setHost "*" . Warp.setPort 8080 $ Warp.defaultSettings 
+  '';
+
   systemd.services."thermoprint" = {
+    environment = {
+      THERMOPRINT_CONFIG = "/etc/thermoprint-server";
+      THERMOPRINT_CACHE = ${users.extraUsers."thermoprint".home}"/dyre";
+    };
+    serviceConfig = {
+      Type = "simple";
+      ExecStart = ''${pkgs.thermoprint-server}/bin/thermoprint-server'';
+      User = users.extraUsers."thermoprint".name;
+      Group = users.extraUsers."thermoprint".group;
+    };
+  };
+
+  systemd.services."thermoprint-webgui" = {
     serviceConfig = {
       Type = "simple";
-      ExecStart = ''${thermoprint-servant}/bin/thermoprint --database ${users.extraUsers."thermoprint".home}/database.sqlite /dev/usb/lp0'';
+      ExecStart = '''${pkgs.thermoprint-webgui}/bin/thermoprint-webgui -P 8080 -A localhost -a "*" -p 8081';
       User = users.extraUsers."thermoprint".name;
       Group = users.extraUsers."thermoprint".group;
     };
diff --git a/custom/thermoprint b/custom/thermoprint
-Subproject 7f84192054e2f3c2e379588b15cf73aaecfbad0
+Subproject 2b9ceaead3f3cd80e973cccecb9a3eebc51154f