#!/usr/bin/env amm
import $ivy.`com.sun.mail:javax.mail:1.6.2`
import $ivy.`com.lihaoyi::os-lib:0.7.1`
import javax.mail.internet._
import os.up
// paths
val icon = "/usr/share/icons/Adwaita/48x48/actions/mail-message-new.png"
val cacheFile = envPath("XDG_CACHE_HOME", os.home/".cache") / "seen-mails"
val maildir = envPath("MAILDIR", os.home/"Mail")
case class MailInfo(from: String, subject: String, mailbox: String)
object MailInfo {
def fromPath(p: os.Path, maildir: os.Path) = {
val msg = readMessage(p)
MailInfo(
msg.getFrom.head.asInstanceOf[InternetAddress].getPersonal.replace("&", "&"),
msg.getSubject.replace("&", "&"),
(p/up/up relativeTo maildir).toString
)
}
}
val session = javax.mail.Session.getDefaultInstance(new java.util.Properties)
def readMessage(path: os.Path) = {
val in = os.read.inputStream(path)
new MimeMessage(session, in)
}
def envPath(envVar: String, default: os.Path): os.Path =
sys.env.get(envVar).map(s => os.Path(s)).getOrElse(default)
val cache = if (os.exists(cacheFile)) os.read.lines(cacheFile).toSet else Set.empty[String]
val newMailPaths = os.proc("fd", "-t", "f" ,".*:2,[PRTDF]*$", "-a", maildir)
.call().out.lines.toSet
val unseenMailPaths = newMailPaths &~ cache
val unseenMails = unseenMailPaths.map(p => MailInfo.fromPath(os.Path(p), maildir))
if (!unseenMails.isEmpty) {
val markup = unseenMails.map(msg => s"${msg.from}: ${msg.subject}
").mkString
os.proc("notify-send", s"--icon=$icon", "Mails", markup).call()
}
os.write.over(cacheFile, newMailPaths.mkString("", "\n", "\n"))