{-# LANGUAGE DeriveGeneric #-}
module XMonad.Config.MasseR.ExtraConfig where

import GHC.Generics (Generic)
import Data.Text (Text)

data Applications =
  Applications { browser :: FilePath
               , launcher :: FilePath
               , prompt :: FilePath
               , screenshot :: FilePath
               , urxvt :: FilePath
               } deriving (Show, Generic)

data TopicRule =
  TopicRule { topicName :: Text
            , topicHome :: Maybe Text
            , topicAction :: Maybe Text
            }
               deriving (Show, Generic)

data ExtraConfig =
  ExtraConfig { applications :: Applications
              , topics :: [ TopicRule ] }
                 deriving (Show, Generic)