scratch.clj

(defn is-file-line [line]
  (cond (>= (.indexOf line "Added:") 0) true
        (>= (.indexOf line "Modified:") 0) true
        :else false))
     
(defn is-jsfile-line [line]
  (and (is-file-line line) (.endsWith line ".js")))
     
(let [debugger-line #"(?<!//.{0,102400})debugger"
      alert-line #"(?<!//.{0,102400})alert\s*\("
      console-line #"(?<!//.{0,102400})console"]
  (defn process-js [line]
    (let [lower-line (.substring (.toLowerCase line) 1)]
      (cond (re-find debugger-line lower-line) true
            (re-find alert-line lower-line) true
            (re-find console-line lower-line) true
            :else false))))

(let [added-line #"^\+[^\+]"]
  (defn get-lines [lines state]
    (when-let [[line & reader] (seq lines)]
      (if (is-jsfile-line line)
        (lazy-seq (get-lines reader "js")))
      (if (and (= state "js")
               (not (is-file-line line)))
        (if (and (re-find added-line line) (process-js line))
          (cons line
                (lazy-seq (get-lines reader "js")))
          (lazy-seq (get-lines reader "js")))
        (lazy-seq (get-lines reader "not-js"))))))

(doseq [line (get-lines (line-seq (java.io.BufferedReader. *in*)) "not-js")]
  (println line))