purescript_linked_in/src/Model/Events.purs

module PureTabs.Model.Events (
  BackgroundEvent(..)
  , SidebarEvent(..)
  , TabWithGroup(..)
  ) where

import Browser.Tabs (Tab, TabId, WindowId)
import Browser.Tabs.OnUpdated (ChangeInfo)
import Data.Generic.Rep (class Generic)
import Data.Generic.Rep.Show (genericShow)
import Data.Maybe (Maybe)
import Data.Show (class Show)
import PureTabs.Model.Group (GroupId)
import Foreign.Class (class Decode, class Encode)
import Foreign.Generic (defaultOptions, genericDecode, genericEncode)


data TabWithGroup
  = TabWithGroup Tab (Maybe GroupId)

derive instance genTabWithGroup :: Generic TabWithGroup _

instance showTabWithGroup :: Show TabWithGroup where 
  show = genericShow

instance encodeTabWithGroup :: Encode TabWithGroup where
  encode x = genericEncode (defaultOptions { unwrapSingleConstructors = true }) x

instance decodeTabWithGroup :: Decode TabWithGroup where
  decode x = genericDecode (defaultOptions { unwrapSingleConstructors = true }) x

data BackgroundEvent
  = BgInitialTabList (Array TabWithGroup)
  | BgTabCreated Tab
  | BgTabDeleted TabId
  | BgTabUpdated TabId ChangeInfo Tab
  | BgTabMoved TabId Int Int
  | BgTabActivated (Maybe TabId) TabId
  | BgTabAttached Tab
  | BgTabDetached TabId
  | BgGroupDeleted GroupId (Maybe TabId)

derive instance genBackgroundEvent :: Generic BackgroundEvent _

instance showBackgroundEvent :: Show BackgroundEvent where
  show = genericShow

data SidebarEvent
  = SbDeleteTab TabId
  | SbActivateTab TabId
  | SbCreateTab (Maybe TabId)
  | SbMoveTab TabId Int
  | SbDetacheTab
  | SbHasWindowId WindowId
  | SbSelectedGroup (Array TabId)
  | SbDeletedGroup GroupId (Array TabId)
  | SbChangeTabGroup TabId (Maybe GroupId)

derive instance genSidebarEvent :: Generic SidebarEvent _

instance showSidebarEvent :: Show SidebarEvent where
  show = genericShow