urbit/gen/hood/ask.hoon

:-  %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
added :ask ship request collator, \|ask easter egg 2015-11-26 01:39:24 +03:00			`:- %say`
A bunch of untested cleanups. 2015-12-15 03:45:52 +03:00			`\|= {^ {mel+cord $~} $~}`
added :ask ship request collator, \|ask easter egg 2015-11-26 01:39:24 +03:00			`=+ 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`