matterhorn-50200.12.0: src/Matterhorn/State/ChannelTopicWindow.hs

module Matterhorn.State.ChannelTopicWindow
  ( openChannelTopicWindow
  )
where

import           Prelude ()
import           Matterhorn.Prelude

import           Lens.Micro.Platform ( (.=) )

import           Matterhorn.Types
import           Matterhorn.State.Channels ( getCurrentChannelTopic )


openChannelTopicWindow :: MH ()
openChannelTopicWindow = do
    t <- getCurrentChannelTopic
    tId <- use csCurrentTeamId
    csCurrentTeam.tsChannelTopicDialog .= newChannelTopicDialog tId t
    setMode ChannelTopicWindow