Feature excel enable multiple templates

src/Client/Index.fs

@@ -31,7 +31,7 @@ let View (model : Model) (dispatch : Msg -> unit) =
             prop.className "flex w-full overflow-auto h-screen"
             prop.children [
                 Modals.ModalProvider.Main(model, dispatch)
-                match model.ProtocolState.IsHome, model.PersistentStorageState.Host with
+                match model.PageState.IsHome, model.PersistentStorageState.Host with
                 | false, _ ->
                     View.MainPageView.Main(model, dispatch)
                 | _, Some Swatehost.Excel ->

src/Client/Init.fs

@@ -9,6 +9,7 @@ open Update
 
 let initialModel =
     {
+        PageState                   = PageState                 .init()
         PersistentStorageState      = PersistentStorageState    .init()
         DevState                    = DevState                  .init()
         TermSearchState             = TermSearch.Model          .init()

src/Client/MainComponents/Widgets.fs

@@ -231,9 +231,10 @@ type Widget =
 
         let content =
             let switchContent =
-                if model.ProtocolState.TemplatesSelected.Length > 0 && model.ProtocolState.WidgetTypes = Routing.WidgetTypes.Protocol then
-                    insertContent()
-                else selectContent()
+                if model.ProtocolState.TemplatesSelected.Length > 0 && not model.ProtocolState.IsProtocolSearch then
+                    insertContent ()
+                else
+                    selectContent ()
             Html.div [
                 prop.className "flex flex-col gap-4 @container/templateWidget"
                 prop.children switchContent

src/Client/Model.fs

@@ -125,6 +125,20 @@ type PersistentStorageState = {
         HasOntologiesLoaded     = false
     }
 
+type PageState = {
+    SidebarPage : Routing.SidebarPage
+    MainPage: Routing.MainPage
+} with
+    static member init () =
+        {
+            SidebarPage = SidebarPage.BuildingBlock
+            MainPage = MainPage.Default
+        }
+    member this.IsHome =
+        match this.MainPage with
+        | MainPage.Default -> true
+        | _ -> false
+
 module FilePicker =
     type Model = {
         FileNames   : (int*string) list
@@ -234,8 +248,7 @@ module Protocol =
         // ------ Protocol from Database ------
         TemplatesSelected   : ARCtrl.Template list
         Templates           : ARCtrl.Template []
-        WidgetTypes         : Routing.WidgetTypes
-        MainPage            : Routing.MainPage
+        IsProtocolSearch      : bool
     } with
         static member init () = {
             // Client
@@ -244,13 +257,8 @@ module Protocol =
             TemplatesSelected   = []
             // ------ Protocol from Database ------
             Templates           = [||]
-            WidgetTypes         = WidgetTypes.BuildingBlock
-            MainPage            = MainPage.Default
+            IsProtocolSearch    = false
         }
-        member this.IsHome =
-            match this.MainPage with
-            | MainPage.Default  -> true
-            | _                 -> false
 
 type RequestBuildingBlockInfoStates =
 | Inactive
@@ -263,6 +271,8 @@ type RequestBuildingBlockInfoStates =
         | RequestDataBaseInformation    -> "Search Database "
 
 type Model = {
+    ///PageState
+    PageState               : PageState
     ///Data that needs to be persistent once loaded
     PersistentStorageState  : PersistentStorageState
     ///Error handling, Logging, etc.

src/Client/Pages/FilePicker/FilePickerView.fs

@@ -14,7 +14,7 @@ let update (filePickerMsg:FilePicker.Msg) (state: FilePicker.Model) (model: Mode
         let nextModel = {
             model with
                 Model.FilePickerState.FileNames = fileNames |> List.mapi (fun i x -> i + 1, x)
-                Model.ProtocolState.WidgetTypes = Routing.WidgetTypes.FilePicker
+                Model.PageState.SidebarPage = Routing.SidebarPage.FilePicker
         }
         let nextCmd = UpdateModel nextModel|> Cmd.ofMsg
         state, nextCmd

src/Client/Pages/ProtocolTemplates/ProtocolSearch.fs

@@ -15,14 +15,13 @@ module private HelperProtocolSearch =
             prop.children [
                 Html.ul [
                     Html.li [Html.a [
-                        prop.onClick (fun _ -> UpdateModel {model with Model.ProtocolState.WidgetTypes = Routing.WidgetTypes.Protocol} |> dispatch)
-                        prop.text (Routing.WidgetTypes.Protocol.AsStringRdbl)
+                        prop.onClick (fun _ -> UpdateModel {model with Model.PageState.SidebarPage = Routing.SidebarPage.Protocol} |> dispatch)
+                        prop.text (Routing.SidebarPage.Protocol.AsStringRdbl)
                     ]]
                     Html.li [
                         prop.className "is-active"
                         prop.children (Html.a [
-                            prop.onClick (fun _ -> UpdateModel {model with Model.ProtocolState.WidgetTypes = Routing.WidgetTypes.ProtocolSearch} |> dispatch)
-                            prop.text (Routing.WidgetTypes.ProtocolSearch.AsStringRdbl)
+                            prop.onClick (fun _ -> UpdateModel {model with Model.ProtocolState.IsProtocolSearch = true} |> dispatch)
                         ])
                     ]
                 ]

src/Client/Pages/ProtocolTemplates/ProtocolState.fs

@@ -54,11 +54,11 @@ module Protocol =
             }
             nextState, Cmd.none
         | SelectProtocols prots ->
-            log "SelectProtocols"
             let nextModel = {
                 model with
                     Model.ProtocolState.TemplatesSelected   = prots
-                    Model.ProtocolState.WidgetTypes         = Routing.WidgetTypes.Protocol
+                    Model.ProtocolState.IsProtocolSearch    = false
+                    Model.PageState.SidebarPage             = Routing.SidebarPage.Protocol
             }
             state, Cmd.ofMsg (UpdateModel nextModel)
         | AddProtocol prot ->
@@ -70,7 +70,7 @@ module Protocol =
             let nextState = {
                 state with
                     TemplatesSelected   = templates
-                    WidgetTypes         = Routing.WidgetTypes.ProtocolSearch
+                    IsProtocolSearch    = true
             }
             nextState, Cmd.none
         | ProtocolIncreaseTimesUsed templateId ->

src/Client/Pages/ProtocolTemplates/SelectiveTemplateFromDB.fs

@@ -36,7 +36,7 @@ type SelectiveTemplateFromDB =
     /// <param name="dispatch"></param>
     static member ToProtocolSearchElement(model: Model) dispatch =
         Daisy.button.button [
-            prop.onClick(fun _ -> UpdateModel {model with Model.ProtocolState.WidgetTypes = Routing.WidgetTypes.ProtocolSearch} |> dispatch)
+            prop.onClick(fun _ -> UpdateModel {model with Model.ProtocolState.IsProtocolSearch = true} |> dispatch)
             button.primary
             button.block
             prop.text "Browse database"

src/Client/Routing.fs

@@ -4,12 +4,11 @@ open Elmish.UrlParser
 open Feliz
 
 [<RequireQualifiedAccess>]
-type WidgetTypes =
+type SidebarPage =
     | BuildingBlock
     | TermSearch
     | FilePicker
     | Protocol
-    | ProtocolSearch
     | JsonExport
     | DataAnnotator
 
@@ -19,7 +18,6 @@ type WidgetTypes =
         | TermSearch        -> "Terms"
         | FilePicker        -> "File Picker"
         | Protocol          -> "Templates"
-        | ProtocolSearch    -> "Template Search"
         | JsonExport        -> "Json Export"
         | DataAnnotator     -> "Data Annotator"
 
@@ -37,8 +35,6 @@ type WidgetTypes =
             createElem [ Html.i [prop.className "fa-solid fa-circle-plus" ]; Html.i [prop.className "fa-solid fa-table-columns" ]]
         | Protocol          ->
             createElem [ Html.i [prop.className "fa-solid fa-circle-plus" ];Html.i [prop.className "fa-solid fa-table" ]]
-        | ProtocolSearch    ->
-            createElem [ Html.i [prop.className "fa-solid fa-table" ]; Html.i [prop.className "fa-solid fa-magnifying-glass" ]]
         | JsonExport        ->
             createElem [ Html.i [prop.className "fa-solid fa-file-export" ]]
         | FilePicker        ->

src/Client/SharedComponents/NavbarBurger.fs

@@ -52,7 +52,7 @@ type NavbarBurger =
     [<ReactComponent>]
     static member private Dropdown(isOpen, setIsOpen, model: Model.Model, dispatch) =
 
-        let navigateTo = fun (mainPage: Routing.MainPage) -> {model with Model.ProtocolState.MainPage = mainPage} |> Messages.UpdateModel |> dispatch
+        let navigateTo = fun (mainPage: Routing.MainPage) -> {model with Model.PageState.MainPage = mainPage} |> Messages.UpdateModel |> dispatch
         Components.BaseDropdown.Main(
             isOpen,
             setIsOpen,

src/Client/SidebarComponents/Tabs.fs

@@ -9,12 +9,12 @@ open Feliz.DaisyUI
 
 type Tabs =
 
-    static member private NavigationTab (pageLink: Routing.WidgetTypes) (model:Model) (dispatch:Msg-> unit) =
-        let isActive = pageLink = model.ProtocolState.WidgetTypes
+    static member private NavigationTab (pageLink: Routing.SidebarPage) (model:Model) (dispatch:Msg-> unit) =
+        let isActive = pageLink = model.PageState.SidebarPage
         Daisy.tab [
             if isActive then tab.active
             prop.className "navigation" // this class does not do anything, but disables <a> styling.
-            prop.onClick (fun e -> e.preventDefault(); UpdateModel { model with Model.ProtocolState.WidgetTypes = pageLink } |> dispatch)
+            prop.onClick (fun e -> e.preventDefault(); UpdateModel { model with Model.PageState.SidebarPage = pageLink } |> dispatch)
             prop.children (pageLink.AsIcon())
         ]
 
@@ -25,11 +25,11 @@ type Tabs =
             tabs.boxed
             prop.className "w-full"
             prop.children [
-                Tabs.NavigationTab Routing.WidgetTypes.BuildingBlock     model dispatch
-                Tabs.NavigationTab Routing.WidgetTypes.TermSearch        model dispatch
-                Tabs.NavigationTab Routing.WidgetTypes.Protocol          model dispatch
-                Tabs.NavigationTab Routing.WidgetTypes.FilePicker        model dispatch
-                Tabs.NavigationTab Routing.WidgetTypes.DataAnnotator     model dispatch
-                Tabs.NavigationTab Routing.WidgetTypes.JsonExport        model dispatch
+                Tabs.NavigationTab Routing.SidebarPage.BuildingBlock     model dispatch
+                Tabs.NavigationTab Routing.SidebarPage.TermSearch        model dispatch
+                Tabs.NavigationTab Routing.SidebarPage.Protocol          model dispatch
+                Tabs.NavigationTab Routing.SidebarPage.FilePicker        model dispatch
+                Tabs.NavigationTab Routing.SidebarPage.DataAnnotator     model dispatch
+                Tabs.NavigationTab Routing.SidebarPage.JsonExport        model dispatch
             ]
         ]

src/Client/Views/MainPageViews.fs

@@ -14,7 +14,7 @@ open MainPageUtil
 type MainPageView =
 
     static member DrawerSideContentItem (model: Model.Model, route: Routing.MainPage, onclick) =
-        let isActive = model.ProtocolState.MainPage = route
+        let isActive = model.PageState.MainPage = route
         Html.li [
             prop.onClick onclick
             prop.children [
@@ -35,7 +35,7 @@ type MainPageView =
                     prop.ariaLabel "Back to spreadsheet view"
                     button.link
                     button.sm
-                    prop.onClick (fun _ -> UpdateModel {model with Model.ProtocolState.MainPage = Routing.MainPage.Default} |> dispatch)
+                    prop.onClick (fun _ -> UpdateModel {model with Model.PageState.MainPage = Routing.MainPage.Default} |> dispatch)
                     prop.children [
                         Html.i [prop.className "fa-solid fa-arrow-left"]
                         Html.span "Back"
@@ -44,9 +44,9 @@ type MainPageView =
                 Html.ul [
                     prop.className "menu gap-y-1"
                     prop.children [
-                        MainPageView.DrawerSideContentItem(model, Routing.MainPage.Settings, fun _ -> UpdateModel {model with Model.ProtocolState.MainPage = Routing.MainPage.Settings} |> dispatch)
-                        MainPageView.DrawerSideContentItem(model, Routing.MainPage.About, fun _ -> UpdateModel {model with Model.ProtocolState.MainPage = Routing.MainPage.About} |> dispatch)
-                        MainPageView.DrawerSideContentItem(model, Routing.MainPage.PrivacyPolicy, fun _ -> UpdateModel {model with Model.ProtocolState.MainPage = Routing.MainPage.PrivacyPolicy} |> dispatch)
+                        MainPageView.DrawerSideContentItem(model, Routing.MainPage.Settings, fun _ -> UpdateModel {model with Model.PageState.MainPage = Routing.MainPage.Settings} |> dispatch)
+                        MainPageView.DrawerSideContentItem(model, Routing.MainPage.About, fun _ -> UpdateModel {model with Model.PageState.MainPage = Routing.MainPage.About} |> dispatch)
+                        MainPageView.DrawerSideContentItem(model, Routing.MainPage.PrivacyPolicy, fun _ -> UpdateModel {model with Model.PageState.MainPage = Routing.MainPage.PrivacyPolicy} |> dispatch)
                     ]
                 ]
             ]
@@ -78,7 +78,7 @@ type MainPageView =
 
             Html.div [
                 prop.ariaLabel "logo"
-                prop.onClick (fun _ -> UpdateModel {model with Model.ProtocolState.MainPage = Routing.MainPage.Default} |> dispatch)
+                prop.onClick (fun _ -> UpdateModel {model with Model.PageState.MainPage = Routing.MainPage.Default} |> dispatch)
                 prop.className "cursor-pointer"
                 prop.children [
                     Html.img [
@@ -90,7 +90,7 @@ type MainPageView =
         ]
 
     static member MainContent(model: Model.Model, dispatch) =
-        match model.ProtocolState.MainPage with
+        match model.PageState.MainPage with
         | Routing.MainPage.Settings ->
             Pages.Settings.Main(model, dispatch)
         | Routing.MainPage.About ->

src/Client/Views/SidebarView.fs

@@ -14,27 +14,27 @@ type SidebarView =
         Html.div [
             prop.className "grow overflow-y-auto"
             prop.children [
-                match model.ProtocolState with
-                | {WidgetTypes = Routing.WidgetTypes.BuildingBlock } ->
-                    BuildingBlock.Core.addBuildingBlockComponent model dispatch
-
-                | {WidgetTypes = Routing.WidgetTypes.TermSearch } ->
-                    TermSearch.Main (model, dispatch)
+                if model.ProtocolState.IsProtocolSearch then
+                    Protocol.SearchContainer.Main model dispatch
+                else
+                    match model.PageState with
+                    | {SidebarPage = Routing.SidebarPage.BuildingBlock } ->
+                        BuildingBlock.Core.addBuildingBlockComponent model dispatch
 
-                | {WidgetTypes = Routing.WidgetTypes.FilePicker } ->
-                    FilePicker.filePickerComponent model dispatch
+                    | {SidebarPage = Routing.SidebarPage.TermSearch } ->
+                        TermSearch.Main (model, dispatch)
 
-                | {WidgetTypes = Routing.WidgetTypes.Protocol } ->
-                    Protocol.Templates.Main (model, dispatch)
+                    | {SidebarPage = Routing.SidebarPage.FilePicker } ->
+                        FilePicker.filePickerComponent model dispatch
 
-                | {WidgetTypes = Routing.WidgetTypes.DataAnnotator } ->
-                    Pages.DataAnnotator.Main(model, dispatch)
+                    | {SidebarPage = Routing.SidebarPage.Protocol } ->
+                        Protocol.Templates.Main (model, dispatch)
 
-                | {WidgetTypes = Routing.WidgetTypes.JsonExport } ->
-                    JsonExporter.Core.FileExporter.Main(model, dispatch)
+                    | {SidebarPage = Routing.SidebarPage.DataAnnotator } ->
+                        Pages.DataAnnotator.Main(model, dispatch)
 
-                | {WidgetTypes = Routing.WidgetTypes.ProtocolSearch } ->
-                    Protocol.SearchContainer.Main model dispatch
+                    | {SidebarPage = Routing.SidebarPage.JsonExport } ->
+                        JsonExporter.Core.FileExporter.Main(model, dispatch)
             ]
         ]