record.clj

(defn- match-record-type2
  "Match the given record to one of defined types and return its extra metadata."
  [record]
  (first
   (filter
    (fn [[key [pattern meta]]]
      (if-let [groups (next (re-find pattern (:message record)))]
        (merge {:event_source :dea
                :event_type key}
               (if (coll? meta)
                 (zipmap meta groups)
                 (meta groups)))))
    (seq log-record-types))))