Implement notify-due-items task

modules/joex/src/main/scala/docspell/joex/JoexAppImpl.scala

@@ -2,6 +2,7 @@ package docspell.joex
 
 import cats.implicits._
 import cats.effect._
+import emil.javamail._
 import docspell.common._
 import docspell.joex.hk._
 import docspell.joex.process.ItemHandler
@@ -12,7 +13,6 @@ import docspell.store.queue._
 import docspell.store.ops.ONode
 import docspell.store.records.RJobLog
 import fs2.concurrent.SignallingRef
-
 import scala.concurrent.ExecutionContext
 
 final class JoexAppImpl[F[_]: ConcurrentEffect: ContextShift: Timer](
@@ -78,7 +78,7 @@ object JoexAppImpl {
         .withTask(
           JobTask.json(
             NotifyDueItemsArgs.taskName,
-            NotifyDueItemsTask[F],
+            NotifyDueItemsTask[F](JavaMailEmil(blocker)),
             NotifyDueItemsTask.onCancel[F]
           )
         )

modules/joex/src/main/scala/docspell/joex/notify/MailContext.scala

@@ -0,0 +1,42 @@
+package docspell.joex.notify
+
+import yamusca.implicits._
+import yamusca.imports._
+
+import docspell.common._
+import docspell.store.queries.QItem
+import docspell.joex.notify.YamuscaConverter._
+
+case class MailContext(items: List[MailContext.ItemData], more: Boolean, account: AccountId)
+
+object MailContext {
+
+  def from(items: Vector[QItem.ListItem], max: Int, account: AccountId): MailContext =
+    MailContext(
+      items.take(max - 1).map(ItemData.apply).toList.sortBy(_.dueDate),
+      items.sizeCompare(max) >= 0,
+      account
+    )
+
+  case class ItemData(
+      id: Ident,
+      name: String,
+      date: Timestamp,
+      dueDate: Option[Timestamp],
+      source: String
+  )
+
+  object ItemData {
+
+    def apply(i: QItem.ListItem): ItemData =
+      ItemData(i.id, i.name, i.date, i.dueDate, i.source)
+
+    implicit def yamusca: ValueConverter[ItemData] =
+      ValueConverter.deriveConverter[ItemData]
+  }
+
+
+  implicit val yamusca: ValueConverter[MailContext] =
+    ValueConverter.deriveConverter[MailContext]
+
+}

modules/joex/src/main/scala/docspell/joex/notify/MailTemplate.scala

@@ -0,0 +1,27 @@
+package docspell.joex.notify
+
+import yamusca.implicits._
+
+object MailTemplate {
+
+  val text = mustache"""
+## Hello {{{ account.user }}},
+
+this is Docspell informing you about due items coming up.
+
+{{#items}}
+- *{{name}}*, due on *{{dueDate}}*
+  (received on {{date}} via {{source}})
+{{/items}}
+{{#more}}
+- ...
+{{/more}}
+
+
+Sincerly,
+Docspell
+"""
+
+  def render(mc: MailContext): String =
+    mc.render(text)
+}

modules/joex/src/main/scala/docspell/joex/notify/NotifyDueItemsTask.scala

@@ -2,22 +2,100 @@ package docspell.joex.hk
 
 import cats.implicits._
 import cats.effect._
+import emil._
+import emil.builder._
+import emil.markdown._
+import emil.javamail.syntax._
 
 import docspell.common._
-import docspell.joex.scheduler.Task
+import docspell.store.records._
+import docspell.store.queries.QItem
+import docspell.joex.scheduler.{Context, Task}
+import cats.data.OptionT
+import docspell.joex.notify.MailContext
+import docspell.joex.notify.MailTemplate
 
 object NotifyDueItemsTask {
+  val maxItems: Long = 5
+  type Args = NotifyDueItemsArgs
 
-  def apply[F[_]: Sync](): Task[F, NotifyDueItemsArgs, Unit] =
+  def apply[F[_]: Sync](emil: Emil[F]): Task[F, Args, Unit] =
     Task { ctx =>
-        for {
-          now <- Timestamp.current[F]
-          _ <- ctx.logger.info(s" $now")
-          _ <- ctx.logger.info(s"Removed $ctx")
-        } yield ()
+      for {
+        _       <- ctx.logger.info("Getting mail configuration")
+        mailCfg <- getMailSettings(ctx)
+        _ <- ctx.logger.info(
+          s"Searching for items due in ${ctx.args.remindDays} days…."
+        )
+        _ <- createMail(mailCfg, ctx)
+          .semiflatMap { mail =>
+            for {
+              _   <- ctx.logger.info(s"Sending notification mail to ${ctx.args.recipients}")
+              res <- emil(mailCfg.toMailConfig).send(mail).map(_.head)
+              _   <- ctx.logger.info(s"Sent mail with id: $res")
+            } yield ()
+          }
+          .getOrElseF(ctx.logger.info("No items found"))
+      } yield ()
     }
 
   def onCancel[F[_]: Sync]: Task[F, NotifyDueItemsArgs, Unit] =
     Task.log(_.warn("Cancelling notify-due-items task"))
 
+  def getMailSettings[F[_]: Sync](ctx: Context[F, Args]): F[RUserEmail] =
+    ctx.store
+      .transact(RUserEmail.getByName(ctx.args.account, ctx.args.smtpConnection))
+      .flatMap {
+        case Some(c) => c.pure[F]
+        case None =>
+          Sync[F].raiseError(
+            new Exception(
+              s"No smtp configuration found for: ${ctx.args.smtpConnection.id}"
+            )
+          )
+      }
+
+  def createMail[F[_]: Sync](
+      cfg: RUserEmail,
+      ctx: Context[F, Args]
+  ): OptionT[F, Mail[F]] =
+    for {
+      items <- OptionT.liftF(findItems(ctx)).filter(_.nonEmpty)
+      mail  <- OptionT.liftF(makeMail(cfg, ctx.args, items))
+    } yield mail
+
+  def findItems[F[_]: Sync](ctx: Context[F, Args]): F[Vector[QItem.ListItem]] =
+    for {
+      now <- Timestamp.current[F]
+      q = QItem.Query
+        .empty(ctx.args.account.collective)
+        .copy(
+          states = ItemState.validStates,
+          tagsInclude = ctx.args.tagsInclude,
+          tagsExclude = ctx.args.tagsExclude,
+          dueDateTo = Some(now + Duration.days(ctx.args.remindDays.toLong))
+        )
+      res <- ctx.store.transact(QItem.findItems(q).take(maxItems)).compile.toVector
+    } yield res
+
+  def makeMail[F[_]: Sync](
+      cfg: RUserEmail,
+      args: Args,
+      items: Vector[QItem.ListItem]
+  ): F[Mail[F]] = Sync[F].delay {
+    val templateCtx = MailContext.from(items, maxItems.toInt - 1, args.account)
+    val md          = MailTemplate.render(templateCtx)
+    val recp = args.recipients
+      .map(MailAddress.parse)
+      .map {
+        case Right(ma) => ma
+        case Left(err) => throw new Exception(s"Unable to parse recipient address: $err")
+      }
+    MailBuilder.build(
+      From(cfg.mailFrom),
+      Tos(recp),
+      Subject("Next due items"),
+      MarkdownBody[F](md)
+    )
+  }
 }

modules/joex/src/main/scala/docspell/joex/notify/YamuscaConverter.scala

@@ -0,0 +1,23 @@
+package docspell.joex.notify
+
+import yamusca.imports._
+import yamusca.implicits._
+import docspell.common._
+
+trait YamuscaConverter {
+
+  implicit val uriConverter: ValueConverter[LenientUri] =
+    ValueConverter.of(uri => Value.fromString(uri.asString))
+
+  implicit val timestamp: ValueConverter[Timestamp] =
+    ValueConverter.of(ts => Value.fromString(ts.toUtcDate.toString))
+
+  implicit val ident: ValueConverter[Ident] =
+    ValueConverter.of(id => Value.fromString(id.id))
+
+  implicit val account: ValueConverter[AccountId] =
+    ValueConverter.deriveConverter[AccountId]
+
+}
+
+object YamuscaConverter extends YamuscaConverter