2016-02-05 05:57:44 +03:00
|
|
|
::
|
|
|
|
|
:::: /hoon
|
|
|
|
|
::
|
2015-11-26 01:39:24 +03:00
|
|
|
:- %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
|
