proteome-0.3.14.0: lib/Proteome/Data/ActiveProject.hs

{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE DeriveAnyClass #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE OverloadedStrings #-}

module Proteome.Data.ActiveProject(
  ActiveProject(ActiveProject),
) where

import GHC.Generics (Generic)
import Control.DeepSeq (NFData)
import qualified Data.Map as Map (fromList)
import Neovim (Object)
import Neovim.Classes (NvimObject(..), Dictionary)
import Proteome.Data.Project(
  ProjectName,
  ProjectType,
  ProjectLang
  )

data ActiveProject =
  ActiveProject {
    name :: ProjectName,
    tpe :: ProjectType,
    lang :: Maybe ProjectLang
  }
  deriving (Eq, Show, Generic, NFData)

instance NvimObject ActiveProject where
  toObject ActiveProject {..} =
    (toObject :: Dictionary -> Object) . Map.fromList $
    [
      ("name", toObject name),
      ("tpe", toObject tpe),
      ("lang", toObject lang)
    ]
  fromObject _ = Left "ActiveProject is write-only"