 
 (go-loop []
   (let [data (<! clip-chan)
-        {fps :fps
+        {fps       :fps
          frame-dir :frame-dir
-         clip-dir :clip-dir
-         clipname :clipname} data]
+         clip-dir  :clip-dir
+         clipname  :clipname} data]
     (do-clip fps frame-dir clip-dir clipname))
   (recur))
 

(go-loop []
  (let [data (<! cap-chan)
        {time-secs :time-secs
         fps :fps
         frame-dir :frame-dir} data]
    (do-cap time-secs fps frame-dir))
  (recur))

(def s3-upload-chan (chan))

(defn s3-upload [filename] ""
  (println "INFO uploading to s3: " filename)
  ;TODO
  (swap! uploaded-clips conj filename))

(go-loop []
