Add plugin support

Author: janslifka

app-wizard/elm/Wizard/Api/Models/BootstrapConfig.elm

@@ -6,8 +6,9 @@ module Wizard.Api.Models.BootstrapConfig exposing
     )
 
 import Common.Api.Models.AppSwitcherItem as AppSwitcherItem exposing (AppSwitcherItem)
-import Common.Api.Models.UserInfo as UserInfo exposing (UserInfo)
+import Dict exposing (Dict)
 import Json.Decode as D exposing (Decoder)
+import Json.Decode.Extensions as D
 import Json.Decode.Pipeline as D
 import Wizard.Api.Models.BootstrapConfig.Admin as AdminConfig exposing (Admin)
 import Wizard.Api.Models.BootstrapConfig.AuthenticationConfig as AuthenticationConfig exposing (AuthenticationConfig)
@@ -17,11 +18,13 @@ import Wizard.Api.Models.BootstrapConfig.FeaturesConfig as FeaturesConfig exposi
 import Wizard.Api.Models.BootstrapConfig.LookAndFeelConfig as LookAndFeelConfig exposing (LookAndFeelConfig)
 import Wizard.Api.Models.BootstrapConfig.OrganizationConfig as OrganizationConfig exposing (OrganizationConfig)
 import Wizard.Api.Models.BootstrapConfig.OwlConfig as OwlConfig exposing (OwlConfig)
+import Wizard.Api.Models.BootstrapConfig.PluginInfo as PluginInfo exposing (PluginInfo)
 import Wizard.Api.Models.BootstrapConfig.PrivacyAndSupportConfig as PrivacyAndSupportConfig exposing (PrivacyAndSupportConfig)
 import Wizard.Api.Models.BootstrapConfig.ProjectConfig as ProjectConfig exposing (ProjectConfig)
 import Wizard.Api.Models.BootstrapConfig.RegistryConfig as RegistryConfig exposing (RegistryConfig)
 import Wizard.Api.Models.BootstrapConfig.SignalBridgeConfig as SignalBridgeConfig exposing (SignalBridgeConfig)
 import Wizard.Api.Models.BootstrapConfig.SubmissionConfig as SubmissionConfig exposing (SubmissionConfig)
+import Wizard.Api.Models.BootstrapConfig.UserConfig as UserConfig exposing (UserConfig)
 
 
 type alias BootstrapConfig =
@@ -32,6 +35,8 @@ type alias BootstrapConfig =
     , registry : RegistryConfig
     , lookAndFeel : LookAndFeelConfig
     , organization : OrganizationConfig
+    , pluginSettings : Dict String String
+    , plugins : List PluginInfo
     , privacyAndSupport : PrivacyAndSupportConfig
     , project : ProjectConfig
     , submission : SubmissionConfig
@@ -40,7 +45,7 @@ type alias BootstrapConfig =
     , modules : List AppSwitcherItem
     , signalBridge : SignalBridgeConfig
     , tours : List String
-    , user : Maybe UserInfo
+    , user : Maybe UserConfig
     }
 
 
@@ -53,6 +58,8 @@ default =
     , registry = RegistryConfig.default
     , lookAndFeel = LookAndFeelConfig.default
     , organization = OrganizationConfig.default
+    , pluginSettings = Dict.empty
+    , plugins = []
     , privacyAndSupport = PrivacyAndSupportConfig.default
     , project = ProjectConfig.default
     , submission = SubmissionConfig.default
@@ -75,6 +82,8 @@ decoder =
         |> D.required "registry" RegistryConfig.decoder
         |> D.required "lookAndFeel" LookAndFeelConfig.decoder
         |> D.required "organization" OrganizationConfig.decoder
+        |> D.required "pluginSettings" (D.dict D.valueAsString)
+        |> D.required "plugins" (D.list PluginInfo.decoder)
         |> D.required "privacyAndSupport" PrivacyAndSupportConfig.decoder
         |> D.required "project" ProjectConfig.decoder
         |> D.required "submission" SubmissionConfig.decoder
@@ -83,7 +92,7 @@ decoder =
         |> D.required "modules" (D.list AppSwitcherItem.decoder)
         |> D.required "signalBridge" SignalBridgeConfig.decoder
         |> D.required "tours" (D.list D.string)
-        |> D.required "user" (D.maybe UserInfo.decoder)
+        |> D.required "user" (D.maybe UserConfig.decoder)
 
 
 addTour : String -> BootstrapConfig -> BootstrapConfig

