 (ns defragment.core
   (:gen-class)
   (:import java.io.SequenceInputStream)
-  (:require [me.raynes.conch :refer [programs with-programs let-programs] :as sh]
+  (:require [me.raynes.conch :refer [programs with-programs let-programs] :as csh]
+            [me.raynes.conch.low-level :as sh]
             [utilza.repl :as urepl]
             [clojure.tools.trace :as trace]
             [useful.map :as um]

  (format "%s/%s-%s.ogg"  path date name))



(defn gen-filenames
  [cmd-path path files]
  (umisc/inter-str "\n"
                   (for [{:keys [name date filenames]}  files]
                     (let [cmd (format "cat %s | %s > %s"
                                       (umisc/inter-str " " filenames)
                                       cmd-path
                                       (format-show-save path name date))]
                       (format "echo \"%s\"\n%s\n" cmd cmd)))))
      




       get-oggs
       (map parse)
       prepare-all
       (execute-all! cmd-path out-oggs-path out-commands-file)))




