urbit/sur/rfc.hoon
2016-02-23 20:54:14 -08:00

22 lines
506 B
Plaintext

:: This structure is the hoon equivalent of the RFC 822 E-mail message format
|%
++ message {from/email-address to/email-address subject/@t body/@t}
++ email-address {name/@t domain/@t}
--
!:
|%
++ email-adr-to-text |=({name/@t domain/@t} (trip (rap 3 name '@' domain ~)))
++ message-to-rfc822
|= a/message ^- cord
%- crip ^- tape %- sifo
%- crip
"""
From: {(email-adr-to-text from.a)}
To: {(email-adr-to-text to.a)}
Subject: {(trip subject.a)}
{(trip body.a)}
"""
--