{-# LANGUAGE OverloadedStrings #-}

module Plugin.Help
    ( help
    ) where

import Control.Monad (sequence)
import qualified Data.Text as T

import Bot (Bot)
import qualified PluginList as PL (plugins)
import Plugin.Base

help :: Bot Plugin
help = do
    return defaultPlugin
        { matchRegex  = "^help$"
        , perform     = helpAction
        , command     = "help"
        , description = "Show a list of available bot commands."
        , queryOnly   = True
        }

helpAction :: PluginAction
helpAction _ = do
    return $ Right $ T.intercalate "\n"
        -- [T.justifyRight longestCommandLen ' ' (command p)
        --     `T.append` " – "
        --     `T.append` description p
        -- | p <- plugins']
  where
    longestCommandLen = foldr (max) 0 (map (T.length . command) plugins)

    helpText plugin = T.justifyRight longestCommandLen ' ' (command plugin)
        `T.append` " – "
        `T.append` description plugin

plugins :: [Bot Plugin]
plugins = PL.plugins ++ [help]