app-wizard/elm/Wizard/Api/Models/BootstrapConfig/PluginInfo.elm

@@ -0,0 +1,25 @@
+module Wizard.Api.Models.BootstrapConfig.PluginInfo exposing (PluginInfo, decoder, toTuple)
+
+import Json.Decode as D exposing (Decoder)
+import Json.Decode.Pipeline as D
+import Uuid exposing (Uuid)
+
+
+type alias PluginInfo =
+    { enabled : Bool
+    , url : String
+    , uuid : Uuid
+    }
+
+
+decoder : Decoder PluginInfo
+decoder =
+    D.succeed PluginInfo
+        |> D.required "enabled" D.bool
+        |> D.required "url" D.string
+        |> D.required "uuid" Uuid.decoder
+
+
+toTuple : PluginInfo -> ( String, Bool )
+toTuple pluginInfo =
+    ( Uuid.toString pluginInfo.uuid, pluginInfo.enabled )

app-wizard/elm/Wizard/Api/Models/BootstrapConfig/UserConfig.elm

@@ -0,0 +1,53 @@
+module Wizard.Api.Models.BootstrapConfig.UserConfig exposing
+    ( UserConfig
+    , decoder
+    , toUserSuggestion
+    )
+
+import Common.Api.Models.UserSuggestion exposing (UserSuggestion)
+import Common.Data.Role as Role exposing (Role)
+import Dict exposing (Dict)
+import Gravatar
+import Json.Decode as D exposing (Decoder)
+import Json.Decode.Extensions as D
+import Json.Decode.Pipeline as D
+import Uuid exposing (Uuid)
+
+
+type alias UserConfig =
+    { uuid : Uuid
+    , email : String
+    , firstName : String
+    , lastName : String
+    , role : Role
+    , permissions : List String
+    , imageUrl : Maybe String
+    , userGroupUuids : List Uuid
+    , lastSeenNewsId : Maybe String
+    , pluginSettings : Dict String String
+    }
+
+
+decoder : Decoder UserConfig
+decoder =
+    D.succeed UserConfig
+        |> D.required "uuid" Uuid.decoder
+        |> D.required "email" D.string
+        |> D.required "firstName" D.string
+        |> D.required "lastName" D.string
+        |> D.required "role" Role.decoder
+        |> D.required "permissions" (D.list D.string)
+        |> D.required "imageUrl" (D.maybe D.string)
+        |> D.required "userGroupUuids" (D.list Uuid.decoder)
+        |> D.required "lastSeenNewsId" (D.maybe D.string)
+        |> D.required "pluginSettings" (D.dict D.valueAsString)
+
+
+toUserSuggestion : UserConfig -> UserSuggestion
+toUserSuggestion userInfo =
+    { uuid = userInfo.uuid
+    , firstName = userInfo.firstName
+    , lastName = userInfo.lastName
+    , gravatarHash = Gravatar.hashEmail userInfo.email
+    , imageUrl = userInfo.imageUrl
+    }

app-wizard/elm/Wizard/Api/Models/Document.elm

@@ -1,19 +1,23 @@
 module Wizard.Api.Models.Document exposing
     ( Document
     , decoder
+    , encode
     , isOwner
     )
 
+import Iso8601
 import Json.Decode as D exposing (Decoder)
 import Json.Decode.Extra as D
 import Json.Decode.Pipeline as D
+import Json.Encode as E
+import Json.Encode.Extra as E
 import Time
 import Uuid exposing (Uuid)
+import Wizard.Api.Models.BootstrapConfig exposing (BootstrapConfig)
 import Wizard.Api.Models.Document.DocumentState as DocumentState exposing (DocumentState)
 import Wizard.Api.Models.DocumentTemplate.DocumentTemplateFormat as DocumentTemplateFormat exposing (DocumentTemplateFormat)
 import Wizard.Api.Models.ProjectInfo as ProjectInfo exposing (ProjectInfo)
 import Wizard.Api.Models.Submission as Submission exposing (Submission)
-import Wizard.Data.AppState exposing (AppState)
 
 
 type alias Document =
@@ -25,7 +29,7 @@ type alias Document =
     , projectVersion : Maybe String
     , documentTemplateId : String
     , documentTemplateName : String
-    , format : Maybe DocumentTemplateFormat
+    , format : DocumentTemplateFormat
     , state : DocumentState
     , submissions : List Submission
     , createdBy : Maybe Uuid
