 
 
 (defn process-file
-  [link dirpath python-path duration-path f]
+  [rss-base-url dirpath python-path duration-path f]
   (let [[y m d show & _ ] (st/split f #"-")
         full-file (str dirpath "/" f)]
     (log/trace "processing" full-file "->" show)

            :basename f
            :length (-> full-file jio/file .length)
            :duration (get-duration python-path duration-path full-file)
            :link (str link f)
            :full-file full-file}
           (read-header full-file))))



(defn process-dir!
  [link  db-path python-path duration-path hubzilla dirpath]
  (log/debug "processing dir" link db-path dirpath)
  (let [db (try (-> db-path slurp edn/read-string)
                (catch Exception e
                  (log/error e)



(defn get-files
  [{:keys [rss-base-url db-path python-path duration-path hubzilla out-oggs-path]}]
  (log/info "getting files" rss-base-url out-oggs-path db-path)
  (->>   (process-dir! rss-base-url db-path python-path duration-path  hubzilla out-oggs-path)
         (sort-by :title)
         reverse))

