{-# Language OverloadedStrings, TemplateHaskell #-}
module Client.Commands.Docs
( cmdDoc
, chanopDocs
, chatDocs
, clientDocs
, integrationDocs
, netDocs
, operDocs
, queriesDocs
, togglesDocs
, windowDocs
) where
import Client.Docs (Docs, loadDoc, lookupDoc, makeHeader)
import Language.Haskell.TH (Q, Exp)
import Language.Haskell.TH.Syntax (lift)
cmdDoc :: Docs -> String -> Q Exp
cmdDoc :: Docs -> String -> Q Exp
cmdDoc Docs
docs String
key = Text -> String -> Docs -> Q Exp
lookupDoc (Text -> Text
makeHeader Text
"Description") (Char
'/'forall a. a -> [a] -> [a]
:String
key) Docs
docs
chanopDocs :: Docs
chanopDocs :: Docs
chanopDocs = $(loadDoc id "cmds_chanop" >>= lift)
chatDocs :: Docs
chatDocs :: Docs
chatDocs = $(loadDoc id "cmds_chat" >>= lift)
clientDocs :: Docs
clientDocs :: Docs
clientDocs = $(loadDoc id "cmds_client" >>= lift)
integrationDocs :: Docs
integrationDocs :: Docs
integrationDocs = $(loadDoc id "cmds_integration" >>= lift)
netDocs :: Docs
netDocs :: Docs
netDocs = $(loadDoc id "cmds_net" >>= lift)
operDocs :: Docs
operDocs :: Docs
operDocs = $(loadDoc id "cmds_oper" >>= lift)
queriesDocs :: Docs
queriesDocs :: Docs
queriesDocs = $(loadDoc id "cmds_queries" >>= lift)
togglesDocs :: Docs
togglesDocs :: Docs
togglesDocs = $(loadDoc id "cmds_toggles" >>= lift)
windowDocs :: Docs
windowDocs :: Docs
windowDocs = $(loadDoc id "cmds_window" >>= lift)