This is a thin wrapper over post-office library (which is a fork of Franz's cl-imap). Trivial-imap tries to make easy some common cases of working with IMAP servers, like reading emails from the server.
Libraries like post-office or mel-base are not easy to
use. Especially this is sad when you only need to do such simple task as
read emails with their content.
Here is how such code will look like with trivial-imap:
CL-USER> (trivial-imap:fetch-messages "imap.gmail.com"
"svetlyak.40wt"
*password*
:folder "Autoprocessing/OrgModeInbox"
:limit 3)
(#<TRIVIAL-IMAP/CORE:EMAIL uid=22 subject="Tweet from The Little Lisper (@thelittlelisper)">
#<TRIVIAL-IMAP/CORE:EMAIL uid=25 subject="The Animated Guide to Paredit">
#<TRIVIAL-IMAP/CORE:EMAIL uid=26 subject="Tweet from benoît chesneau (@benoitc)">)
1500 (11 bits, #x5DC)
CL-USER> (trivial-imap:get-subject (second #v11))
"The Animated Guide to Paredit"
CL-USER> (trivial-imap:get-text (second #v11))
"danmidwood.com/content/2014/11/21/animated-paredit.html
Download the official Twitter app here
Sent from my iPad
"
CL-USER> (trivial-imap:get-html (second #v11))
"<html><head><meta http-equiv=\"content-type\" content=\"text/html; charset=utf-8\"></head><body dir=\"auto\"><div><a href=\"http://danmidwood.com/content/2014/11/21/animated-paredit.html\">danmidwood.com/content/2014/11/21/animated-paredit.html</a>
<br><br>Download the official Twitter app <a href=\"https://twitter.com/download?ref_src=MailTweet-iOS\">here</a>
</div><div><br><br>Sent from my iPad</div></body></html>
"
Also, you can use :since-uid argument, to iterate through all
messages in the Inbox.
CL-USER> (trivial-imap:fetch-messages "imap.gmail.com"
"svetlyak.40wt"
*password*
:folder "Autoprocessing/OrgModeInbox"
:limit 3
:since-uid (trivial-imap:get-uid (second #v11)))
(#<TRIVIAL-IMAP/CORE:EMAIL uid=26 subject="Tweet from benoît chesneau (@benoitc)">
#<TRIVIAL-IMAP/CORE:EMAIL uid=27 subject="Заметка про Lisp">
#<TRIVIAL-IMAP/CORE:EMAIL uid=28 subject="Другие идеи">)
1498 (11 bits, #x5DA)
There is a query language accepted by post-office library. It is
documented in the original Franz's documentation.
Here are few examples, how to use it with trivial-imap.
This is how to search by some header's content. In the example, it is a "Message-Id":
CL-USER> (trivial-imap:fetch-messages
"imap.gmail.com"
"svetlyak.40wt"
*password*
:folder "Autoprocessing/OrgModeInbox"
:query `(:header "message-id" "<5b580c2d3d0c1_64682d32c895c9@ip-172-31-1-54.ec2.internal.mail>"))
(#<EMAIL uid=1448 subject="Favorite tweet by @stylewarning">)
Here is how you can combine search rules:
CL-USER> (trivial-imap:fetch-messages
"imap.gmail.com"
"svetlyak.40wt"
*password*
:folder "Autoprocessing/OrgModeInbox"
:query `(and (:from "svetlyak.40wt@gmail.com")
(:sentsince "1-Oct-2018")))
(#<EMAIL uid=1520 subject="Найти книгу first break all the rules">
#<EMAIL uid=1528 subject="Lisp - oh what it could have been. It had
such potential, but then it got broken... | Hacker N ews">)
Here we used a date, but in a strange format, required by
IMAP. Original post-office library also accepts a Lisp's universal timestamps,
returned by get-universal-time, but in my modified version, you can
use more natural "2018-10-01" or local-time:timestamp and manipulate with
dates more naturally:
CL-USER> (trivial-imap:fetch-messages
"imap.gmail.com"
"svetlyak.40wt"
*password*
:folder "Autoprocessing/OrgModeInbox"
:query `(and (:from "svetlyak.40wt@gmail.com")
(:sentsince "2018-10-01")))
(#<EMAIL uid=1520 subject="Найти книгу first break all the rules">
#<EMAIL uid=1528 subject="Lisp - oh what it could have been. It had
such potential, but then it got broken... | Hacker N ews">)
- Return a closure allowing to fetch next page as a third value from fetch-messages.
- Support operation on emails, such as deletion or marking them as read.
- ...
Provide instruction how to build or use your library.
To build documentation, you need a Sphinx. It is documentaion building tool written in Python.
To install it, you need a virtualenv. Read this instructions how to install it.
Also, you'll need a cl-launch. It is used by documentation tool to run a script which extracts documentation strings from lisp systems.
Run these commands to build documentation:
virtualenv --python python2.7 env source env/bin/activate pip install -r docs/requirements.txt invoke build_docs
These commands will create a virtual environment and
install some python libraries there. Command invoke build_docs
will build documentation and upload it to the GitHub, by replacing
the content of the gh-pages branch.
- Alexander Artemenko (svetlyak.40wt@gmail.com)
Copyright (c) 2018 Alexander Artemenko (svetlyak.40wt@gmail.com)
Licensed under the BSD License.