module Matterhorn.Constants
( pageAmount
, userTypingExpiryInterval
, numScrollbackPosts
, previewMaxHeight
, normalChannelSigil
, normalChannelSigilChar
, userSigil
, userSigilChar
, editMarking
)
where
import Prelude ()
import Matterhorn.Prelude
import qualified Data.Text as T
pageAmount :: Int
pageAmount :: Int
pageAmount = Int
15
userTypingExpiryInterval :: NominalDiffTime
userTypingExpiryInterval :: NominalDiffTime
userTypingExpiryInterval = NominalDiffTime
5
numScrollbackPosts :: Int
numScrollbackPosts :: Int
numScrollbackPosts = Int
100
previewMaxHeight :: Int
previewMaxHeight :: Int
previewMaxHeight = Int
5
normalChannelSigil :: Text
normalChannelSigil :: Text
normalChannelSigil = Char -> Text
T.singleton Char
normalChannelSigilChar
normalChannelSigilChar :: Char
normalChannelSigilChar :: Char
normalChannelSigilChar = Char
'~'
userSigil :: Text
userSigil :: Text
userSigil = Char -> Text
T.singleton Char
userSigilChar
userSigilChar :: Char
userSigilChar :: Char
userSigilChar = Char
'@'
editMarking :: Text
editMarking :: Text
editMarking = Text
"(edited)"