@@ -34,7 +38,7 @@ type alias Document =
     }
 
 
-isOwner : AppState -> Document -> Bool
+isOwner : { a | config : BootstrapConfig } -> Document -> Bool
 isOwner appState document =
     appState.config.user
         |> Maybe.map (.uuid >> Just >> (==) document.createdBy)
@@ -52,9 +56,28 @@ decoder =
         |> D.required "projectVersion" (D.maybe D.string)
         |> D.required "documentTemplateId" D.string
         |> D.required "documentTemplateName" D.string
-        |> D.required "format" (D.maybe DocumentTemplateFormat.decoder)
+        |> D.required "format" DocumentTemplateFormat.decoder
         |> D.required "state" DocumentState.decoder
         |> D.required "submissions" (D.list Submission.decoder)
         |> D.required "createdBy" (D.maybe Uuid.decoder)
         |> D.required "fileSize" (D.maybe D.int)
         |> D.required "workerLog" (D.maybe D.string)
+
+
+encode : Document -> E.Value
+encode document =
+    E.object
+        [ ( "uuid", Uuid.encode document.uuid )
+        , ( "name", E.string document.name )
+        , ( "createdAt", Iso8601.encode document.createdAt )
+        , ( "project", E.maybe ProjectInfo.encode document.project )
+        , ( "projectEventUuid", E.maybe Uuid.encode document.projectEventUuid )
+        , ( "projectVersion", E.maybe E.string document.projectVersion )
+        , ( "documentTemplateId", E.string document.documentTemplateId )
+        , ( "documentTemplateName", E.string document.documentTemplateName )
+        , ( "format", DocumentTemplateFormat.encode document.format )
+        , ( "state", DocumentState.encode document.state )
+        , ( "createdBy", E.maybe Uuid.encode document.createdBy )
+        , ( "fileSize", E.maybe E.int document.fileSize )
+        , ( "workerLog", E.maybe E.string document.workerLog )
+        ]

app-wizard/elm/Wizard/Api/Models/Document/DocumentState.elm

@@ -1,9 +1,11 @@
 module Wizard.Api.Models.Document.DocumentState exposing
     ( DocumentState(..)
     , decoder
+    , encode
     )
 
 import Json.Decode as D exposing (Decoder)
+import Json.Encode as E
 
 
 type DocumentState
@@ -34,3 +36,19 @@ decoder =
                     unknownState ->
                         D.fail <| "Unknown document state " ++ unknownState
             )
+
+
+encode : DocumentState -> E.Value
+encode documentState =
+    case documentState of
+        QueuedDocumentState ->
+            E.string "QueuedDocumentState"
+
+        InProgressDocumentState ->
+            E.string "InProgressDocumentState"
+
+        DoneDocumentState ->
+            E.string "DoneDocumentState"
+
+        ErrorDocumentState ->
+            E.string "ErrorDocumentState"

app-wizard/elm/Wizard/Api/Models/DocumentTemplate/DocumentTemplateFormat.elm

@@ -1,10 +1,12 @@
 module Wizard.Api.Models.DocumentTemplate.DocumentTemplateFormat exposing
     ( DocumentTemplateFormat
     , decoder
+    , encode
     )
 
 import Json.Decode as D exposing (Decoder)
 import Json.Decode.Pipeline as D
+import Json.Encode as E
 import Uuid exposing (Uuid)
 
 
@@ -21,3 +23,12 @@ decoder =
         |> D.required "uuid" Uuid.decoder
         |> D.required "name" D.string
         |> D.required "icon" D.string
+
+
+encode : DocumentTemplateFormat -> E.Value
+encode format =
+    E.object
+        [ ( "uuid", Uuid.encode format.uuid )
+        , ( "name", E.string format.name )
+        , ( "icon", E.string format.icon )
+        ]

app-wizard/elm/Wizard/Api/Models/KnowledgeModel/Question.elm

@@ -6,6 +6,7 @@ module Wizard.Api.Models.KnowledgeModel.Question exposing
     , addItemTemplateQuestionUuids
     , addReferenceUuid
     , decoder
+    , encode
     , getAnnotations
     , getAnswerUuids
     , getChoiceUuids
@@ -40,6 +41,7 @@ module Wizard.Api.Models.KnowledgeModel.Question exposing
 import Dict exposing (Dict)
 import Json.Decode as D exposing (Decoder)
 import Json.Decode.Extra as D
