gistfile1.clj

(defn run-process
  "Runs the process"
  [args]
    (->>
      (new ProcessBuilder args)
      (.start)
    ))

(defn exec
  "Returns the ouput of the command, which is assumed to smallish and non-binary."
  [command & args]
  (let [process       (run-process (into [command] args))
        stdout-stream (.. process getInputStream) ]
    (apply str
      (map char
        (take-while
          (fn [_]
            ; this is expected to have no side-effects. Oops?
            (> (.available stdout-stream) 0))
          (repeatedly #(.read stdout-stream)))))))

(exec "ls" "-halps")