MatchEmail.elm

Module MatchEmail exposing (..)
import Regex exposing (..)

bodyHasEmail : String -> Maybe String
bodyHasEmail bodyText =
    let           -- "\b[A-Z0-9._%+-]+@[A-Z0-9.-]+\.[A-Z]{2,}\b"
        re = regex "\b[A-Z0-9._%+-]+@[A-Z0-9.-]+\.[A-Z]{2,}\b"
           |> caseInsensitive
        limit =(AtMost 1)
        match = find limit re bodyText
    in
        case head match of
            Nothing -> Nothing
            Just email -> Just email.match