• Example Search
• Project Search

• Java
• Python
• JavaScript
• TypeScript
• C++
• Scala
• Blog

• canoe-master
  • examples
    • src
      • main
        • scala
          • samples
            • Registration.scala
            • TimerAlarm.scala
            • Greetings.scala
            • DiceExample.scala
            • CustomExtractor.scala
            • SemanticBlocking.scala
            • Recursive.scala
            • ConcurrentScenarios.scala
            • Webhook.scala
            • ErrorHandling.scala
            • NoScenario.scala
            • Echo.scala
  • LICENSE
  • project
    • build.properties
    • plugins.sbt
  • .travis.yml
  • README.md
  • .scalafmt.conf
  • core
    • jvm
      • src
        • main
          • scala
            • canoe
              • api
                • sources
                  • Hook.scala
                • TelegramClient.scala
                • clients
                  • Http4sTelegramClient.scala
        • test
          • scala
            • canoe
              • api
                • clients
                  • Http4sClientSpec.scala
    • js
      • src
        • main
          • scala
            • canoe
              • api
                • sources
                  • Hook.scala
                • TelegramClient.scala
                • clients
                  • AjaxClient.scala
    • shared
      • src
        • main
          • scala
            • canoe
              • api
                • Broadcast.scala
                • pipes.scala
                • package.scala
                • sources
                  • Polling.scala
                • models
                  • PollMessageApi.scala
                  • PreCheckoutQueryAPI.scala
                  • InlineQueryApi.scala
                  • Keyboard.scala
                  • CallbackQueryAPI.scala
                  • MessageApi.scala
                  • ChatApi.scala
                  • ShippingQueryAPI.scala
                  • LiveLocationAPI.scala
                • Scenario.scala
                • TelegramError.scala
                • Bot.scala
                • matching
                  • Episode.scala
              • models
                • MemberStatus.scala
                • Update.scala
                • Venue.scala
                • ResponseParameters.scala
                • DetailedChat.scala
                • Sticker.scala
                • ShippingAddress.scala
                • InlineQueryResult.scala
                • PhotoSize.scala
                • ParseMode.scala
                • ChatType.scala
                • LabeledPrice.scala
                • Voice.scala
                • Location.scala
                • Chat.scala
                • StickerSet.scala
                • Invoice.scala
                • Currency.scala
                • PollAnswer.scala
                • Document.scala
                • Response.scala
                • PollOption.scala
                • Audio.scala
                • ChatMember.scala
                • DiceResult.scala
                • ChatAction.scala
                • InputMedia.scala
                • passport
                  • EncryptedPassportElement.scala
                  • PassportFile.scala
                  • PassportData.scala
                  • PassportElementError.scala
                  • EncryptedCredentials.scala
                • BotCommand.scala
                • InlineQuery.scala
                • ChatPermissions.scala
                • MessageEntity.scala
                • WebhookInfo.scala
                • messages
                  • AudioMessage.scala
                  • StickerMessage.scala
                  • VideoNoteMessage.scala
                  • TelegramMessage.scala
                  • ContactMessage.scala
                  • PhotoMessage.scala
                  • TextMessage.scala
                  • VenueMessage.scala
                  • VoiceMessage.scala
                  • LocationMessage.scala
                  • DocumentMessage.scala
                  • UserMessage.scala
                  • AnimationMessage.scala
                  • VideoMessage.scala
                  • GameMessage.scala
                  • SystemMessage.scala
                  • PollMessage.scala
                  • InvoiceMessage.scala
                • outgoing
                  • MessageContent.scala
                • Poll.scala
                • User.scala
                • ShippingQuery.scala
                • ChatPhoto.scala
                • VideoNote.scala
                • File.scala
                • ChatId.scala
                • PreCheckoutQuery.scala
                • UpdateType.scala
                • ShippingOption.scala
                • LoginUrl.scala
                • Video.scala
                • CallbackQuery.scala
                • KeyboardButton.scala
                • ChosenInlineResult.scala
                • CallbackGame.scala
                • Game.scala
                • GameHighScore.scala
                • InlineQueryResultContent.scala
                • Contact.scala
                • CountryCode.scala
                • UserProfilePhotos.scala
                • DiceEmoji.scala
                • SuccessfulPayment.scala
                • Animation.scala
                • MaskPosition.scala
                • InlineKeyboardButton.scala
                • InputFile.scala
                • OrderInfo.scala
                • MaskPositionType.scala
                • ReplyMarkup.scala
              • syntax
                • ExpectTextMessageOps.scala
                • Contents.scala
                • Expects.scala
                • MethodSyntax.scala
                • package.scala
                • ExpectTelegramMessageOps.scala
                • PartialFunctionOps.scala
              • methods
                • Method.scala
                • files
                  • GetFile.scala
                • commands
                  • GetMyCommands.scala
                  • SetMyCommands.scala
                • passport
                  • SetPassportDataErrors.scala
                • messages
                  • SendLocation.scala
                  • SendSticker.scala
                  • SendVoice.scala
                  • SendMessage.scala
                  • SendContact.scala
                  • SendMediaGroup.scala
                  • SendAudio.scala
                  • EditMessageText.scala
                  • StopPoll.scala
                  • SendDice.scala
                  • StopMessageLiveLocation.scala
                  • EditMessageCaption.scala
                  • EditMessageMedia.scala
                  • DeleteMessage.scala
                  • SendVideoNote.scala
                  • SendDocument.scala
                  • ForwardMessage.scala
                  • SendPhoto.scala
                  • SendPoll.scala
                  • SendVenue.scala
                  • SendInvoice.scala
                  • SendVideo.scala
                  • EditMessageReplyMarkup.scala
                  • EditMessageLiveLocation.scala
                  • SendAnimation.scala
                  • SendGame.scala
                • webhooks
                  • DeleteWebhook.scala
                  • GetWebhookInfo.scala
                  • SetWebhook.scala
                • users
                  • GetUserProfilePhotos.scala
                  • GetMe.scala
                • chats
                  • GetChatAdministrators.scala
                  • DeleteChatStickerSet.scala
                  • SetChatPhoto.scala
                  • SetChatStickerSet.scala
                  • DeleteChatPhoto.scala
                  • SetChatPermissions.scala
                  • UnbanChatMember.scala
                  • SendChatAction.scala
                  • ExportChatInviteLink.scala
                  • SetChatTitle.scala
                  • RestrictChatMember.scala
                  • GetChatMembersCount.scala
                  • GetChatMember.scala
                  • GetChat.scala
                  • LeaveChat.scala
                  • SetChatDescription.scala
                  • SetChatAdministratorCustomTitle.scala
                  • PromoteChatMember.scala
                  • KickChatMember.scala
                  • UnpinChatMessage.scala
                  • PinChatMessage.scala
                • stickers
                  • SetStickerSetThumb.scala
                  • AddStickerToSet.scala
                  • GetStickerSet.scala
                  • SetStickerPositionInSet.scala
                  • CreateNewStickerSet.scala
                  • UploadStickerFile.scala
                  • DeleteStickerFromSet.scala
                • games
                  • GetGameHighScores.scala
                  • SetGameScore.scala
                • queries
                  • AnswerCallbackQuery.scala
                  • AnswerShippingQuery.scala
                  • AnswerInlineQuery.scala
                  • AnswerPreCheckoutQuery.scala
                • updates
                  • GetUpdates.scala
              • marshalling
                • package.scala
                • codecs.scala
        • test
          • scala
            • canoe
              • api
                • sources
                  • PollingSpec.scala
                • ScenarioSpec.scala
                • ScenarioCheckInstances.scala
                • BroadcastSpec.scala
                • BotSpec.scala
                • ScenarioLawsCheck.scala
                • matching
                  • EpisodeCheckInstances.scala
                  • EpisodeLawsCheck.scala
              • syntax
                • PartialFunctionOpsSpec.scala
                • ExpectTextMessageOpsSpec.scala
              • TestIO.scala
              • marshalling
                • CodecsSpec.scala
                • CaseStringSpec.scala
  • build.sbt
  • .gitignore

