Add more properties to upload meta data

This commit is contained in:
Eike Kettner
2020-11-11 01:08:07 +01:00
parent a21a97f7d5
commit 55a6f7aaf6
10 changed files with 70 additions and 21 deletions

View File

@ -91,7 +91,9 @@ object ReProcessItem {
"", //source-id
None, //folder
Seq.empty,
false
false,
None,
None
),
Nil
).pure[F]

View File

@ -47,7 +47,9 @@ object TextExtraction {
_ <- fts.indexData(ctx.logger, (idxItem +: txt.map(_.td)).toSeq: _*)
dur <- start
_ <- ctx.logger.info(s"Text extraction finished in ${dur.formatExact}")
} yield item.copy(metas = txt.map(_.am), tags = txt.flatMap(_.tags).distinct.toList)
} yield item
.copy(metas = txt.map(_.am))
.appendTags(txt.flatMap(_.tags).distinct.toList)
}
// -- helpers

View File

@ -255,7 +255,9 @@ object ScanMailboxTask {
s"mailbox-${ctx.args.account.user.id}",
args.itemFolder,
Seq.empty,
true
true,
args.fileFilter,
args.tags.getOrElse(Nil)
)
data = OUpload.UploadData(
multiple = false,