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

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.pingCommand
, E.generalPingCommand
[ E.pingCommand "Pong!"
, E.generalPingCommand "Pong!"
, E.helpCommand "Some specific placeholder help"
, E.generalHelpCommand "I help test @Garmy's EuphApi"
, E.uptimeCommand
, E.generalUptimeCommand
, E.generalUptimeCommand -- most bots don't do this
, E.command "whatsmynick" (\msg -> do
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
)
]