sh-seq

(import '(java.io File BufferedReader ByteArrayOutputStream InputStreamReader))                                                                                                                        
                                                                                                                                                                                                       
(def println-repl (bound-fn* println))                                                                                                                                                                 
                                                                                                                                                                                                       
                                                                                                                                                                                                       
(defn sh-seq                                                                                                                                                                                           
  "same as sh but returns a lazy seq of the programs stdout, and prints all errors to the repl"                                                                                                        
  [& command+args]                                                                                                                                                                                     
  (let [process (.exec (Runtime/getRuntime) (apply str (interpose " " command+args)))]                                                                                                                 
    (let [reader (clojure.java.io/reader (.getInputStream process) :encoding "UTF-8")]                                                                                                                 
      (line-seq reader))))                                                                                                                                                                             
                                                                                                                                                                                                       
                                                                                                                                                                                                       
(defn sh-seq-debug                                                                                                                                                                                     
  "same as sh-seq but prints all errors to the repl"                                                                                                                                                   
  [& command+args]                                                                                                                                                                                     
                                                                                                                                                                                                       
  (let [process (.exec (Runtime/getRuntime) (apply str (interpose " " command+args)))]                                                                                                                 
                                                                                                                                                                                                       
    (let [reader (clojure.java.io/reader (.getInputStream process) :encoding "UTF-8")                                                                                                                  
          error-reader (clojure.java.io/reader (.getErrorStream process) :encoding "UTF-8")]                                                                                                           
      (.start (Thread. #(dorun (map println-repl (line-seq error-reader)))))                                                                                                                           
      (line-seq reader))))