[Config] allow to switch the current backend

NOTE This doesn't work yet, especially the dropdown is problematic...

src/Gargantext/BootstrapNative.js

+"use strict";
+
+exports.createDropdown = function(iid) {
+    var el = document.getElementById(iid);
+
+    if (!window.Dropdown) return;
+
+    new window.Dropdown(el, {});
+};

src/Gargantext/BootstrapNative.purs

+module Gargantext.BootstrapNative where
+
+import Effect (Effect)
+
+import Gargantext.Prelude
+
+foreign import createDropdown :: String -> Effect Unit

src/Gargantext/Components/FacetsTable.purs

@@ -388,7 +388,7 @@ renderPage loaderDispatch { totalRecords, dispatch, container
                       ]
                     -- TODO show date: Year-Month-Day only
                     , div strikeIfDeleted [text date]
-                    , a (strikeIfDeleted <> [ href $ toLink $ endConfigStateful Router.Document listId id
+                    , a (strikeIfDeleted <> [ href $ toLink endConfigStateful $ Router.Document listId id
                                             , target "blank"])
                         [ text title ]
                     , div strikeIfDeleted [text source]

src/Gargantext/Components/Search/Types.purs

@@ -17,7 +17,7 @@ import Thermite (PerformAction, modifyState)
 
 import Gargantext.Prelude
 import Gargantext.Types (class ToQuery)
-import Gargantext.Config (End(..), NodeType(..), Path(..), toUrl)
+import Gargantext.Config (endConfigStateful, End(..), NodeType(..), Path(..), toUrl)
 import Gargantext.Config.REST (post, put)
 import Gargantext.Components.Modals.Modal (modalHide)
 import Gargantext.Utils (id)
@@ -143,7 +143,7 @@ instance encodeJsonCategoryQuery :: EncodeJson CategoryQuery where
     ~> jsonEmptyObject
 
 categoryUrl :: Int -> String
-categoryUrl nodeId = toUrl Back Node (Just nodeId) <> "/category"
+categoryUrl nodeId = toUrl endConfigStateful Back Node (Just nodeId) <> "/category"
 
 putCategories :: Int -> CategoryQuery -> Aff (Array Int)
 putCategories nodeId = put $ categoryUrl nodeId

src/Gargantext/Config.purs

@@ -11,12 +11,15 @@ module Gargantext.Config where
 
 import Prelude
 import Data.Argonaut (class DecodeJson, decodeJson, class EncodeJson, encodeJson, (:=), (~>), jsonEmptyObject)
+import Data.Array (filter, head)
 import Data.Foldable (foldMap)
 import Data.Generic.Rep (class Generic)
 import Data.Generic.Rep.Show (genericShow)
-import Data.Maybe (Maybe(..), maybe)
-import Gargantext.Router as R
+import Data.Maybe (Maybe(..), maybe, fromJust)
+import Partial.Unsafe (unsafePartial)
+import Thermite (PerformAction, modifyState_)
 
+import Gargantext.Router as R
 import Gargantext.Types (TermList, TermSize(..))
 
 urlPlease :: End -> String -> String
@@ -28,15 +31,63 @@ endConfigStateful :: EndConfig
 endConfigStateful = endConfig
 
 endConfig :: EndConfig
-endConfig = endConfig' V10
+endConfig = devEndConfig
 
-endConfig' :: ApiVersion -> EndConfig
-endConfig' v = { front : frontRelative
-               , back  : backLocal v
-               --, back: backDev v
-               , static : staticRelative
-             }
---               , back  : backDemo v  }
+devEndConfig :: EndConfig
+devEndConfig = devEndConfig' V10
+
+devEndConfig' :: ApiVersion -> EndConfig
+devEndConfig' v = { front : frontRelative
+                    , back: backDev v
+                    , static : staticRelative
+                  }
+
+localEndConfig :: EndConfig
+localEndConfig = localEndConfig' V10
+
+localEndConfig' :: ApiVersion -> EndConfig
+localEndConfig' v = { front : frontRelative
+                    , back  : backLocal v
+                    , static : staticRelative
+                    }
+
+
+type EndConfigOption = {
+    endConfig :: EndConfig
+  , displayName :: String
+  }
+
+endConfigOptions :: Array EndConfigOption
+endConfigOptions = [
+  {
+      endConfig: devEndConfig
+    , displayName: "dev"
+  }
+  , {
+       endConfig: localEndConfig
+     , displayName: "local"
+  }
+  ]
+
+endConfigDisplayName :: EndConfig -> String
+endConfigDisplayName endConfig = (unsafePartial $ fromJust h).displayName
+  where
+    h = head $ filter (\ec -> ec.endConfig == endConfig) endConfigOptions
+
+type State = {
+    endConfig :: EndConfig
+  }
+
+initialState :: State
+initialState = {
+  endConfig: endConfig
+  }
+
+data StateAction = UpdateState State
+
+statePerformAction :: forall props. PerformAction State props StateAction
+statePerformAction (UpdateState state) _ _ =
+  void $ modifyState_ $ const state
 
 ------------------------------------------------------------------------
 frontRelative :: Config