+import Json.Encode as E
 import List.Extra as List
 import Wizard.Api.Models.KnowledgeModel.Annotation exposing (Annotation)
 import Wizard.Api.Models.KnowledgeModel.Question.CommonQuestionData as CommonQuestionData exposing (CommonQuestionData)
@@ -118,6 +120,63 @@ fileQuestionDecoder =
 
 
 
+-- Encoders
+
+
+encode : Question -> E.Value
+encode question =
+    case question of
+        OptionsQuestion commonQuestionData optionQuestionData ->
+            E.object
+                (( "questionType", E.string (QuestionType.toString OptionsQuestionType) )
+                    :: CommonQuestionData.encodeValues commonQuestionData
+                    ++ OptionsQuestionData.encodeValues optionQuestionData
+                )
+
+        ListQuestion commonQuestionData listQuestionData ->
+            E.object
+                (( "questionType", E.string (QuestionType.toString ListQuestionType) )
+                    :: CommonQuestionData.encodeValues commonQuestionData
+                    ++ ListQuestionData.encodeValues listQuestionData
+                )
+
+        ValueQuestion commonQuestionData valueQuestionData ->
+            E.object
+                (( "questionType", E.string (QuestionType.toString ValueQuestionType) )
+                    :: CommonQuestionData.encodeValues commonQuestionData
+                    ++ ValueQuestionData.encodeValues valueQuestionData
+                )
+
+        IntegrationQuestion commonQuestionData integrationQuestionData ->
+            E.object
+                (( "questionType", E.string (QuestionType.toString IntegrationQuestionType) )
+                    :: CommonQuestionData.encodeValues commonQuestionData
+                    ++ IntegrationQuestionData.encodeValues integrationQuestionData
+                )
+
+        MultiChoiceQuestion commonQuestionData multiChoiceQuestionData ->
+            E.object
+                (( "questionType", E.string (QuestionType.toString MultiChoiceQuestionType) )
+                    :: CommonQuestionData.encodeValues commonQuestionData
+                    ++ MultiChoiceQuestionData.encodeValues multiChoiceQuestionData
+                )
+
+        ItemSelectQuestion commonQuestionData itemSelectQuestionData ->
+            E.object
+                (( "questionType", E.string (QuestionType.toString ItemSelectQuestionType) )
+                    :: CommonQuestionData.encodeValues commonQuestionData
+                    ++ ItemSelectQuestionData.encodeValues itemSelectQuestionData
+                )
+
+        FileQuestion commonQuestionData fileQuestionData ->
+            E.object
+                (( "questionType", E.string (QuestionType.toString FileQuestionType) )
+                    :: CommonQuestionData.encodeValues commonQuestionData
+                    ++ FileQuestionData.encodeValues fileQuestionData
+                )
+
+
+
 -- Helpers
 
 

app-wizard/elm/Wizard/Api/Models/KnowledgeModel/Question/CommonQuestionData.elm

@@ -1,10 +1,13 @@
 module Wizard.Api.Models.KnowledgeModel.Question.CommonQuestionData exposing
     ( CommonQuestionData
     , decoder
+    , encodeValues
     )
 
 import Json.Decode as D exposing (Decoder)
 import Json.Decode.Pipeline as D
+import Json.Encode as E
+import Json.Encode.Extra as E
 import Wizard.Api.Models.KnowledgeModel.Annotation as Annotation exposing (Annotation)
 
 
@@ -31,3 +34,16 @@ decoder =
         |> D.required "referenceUuids" (D.list D.string)
         |> D.required "expertUuids" (D.list D.string)
         |> D.required "annotations" (D.list Annotation.decoder)
+
+
+encodeValues : CommonQuestionData -> List ( String, E.Value )
+encodeValues commonData =
+    [ ( "uuid", E.string commonData.uuid )
+    , ( "title", E.string commonData.title )
+    , ( "text", E.maybe E.string commonData.text )
+    , ( "requiredPhaseUuid", E.maybe E.string commonData.requiredPhaseUuid )
+    , ( "tagUuids", E.list E.string commonData.tagUuids )
+    , ( "referenceUuids", E.list E.string commonData.referenceUuids )
+    , ( "expertUuids", E.list E.string commonData.expertUuids )
+    , ( "annotations", E.list Annotation.encode commonData.annotations )
+    ]