urbit/gen/hood/ask.hoon
2015-11-25 14:42:47 -08:00

7 lines
207 B
Plaintext

:- %say
|= [^ [mel=cord ~] ~]
=+ adr=(star ;~(less (mask "\"\\()[],:;<>@") prn))
=+ dom=[;~(plug dlab dot (most dot dlab))]:urlp
=+ ~|(bad-email/mel (rash mel ;~((glue pat) adr dom)))
helm-send-ask/mel