predicates.clj

(ns com.jstaten.predicates)
(defn non-blank? [line]
  (re-find #"\S" line))
(defn non-svn? [file]
  (not (.contains (.toString file) ".svn")))
(defn clojure-source? [file]
  (.endsWith (.toString file) ".clj"))

(use '[clojure.contrib.io :only (reader)])
(defn clojure-loc [dir]
  (reduce +
    (for [file (file-seq dir) :when (and (non-svn? file) (clojure-source? file))]
      (with-open [reader (reader file)]
        (count (filter non-blank? (line-seq reader)))))))