Garmelon/euph-api
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Make ping command customizable

Browse source
This commit is contained in:
Joscha 2018-02-20 06:43:52 +00:00
parent c12d278ee1
commit 02487f0d60
2 changed files with 11 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

12
src/EuphApi/Utils/Botrulez.hs
View file

@ -20,13 +20,13 @@ import qualified EuphApi.Bot as B
import qualified EuphApi.Types as E import qualified EuphApi.Types as E
import qualified EuphApi.Utils as E import qualified EuphApi.Utils as E
pingCommand :: E.Command b c pingCommand :: T.Text -> E.Command b c
pingCommand = E.specificCommand "ping" $ \msg -> pingCommand pingText = E.specificCommand "ping" $ \msg ->
void $ B.reply (E.msgID msg) "Pong!" void $ B.reply (E.msgID msg) pingText
generalPingCommand :: E.Command b c generalPingCommand :: T.Text -> E.Command b c
generalPingCommand = E.command "ping" $ \msg -> generalPingCommand pingText = E.command "ping" $ \msg ->
void $ B.reply (E.msgID msg) "Pong!" void $ B.reply (E.msgID msg) pingText
helpCommand :: T.Text -> E.Command b c helpCommand :: T.Text -> E.Command b c
helpCommand helpText = E.specificCommand "help" $ \msg -> helpCommand helpText = E.specificCommand "help" $ \msg ->

9
test/bot_with_botrulez.hs
View file

@ -17,15 +17,16 @@ import qualified EuphApi.Utils.Botrulez as E
myCommands :: [E.Command b c] myCommands :: [E.Command b c]
myCommands = myCommands =
[ E.pingCommand [ E.pingCommand "Pong!"
, E.generalPingCommand , E.generalPingCommand "Pong!"
, E.helpCommand "Some specific placeholder help" , E.helpCommand "Some specific placeholder help"
, E.generalHelpCommand "I help test @Garmy's EuphApi" , E.generalHelpCommand "I help test @Garmy's EuphApi"
, E.uptimeCommand , E.uptimeCommand
, E.generalUptimeCommand , E.generalUptimeCommand -- most bots don't do this
, E.command "whatsmynick" (\msg -> do , E.command "whatsmynick" (\msg -> do
nick <- E.sessName <$> B.getOwnView nick <- E.sessName <$> B.getOwnView
let content = nick <> "\n" <> E.mention nick <> "\n" <> E.atMention nick <> "\n" <> E.mentionReduce nick let content = nick <> "\n" <> E.mention nick <> "\n" <> E.atMention nick
<> "\n" <> E.mentionReduce nick
void $ B.reply (E.msgID msg) content void $ B.reply (E.msgID msg) content
) )
] ]