payas/gleambox
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

add public function to generate Mail from String directly

Browse source
This commit is contained in:
Payas Relekar 2024-07-20 20:53:59 +05:30
parent 247591bfca
commit 343298144d
1 changed files with 11 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
src/gleambox.gleam
View file

@ -28,7 +28,7 @@ pub type Mail {
InvalidMail InvalidMail
} }
pub fn parse(mboxcontents: String) -> MBox { pub fn parse_mbox(mboxcontents: String) -> MBox {
let headers = parse_headers(mboxcontents) let headers = parse_headers(mboxcontents)
let body = parse_body(mboxcontents) let body = parse_body(mboxcontents)
@ -113,7 +113,9 @@ pub fn maildir_iterator(mbox_path: String) -> Iterator(String) {
// TODO: better error // TODO: better error
pub fn maildir_iterate(maildir_path: String) -> Iterator(#(String, String)) { pub fn maildir_iterate(maildir_path: String) -> Iterator(#(String, String)) {
case simplifile.get_files(maildir_path) { case simplifile.get_files(maildir_path) {
Ok(maillist) -> iterator.from_list(maillist) |> iterator.map(fn(path) { #(path, read_file(path)) }) Ok(maillist) ->
iterator.from_list(maillist)
|> iterator.map(fn(path) { #(path, read_file(path)) })
Error(_) -> #("", "") |> list.wrap |> iterator.from_list Error(_) -> #("", "") |> list.wrap |> iterator.from_list
} }
} }
@ -138,6 +140,13 @@ fn read_file(file_path: String) -> String {
|> result.unwrap(or: "") |> result.unwrap(or: "")
} }
pub fn parse_mail(mboxcontents: String) -> Mail {
case parse_mbox(mboxcontents) {
InvalidMBox -> InvalidMail
MBox(headers, body) -> mbox_to_mail(MBox(headers, body))
}
}
fn mbox_to_mail(mbox: MBox) -> Mail { fn mbox_to_mail(mbox: MBox) -> Mail {
case mbox { case mbox {
InvalidMBox -> InvalidMail InvalidMBox -> InvalidMail