 (defn define-attributes [c]
   (d/transact c
               [{:db/id (d/tempid :db.part/db)
+                :db/ident :project/name
+                :db/valueType :db.type/string
+                :db/cardinality :db.cardinality/one
+                :db/doc "Project name text line belongs to."
+                :db.install/_attribute :db.part/db}
+               {:db/id (d/tempid :db.part/db)
+                :db/ident :line/id
+                :db/valueType :db.type/bigint
+                :db/cardinality :db.cardinality/one
+                :db/doc "Text line number."
+                :db.install/_attribute :db.part/db}
+               {:db/id (d/tempid :db.part/db)
                 :db/ident :line/translator
                 :db/valueType :db.type/string
                 :db/cardinality :db.cardinality/one

      (println "Database" db-name "already exist, its fine."))
    (println "Connection established!")))

(defn get-dummy-info []
  (define-attributes conn)
  @(d/transact ; add entry
    conn
    [(create-line "wolololol" "" "" "noone")])
  (println ">")
  (println (str (d/q '[:find (wat.database/get-2000 ?e) . ;; find all untranslated entries and collect till have 2000 symbols or shit
                       :where [?e :line/translator "noone"]]
                     (d/db conn))))
  (println "<")
  (str "messing with datomic"))

(defn get-project-list []
  "Project list, duh.")

                :db/doc "Female translated text line."
                :db.install/_attribute :db.part/db}]))

(defonce connect-to-db-server
  (let [db-name "test-db"
        uri (str "datomic:free://localhost:3131/" db-name)
