Implement command for configuring NoTrust messages

Author: rexim

src/Bot.hs

@@ -480,6 +480,11 @@ builtinCommands =
               [ ( "help"
                 , subcommand
                     [("setgist", setHelpGistId), ("refresh", refreshHelpGistId)])
+              , ( "reply"
+                , subcommand
+                    [ ("link", setNoTrustLinkReplyCommand)
+                    , ("command", setNoTrustCommandReplyCommand)
+                    ])
               ]))
     , ( "version"
       , mkBuiltinCommand

src/Bot/Replies.hs

@@ -18,6 +18,7 @@ import Entity
 import Data.Proxy
 import Property
 import Data.Maybe
+import Data.Functor
 
 sayMessage :: Reaction Message T.Text
 sayMessage =
@@ -96,6 +97,12 @@ data NoTrustReply = NoTrustReply
   , noTrustLinkReply :: T.Text
   } deriving (Eq)
 
+updateNoTrustCommandReply :: T.Text -> NoTrustReply -> NoTrustReply
+updateNoTrustCommandReply value reply = reply {noTrustCommandReply = value}
+
+updateNoTrustLinkReply :: T.Text -> NoTrustReply -> NoTrustReply
+updateNoTrustLinkReply value reply = reply {noTrustLinkReply = value}
+
 instance IsEntity NoTrustReply where
   nameOfEntity Proxy = "NoTrustReply"
   toProperties reply =
@@ -107,6 +114,23 @@ instance IsEntity NoTrustReply where
     NoTrustReply <$> extractProperty "command" properties <*>
     extractProperty "link" properties
 
+setNoTrustLinkReplyCommand :: Reaction Message T.Text
+setNoTrustLinkReplyCommand =
+  liftR
+    (\msg -> do
+       reply <- noTrustReply
+       void $ updateEntityById $ fmap (updateNoTrustLinkReply msg) reply) $
+  cmapR (const "Updated not trust link reply message") $ Reaction replyMessage
+
+setNoTrustCommandReplyCommand :: Reaction Message T.Text
+setNoTrustCommandReplyCommand =
+  liftR
+    (\msg -> do
+       reply <- noTrustReply
+       void $ updateEntityById $ fmap (updateNoTrustCommandReply msg) reply) $
+  cmapR (const "Updated not trust command reply message") $
+  Reaction replyMessage
+
 noTrustReply :: Effect (Entity NoTrustReply)
 noTrustReply = do
   reply <- listToMaybe <$> selectEntities Proxy (Take 1 $ All)
@@ -116,9 +140,11 @@ noTrustReply = do
       createEntity Proxy $
       NoTrustReply
         [qms|You have to be trusted to use this command.
-             Mods can change this message with !TODO|]
+             Mods can change this message with
+             !config reply command <message>|]
         [qms|You have to be trusted to send links.
-             Mods can change this message with !TODO|]
+             Mods can change this message with
+             !config reply link <message>|]
 
 noTrust :: Message a -> Effect ()
 noTrust Message {messageSender = sender} = do