src/Gargantext/Pages/Layout/Actions.purs

@@ -11,6 +11,7 @@ import Routing.Hash                                    (setHash)
 
 import Gargantext.Components.Login                  as LN
 import Gargantext.Components.Modals.Modal              (modalShow)
+import Gargantext.Config as C
 import Gargantext.Pages.Annuaire             as Annuaire
 import Gargantext.Pages.Corpus.Graph     as GE
 import Gargantext.Pages.Layout.States                  (AppState)
@@ -28,6 +29,7 @@ data Action
   | Logout
   | ShowAddCorpus
   | ToggleTree
+  | ConfigStateA C.StateAction
 
 
 performAction :: PerformAction AppState {} Action
@@ -62,6 +64,8 @@ performAction (AnnuaireAction  _) _ _ = pure unit
   -- liftEffect $ modalShow "addCorpus"
   -- modifyState $ _ {showCorpus = true}
 
+performAction (ConfigStateA _) _ _ = pure unit
+
 ----------------------------------------------------------
 
 _loginAction :: Prism' Action LN.Action
@@ -70,6 +74,12 @@ _loginAction = prism LoginA \action ->
     LoginA caction -> Right caction
     _-> Left action
 
+_configStateAction :: Prism' Action C.StateAction
+_configStateAction = prism ConfigStateA \action ->
+  case action of
+    ConfigStateA caction -> Right caction
+    _-> Left action
+
 _annuaireAction :: Prism' Action Annuaire.Action
 _annuaireAction = prism AnnuaireAction \action ->
   case action of

src/Gargantext/Pages/Layout/Specs.purs

@@ -3,6 +3,7 @@ module Gargantext.Pages.Layout.Specs where
 import Data.Foldable (fold, intercalate)
 import Data.Lens (over)
 import Data.Maybe (Maybe(Nothing, Just))
+import Data.Tuple.Nested((/\))
 import Effect (Effect)
 import React.DOM (button, div, text)
 import React.DOM.Props (_id, className, onClick, role, style)
@@ -11,11 +12,13 @@ import Reactix.DOM.HTML as H
 import Thermite (Spec, _render, defaultPerformAction, defaultRender, focus, simpleSpec, withState, noState, cmapProps)
 -- import Unsafe.Coerce (unsafeCoerce)
 
+import Gargantext.BootstrapNative (createDropdown)
 import Gargantext.Prelude
 import Gargantext.Components.Data.Lang (Lang(..))
 import Gargantext.Components.Login.Types (AuthData(..))
 import Gargantext.Components.Login as LN
 import Gargantext.Components.Tree  as Tree
+import Gargantext.Config as C
 import Gargantext.Folder           as F
 import Gargantext.Pages.Annuaire   as A
 import Gargantext.Pages.Annuaire.User.Contacts as C
@@ -26,9 +29,9 @@ import Gargantext.Pages.Corpus.Graph as GE
 import Gargantext.Pages.Lists as Lists
 import Gargantext.Pages.Texts as Texts
 import Gargantext.Pages.Home as L
-import Gargantext.Pages.Layout.Actions (Action(..), _graphExplorerAction, _loginAction, performAction)
+import Gargantext.Pages.Layout.Actions (Action(..), _graphExplorerAction, _loginAction, performAction, _configStateAction)
 import Gargantext.Pages.Layout.Specs.SearchBar as SB
-import Gargantext.Pages.Layout.States (AppState, _graphExplorerState, _loginState)
+import Gargantext.Pages.Layout.States (AppState, _graphExplorerState, _loginState, _configState)
 import Gargantext.Router (Routes(..))
 import Gargantext.Utils.Reactix as R2
 
@@ -94,7 +97,7 @@ layout0 layout =
        withState \st ->
           case st.loginState.authData of
             Just (AuthData {tree_id}) ->