package samples

import canoe.api._
import canoe.syntax._
import canoe.models.messages.TextMessage
import cats.effect.{ExitCode, IO, IOApp, Timer}
import cats.syntax.functor._
import fs2.Stream

import scala.util.Try
import scala.concurrent.duration._

/**
  * Example of scheduling a job after user-defined delay.
  * Each user can schedule any number of jobs and all of them 
  * will be executed concurrently without blocking each other.
  */
object TimerAlarm extends IOApp {
  val token: String = "<your telegram token>"

  def run(args: List[String]): IO[ExitCode] =
    Stream
      .resource(TelegramClient.global[IO](token))
      .flatMap { implicit client => Bot.polling[IO].follow(alarm) }
      .compile.drain.as(ExitCode.Success)

  def alarm[F[_]: TelegramClient: Timer]: Scenario[F, Unit] =
    for {
      chat <- Scenario.expect(command("alarm").chat)
      _    <- Scenario.eval(chat.send("Tell me in how many seconds you want to be notified?"))
      in   <- Scenario.expect(textMessage)
      sec = Try(in.text.toInt).toOption.filter(_ > 0)
      _ <- sec match {
        case Some(i) => setTimer(in, i)
        case None    => Scenario.eval(in.reply("I'm sorry, but I couldn't get that (expecting positive number)"))
      }
    } yield ()

  def setTimer[F[_]: TelegramClient: Timer](m: TextMessage, i: Int): Scenario[F, Unit] =
    for {
      _ <- Scenario.eval(m.chat.send(s"Timer is set. You will receive a reply after $i seconds"))
      _ <- Scenario.eval(Timer[F].sleep(i.seconds))
      _ <- Scenario.eval(m.reply("Time's up."))
    } yield ()
}