Add botrulez support

This commit includes:
 - Some cleaned up debug messages
 - New and updated examples (they're all fixed again :D)

test/bot_with_botrulez.hs

@@ -0,0 +1,57 @@
+{-# LANGUAGE OverloadedStrings #-}
+
+import           Control.Monad
+import           Control.Monad.IO.Class
+import           Data.Monoid
+import           System.IO
+
+import qualified Data.Text                 as T
+import qualified System.Log.Formatter      as LF
+import qualified System.Log.Handler        as LH
+import qualified System.Log.Handler.Simple as LH
+import qualified System.Log.Logger         as L
+
+import qualified EuphApi.Bot               as B
+import qualified EuphApi.Connection        as E
+import qualified EuphApi.Types             as E
+import qualified EuphApi.Utils             as E
+import qualified EuphApi.Utils.Botrulez    as E
+
+myCommands :: [E.Command b c]
+myCommands =
+  [ E.pingCommand
+  , E.generalPingCommand
+  , E.helpCommand "Some specific placeholder help"
+  , E.generalHelpCommand "I help test @Garmy's EuphApi"
+  , E.uptimeCommand
+  , E.generalUptimeCommand
+  , 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
+      void $ B.reply (E.msgID msg) content
+    )
+  ]
+
+myBotHandler :: E.EventType -> B.Bot b c ()
+myBotHandler (E.EuphEvent (E.SendEvent msg)) = E.runCommands myCommands msg
+myBotHandler _                               = return ()
+
+myBotConfig :: B.BotConfig () ()
+myBotConfig = B.BotConfig
+  { B.botAddress           = "euphoria.io"
+  , B.botRoom              = "test"
+  , B.botPassword          = Nothing
+  , B.botNick              = "EuphApi test bot"
+  , B.botHandler           = myBotHandler
+  , B.botInfo              = ()
+  , B.botNewConnectionInfo = return ()
+  , B.botReconnectPolicy   = B.defaultReconnectPolicy
+  }
+
+main = do
+  myHandler <- LH.verboseStreamHandler stdout L.DEBUG
+  let myFormatter        = LF.simpleLogFormatter "<$time> [$loggername/$prio] $msg"
+      myFormattedHandler = LH.setFormatter myHandler myFormatter
+  L.updateGlobalLogger L.rootLoggerName (L.setHandlers [myFormattedHandler])
+  L.updateGlobalLogger L.rootLoggerName (L.setLevel L.DEBUG)
+  B.runBot myBotConfig