   (doseq [p (filter recording-with-obi? productions)]
     (-> p
         prod/create!
-        prod/set-state-structured!
-        (comment
-          (copy-obi-project!)
-          (create-obi-config-file!)))))
+        prod/set-state-structured!)
+    (spit move-script
+          (format "mv %s %s\n" (obi-project-path p) (path/recording-path p))
+          :append true)
+    (comment
+      (create-obi-config-file!))))
 
 (defn create-recording-productions-without-obi!
   "Create all productions with state \"recording\" with wav files that


(defn extract-id
  [line]
  (second (re-find #"^\./dam(\d+)" line)))

(defn files-by-id
  [f]

(defn struct-file? [f] (re-matches #".*/struct.html$" f))
(defn obi-project? [f] (re-matches #".*/project.obi$" f))

(def all-productions (-> abacus-csv io/file productions))
(def all-files-by-id (-> file-dump io/file files-by-id))

(defn to-millis
