Add look and feel config to document context

Author: MarekSuchanek

shared-common/src/Shared/DocumentTemplate/Constant/DocumentTemplate.hs

@@ -3,7 +3,7 @@ module Shared.DocumentTemplate.Constant.DocumentTemplate where
 import Shared.Common.Model.Common.SemVer2Tuple
 
 documentTemplateMetamodelVersion :: SemVer2Tuple
-documentTemplateMetamodelVersion = SemVer2Tuple 17 0
+documentTemplateMetamodelVersion = SemVer2Tuple 17 1
 
 isDocumentTemplateSupported :: SemVer2Tuple -> Bool
 isDocumentTemplateSupported metamodelVersion

wizard-server/src/Wizard/Database/Migration/Development/Document/Data/Documents.hs

@@ -68,7 +68,15 @@ doc1Content =
 dmp1 :: DocumentContext
 dmp1 =
   DocumentContext
-    { config = DocumentContextConfig {clientUrl = "https://example.com/wizard"}
+    { config =
+        DocumentContextConfig
+          { clientUrl = "https://example.com/wizard"
+          , appTitle = Nothing
+          , appTitleShort = Nothing
+          , illustrationsColor = Nothing
+          , primaryColor = Nothing
+          , logoUrl = Nothing
+          }
     , document =
         DocumentContextDocument
           { uuid = doc1.uuid

wizard-server/src/Wizard/Model/Document/DocumentContext.hs

@@ -32,6 +32,11 @@ data DocumentContext = DocumentContext
 
 data DocumentContextConfig = DocumentContextConfig
   { clientUrl :: String
+  , appTitle :: Maybe String
+  , appTitleShort :: Maybe String
+  , illustrationsColor :: Maybe String
+  , primaryColor :: Maybe String
+  , logoUrl :: Maybe String
   }
   deriving (Show, Eq, Generic)
 

wizard-server/src/Wizard/Service/Document/Context/DocumentContextMapper.hs

@@ -19,6 +19,7 @@ import Wizard.Model.Tenant.Config.TenantConfig
 import Wizard.Model.User.User
 import Wizard.Service.KnowledgeModel.Package.KnowledgeModelPackageMapper
 import qualified Wizard.Service.User.UserMapper as USR_Mapper
+import WizardLib.Public.Model.Tenant.Config.TenantConfig
 
 toDocumentContext
   :: Document
@@ -34,14 +35,23 @@ toDocumentContext
   -> Report
   -> KnowledgeModelPackage
   -> TenantConfigOrganization
+  -> TenantConfigLookAndFeel
   -> Maybe User
   -> Maybe User
   -> [DocumentContextUserPerm]
   -> [DocumentContextUserGroupPerm]
   -> DocumentContext
-toDocumentContext doc appClientUrl project phaseUuid replies labels mProjectVersion projectVersionDtos projectFiles km report pkg org mProjectCreatedBy mDocCreatedBy users groups =
+toDocumentContext doc appClientUrl project phaseUuid replies labels mProjectVersion projectVersionDtos projectFiles km report pkg org lookAndFeel mProjectCreatedBy mDocCreatedBy users groups =
   DocumentContext
-    { config = DocumentContextConfig {clientUrl = appClientUrl}
+    { config =
+        DocumentContextConfig
+          { clientUrl = appClientUrl
+          , appTitle = lookAndFeel.appTitle
+          , appTitleShort = lookAndFeel.appTitleShort
+          , illustrationsColor = lookAndFeel.illustrationsColor
+          , primaryColor = lookAndFeel.primaryColor
+          , logoUrl = lookAndFeel.logoUrl
+          }
     , document =
         DocumentContextDocument
           { uuid = doc.uuid

wizard-server/src/Wizard/Service/Document/Context/DocumentContextService.hs

@@ -34,6 +34,7 @@ import Wizard.Service.Project.Compiler.ProjectCompilerService
 import Wizard.Service.Report.ReportGenerator
 import Wizard.Service.Tenant.TenantHelper
 import qualified Wizard.Service.User.UserMapper as USR_Mapper
+import WizardLib.Public.Database.DAO.Tenant.Config.TenantConfigLookAndFeelDAO
 import WizardLib.Public.Database.DAO.User.UserGroupDAO
 import WizardLib.Public.Model.User.UserGroup
 import qualified WizardLib.Public.Service.User.Group.UserGroupMapper as UGR_Mapper
@@ -44,6 +45,7 @@ createDocumentContext doc pkg kmEditorEvents project mReplies = do
   mProjectCreatedBy <- forM project.creatorUuid findUserByUuid
   mDocCreatedBy <- forM doc.createdBy findUserByUuid
   tcOrganization <- findTenantConfigOrganization
+  tcLookAndFeel <- findTenantConfigLookAndFeel
   clientUrl <- getClientUrl
   now <- liftIO getCurrentTime
   (phaseUuid, replies, labels) <-
@@ -83,6 +85,7 @@ createDocumentContext doc pkg kmEditorEvents project mReplies = do
       report
       pkg
       tcOrganization
+      tcLookAndFeel
       mProjectCreatedBy
       mDocCreatedBy
       users