irc-parser.clj

(ns irc-parser.core
(:use clojure.contrib.duck-streams
        clojure.contrib.str-utils
        clojure.contrib.seq-utils))

(def dates (file-seq (java.io.File. "./clojure")))

(defn parse-irc-log
  [logfile]
  (line-seq (reader logfile)))

(def parsed (map parse-irc-log  (rest dates)))

(defn find-lines
  [#^String text logs]
  (flatten (map
    (fn [log] (filter (fn [#^String line] (< 0 (.indexOf line text))) log))
     logs)))