-              ls $ cmapProps (const {root: tree_id, mCurrentRoute: st.currentRoute}) $ Tree.treeview
+              ls $ cmapProps (const {root: tree_id, mCurrentRoute: st.currentRoute, endConfig: st.configState.endConfig}) $ noState $ Tree.treeview
             Nothing ->
               outerLayout1
       , rs bs
@@ -140,7 +143,7 @@ layout1 layout =
       [ withState \st ->
           case st.loginState.authData of
             Just (AuthData {tree_id}) ->
-              ls $ cmapProps (const {root: tree_id, mCurrentRoute: st.currentRoute}) $ Tree.treeview
+              ls $ cmapProps (const {root: tree_id, mCurrentRoute: st.currentRoute, endConfig: st.configState.endConfig}) $ noState $ Tree.treeview
             Nothing ->
               outerLayout1
       , rs bs
@@ -333,12 +336,51 @@ logLinks d s = case s.loginState.authData of
           [H.text " Logout"]
 
 
+endConfigChooser :: R.State C.State -> R.Element
+endConfigChooser (configState /\ setConfigState) = R.createElement el {} []
+  where
+    el = R.hooksComponent "EndConfigChooser" cpt
+    cpt {} _ = do
+      -- NOTE Need to rebind the component after rerender
+      R.useEffect $
+        pure $ createDropdown "end-config-chooser"
+
+      pure $ H.li {className: "dropdown"}
+        [ H.a { className: "navbar-text dropdown-toggle"
+              , href: "#"
+              , role: "button"
+              , data: {toggle: "dropdown"}
+              , id: "end-config-chooser"
+              }
+          [ H.text $ C.endConfigDisplayName configState.endConfig ]
+        , H.ul { className: "dropdown-menu"
+               } (liItem <$> C.endConfigOptions)
+        ]
+
+    liItem :: C.EndConfigOption -> R.Element
+    liItem {endConfig, displayName} =
+      --H.li {on: {click: \_ -> setConfigState $ \st -> st {endConfig = endConfig}}}
+      H.li {}
+      [ H.a {href: "#"} [H.text displayName] ]
+
+
 divDropdownRight :: (Action -> Effect Unit) -> AppState -> R.Element
-divDropdownRight d s =
-  H.ul {className: "nav navbar-nav pull-right"}
-  [ H.li {className: "dropdown"}
-    [ logLinks d s ]
-  ]
+divDropdownRight d s = R.createElement el {} []
+  where
+    el = R.hooksComponent "DivDropdownRight" cpt
+    cpt {} _children = do
+      (configState /\ setConfigState) <- R.useState' s.configState
+
+      R.useEffect $
+        if (configState /= s.configState) then do
+          pure $ d $ ConfigStateA $ C.UpdateState configState
+        else
+          pure $ pure $ unit
+
+      pure $ H.ul {className: "nav navbar-nav pull-right"}
+        [ endConfigChooser (configState /\ setConfigState)
+        , logLinks d s
+        ]
 
 layoutFooter :: Spec {} {} Void
 layoutFooter = R2.elSpec $ R.hooksComponent "LayoutFooter" cpt

src/Gargantext/Pages/Layout/States.purs

@@ -5,8 +5,8 @@ import Prelude hiding (div)
 import Data.Lens                                       (Lens', lens)
 import Data.Maybe                                      (Maybe(Just))
 import Effect (Effect)
+import Gargantext.Config as C
 import Gargantext.Components.Login                  as LN
-import Gargantext.Config (EndConfig, endConfigStateful)
 
 import Gargantext.Pages.Corpus.Graph     as GE
 import Gargantext.Router                               (Routes(..))
@@ -18,7 +18,7 @@ type AppState =
   , showCorpus         :: Boolean
   , graphExplorerState :: GE.State
   , showTree           :: Boolean
-  , endConfig          :: EndConfig
+  , configState     :: C.State
   }
 
 initAppState :: Effect AppState
@@ -31,7 +31,7 @@ initAppState = do
     , showCorpus     : false
     , graphExplorerState : GE.initialState
     , showTree : false
-    , endConfig : endConfigStateful
+    , configState : C.initialState
     }
 
 
@@ -40,6 +40,9 @@ initAppState = do
 _loginState :: Lens' AppState LN.State
 _loginState = lens (\s -> s.loginState) (\s ss -> s{loginState = ss})
 
+_configState :: Lens' AppState C.State
+_configState = lens (\s -> s.configState) (\s ss -> s{configState = ss})
+
 _graphExplorerState :: Lens' AppState GE.State
 _graphExplorerState = lens (\s -> s.graphExplorerState) (\s ss -> s{graphExplorerState = ss})