26 lines
712 B
Haskell
26 lines
712 B
Haskell
{-# 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)
|