       (println "Database" db-name "already exist, its fine."))
     (println "Connection established!")))
 
-(defn create-line [& {:keys [pname id text male-text female-text translator], :or {male-text "" female-text "" translator ""}
-                      }]
-  (println (str "wtf" pname id text male-text female-text translator))
+(defn create-line [& {:keys [pname id text male-text female-text translator],
+                      :or {male-text "" female-text "" translator ""}}]
   {:db/id (d/tempid :db.part/user)
    :line/pname pname
    :line/num (java.lang.Long. id)
    :line/original text
    :line/male male-text
    :line/female female-text
-   :line/translator translator
-   })
+   :line/translator translator})
 
 (defn get-n-words [n coll]
   (let [sum (atom 0)

  (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!"))

