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

format

Browse source
This commit is contained in:
Payas Relekar 2024-03-24 01:04:42 +05:30
parent b1b5a1bbb8
commit 0890726ab9
1 changed files with 9 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
src/gleambox.gleam
View file

@ -14,7 +14,7 @@ pub fn parse(mboxcontents: String) -> Mail {
}
pub fn get_headers(mbox: Mail) -> Dict(String, String) {
mbox.headers
mbox.headers
}
pub fn get_header(mbox: Mail, key: String) -> Result(String, Nil) {
@ -27,29 +27,29 @@ pub fn get_body(mbox: Mail) -> String {
}
pub fn get_from(mbox: Mail) -> Result(String, Nil) {
get_header(mbox, "From")
get_header(mbox, "From")
}
pub fn get_to(mbox: Mail) -> Result(String, Nil) {
get_header(mbox, "To")
get_header(mbox, "To")
}
pub fn get_date(mbox: Mail) -> Result(String, Nil) {
get_header(mbox, "Date")
get_header(mbox, "Date")
}
pub fn get_subject(mbox: Mail) -> Result(String, Nil) {
get_header(mbox, "Subject")
get_header(mbox, "Subject")
}
pub fn get_message_id(mbox: Mail) -> Result(String, Nil) {
get_header(mbox, "Message-ID")
get_header(mbox, "Message-ID")
}
pub fn get_references(mbox: Mail) -> List(String) {
get_header(mbox, "References")
|> result.unwrap(or: "Error")
|> string.split(" ")
get_header(mbox, "References")
|> result.unwrap(or: "Error")
|> string.split(" ")
}
fn parse_body(mboxcontents: String) -> String {