SidePanelToggleButton.purs

module Gargantext.Components.Nodes.Texts.SidePanelToggleButton
  ( Props, sidePanelToggleButton
  ) where

import Data.Tuple.Nested ((/\))
import Prelude
import Reactix as R
import Reactix.DOM.HTML as H
import Toestand as T

import Gargantext.Components.Nodes.Texts.Types
import Gargantext.Utils.Reactix as R2

here :: R2.Here
here = R2.here "Gargantext.Components.Nodes.Texts.SidePanelToggleButton"

type Props = ( state :: T.Box SidePanelState )

sidePanelToggleButton :: R2.Component Props
sidePanelToggleButton = R.createElement sidePanelToggleButtonCpt

sidePanelToggleButtonCpt :: R.Component Props
sidePanelToggleButtonCpt = here.component "sidePanelToggleButton" cpt
  where
    cpt { state } _ = do
      open' <- T.useLive T.unequal state

      pure $
        H.button { className: "btn btn-primary"
                 , on: { click: \_ -> T.modify_ toggleSidePanelState state } } [ H.text (text open') ]
    text InitialClosed = "Show Side Panel"
    text Opened        = "Hide Side Panel"
    text Closed        = "Show Side Panel"