Copy ExampleBot over as InfoBot

haboli-infobot/app/Main.hs

@@ -1,4 +1,9 @@
 module Main where
 
+import           Control.Monad
+
+import           Haboli.Bots.InfoBot
+import           Haboli.Euphoria
+
 main :: IO ()
-main = putStrLn "Nothing to see here!"
+main = void $ runClient defaultConfig $ infoBot Nothing

haboli-infobot/haboli-infobot.cabal

@@ -4,7 +4,7 @@ cabal-version: 1.12
 --
 -- see: https://github.com/sol/hpack
 --
--- hash: cbb37543f441c735429df4c7e5caec2cf786ed7d2e27cd612cb81c71f5c1be0b
+-- hash: 7c1fd2d5312d7a2c2d70aed2270863ae9ee89af790c2eeb279d800f89d110ba1
 
 name:           haboli-infobot
 version:        0.1.0.0
@@ -25,13 +25,19 @@ source-repository head
   location: https://github.com/Garmelon/haboli-bot-collection
 
 library
+  exposed-modules:
+      Haboli.Bots.InfoBot
   other-modules:
       Paths_haboli_infobot
   hs-source-dirs:
       src
   build-depends:
       base >=4.7 && <5
+    , containers
     , haboli
+    , microlens-platform
+    , text
+    , time
   default-language: Haskell2010
 
 executable haboli-infobot
@@ -43,6 +49,10 @@ executable haboli-infobot
   ghc-options: -threaded -rtsopts -with-rtsopts=-N
   build-depends:
       base >=4.7 && <5
+    , containers
     , haboli
     , haboli-infobot
+    , microlens-platform
+    , text
+    , time
   default-language: Haskell2010

haboli-infobot/package.yaml

@@ -13,7 +13,11 @@ extra-source-files:
 
 dependencies:
   - base >= 4.7 && < 5
+  - containers
   - haboli
+  - microlens-platform
+  - text
+  - time
 
 library:
   source-dirs: src

haboli-infobot/src/Haboli/Bots/InfoBot.hs

@@ -0,0 +1,80 @@
+{-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE TemplateHaskell   #-}
+
+module Haboli.Bots.InfoBot
+  ( infoBot
+  ) where
+
+import           Control.Concurrent
+import           Control.Monad
+import           Control.Monad.IO.Class
+import           Data.List
+import qualified Data.Map.Strict          as Map
+import qualified Data.Text                as T
+import           Data.Time
+import           Lens.Micro.Platform
+
+import           Haboli.Euphoria
+import           Haboli.Euphoria.Botrulez
+
+data BotState = BotState
+  { _botStartTime :: UTCTime
+  , _botListing   :: Listing
+  } deriving (Show)
+
+makeLenses ''BotState
+
+-- | A small example bot. Takes a room password as its first argument. You can
+-- run this bot in [&test](https://euphoria.io/room/test) like this:
+--
+-- > runClient defaultConfig $ exampleBot Nothing
+infoBot :: Maybe T.Text -> Client T.Text ()
+infoBot mPasswd = do
+  startTime <- liftIO getCurrentTime
+  initialEvents <- untilConnected $
+    respondingToBounce mPasswd $
+    respondingToPing nextEvent
+  let initialState = BotState startTime $ newListing initialEvents
+  stateVar <- liftIO $ newMVar initialState
+  preferNickVia botListing stateVar "InfoBot"
+  botMain stateVar
+
+botMain :: MVar BotState -> Client T.Text ()
+botMain stateVar = forever $ do
+  event <- respondingToCommands (getCommands stateVar) $
+    respondingToPing nextEvent
+  updateFromEventVia botListing stateVar event
+
+getCommands :: MVar BotState -> Client e [Command T.Text]
+getCommands stateVar = do
+  state <- liftIO $ readMVar stateVar
+  let name = state ^. botListing . lsSelfL . svNickL
+  pure
+    [ botrulezPingGeneral
+    , botrulezPingSpecific name
+    , botrulezHelpSpecific name
+        "I am an example bot for https://github.com/Garmelon/haboli/."
+    , botrulezUptimeSpecific name $ state ^. botStartTime
+    , botrulezKillSpecific name
+    , cmdSpecific "hug" name $ \msg -> void $ reply msg "/me hugs back"
+    , cmdHello
+    , cmdNick stateVar name
+    , cmdWho stateVar
+    ]
+
+cmdHello :: Command e
+cmdHello = cmdGeneral "hello" $ \msg -> do
+  let mention = nickMention $ svNick $ msgSender msg
+  void $ reply msg $ "Hi there, @" <> mention <> "!"
+
+cmdNick :: MVar BotState -> T.Text -> Command e
+cmdNick stateVar name = cmdSpecificArgs "nick" name $ \msg args -> do
+  preferNickVia botListing stateVar args
+  void $ reply msg "Is this better?"
+
+cmdWho :: MVar BotState -> Command e
+cmdWho stateVar = cmdGeneral "who" $ \msg -> do
+  state <- liftIO $ readMVar stateVar
+  let people = state ^. botListing . lsOthersL
+      nicks = sort $ map svNick $ Map.elems people
+  void $ reply msg $ T.intercalate "\n" nicks