Introduce builtin urlencode function

Author: rexim

src/Bot/CustomCommand.hs

@@ -28,6 +28,7 @@ import Property
 import Reaction
 import Text.InterpolatedString.QM
 import Transport
+import qualified Network.URI.Encode as URI
 
 data CustomCommand = CustomCommand
   { customCommandName :: T.Text
@@ -174,6 +175,8 @@ evalExpr :: M.Map T.Text T.Text -> Expr -> T.Text
 evalExpr _ (TextExpr t) = t
 evalExpr vars (FunCallExpr "or" args) =
   fromMaybe "" $ listToMaybe $ dropWhile T.null $ map (evalExpr vars) args
+evalExpr vars (FunCallExpr "urlencode" args) =
+  T.concat $ map (T.pack . URI.encode . T.unpack . evalExpr vars) args
 evalExpr vars (FunCallExpr funame _) = fromMaybe "" $ M.lookup funame vars
 
 expandVars :: M.Map T.Text T.Text -> [Expr] -> T.Text