                        :in $ ?pname
                        :where [?line :line/pname ?pname]]
                      db project-name)]
+    (println (str "dumped " content))
     (with-open [out-file (io/writer (str "/tmp/" project-name ".csv"))]
       (csv/write-csv out-file
                      (sort #(compare (first %1) (first %2))

  (let [data (with-open [in-file (io/reader source)]
               (doall
                (csv/read-csv in-file)))]
    (doseq [[n o m f t] data]
        @(d/transact conn [(create-line :pname pname :id n :text o)]))))

(defn get-dummy-info []
  (println "====================")

  (println ">")
  ;(dump-project "default")
  ;(load-project "tududu" "/tmp/default")
  (future
    (cleanup-project "tududu")
    (Thread/sleep 3000)
    (dump-project "tududu"))
  (println "<")
  (str "Hello there, big brother greets you!"))

