   (j/with-db-transaction [tx (-> system :db :db)]
     (j/execute! tx
                 (-> (insert-into :users)
-                    (values [{:username "TEST_USER"
+                    (values [{:username "test"
                               :email    "tictag-test@agh.io"
-                              :pass     (db/hashp "foobar")
+                              :pass     (db/hashp "test")
                               :tz       "America/Los_Angeles"}])
                     (upsert (-> (on-conflict :username)
                                 (do-nothing)))


(reloaded.repl/set-init! #(tictag.system/system config))

(defn dev-user [] (db/get-user (:db system) "TEST_USER"))

(def my-user-id (-> (select :id)
                    (from :users)
                    (where [:= :username "TEST_USER"])
                    (limit 1)))

(def my-beeminder-id (-> (select :beeminder.id)

                    (upsert (-> (on-conflict :beeminder_id :goal)
                                (do-nothing)))
                    sql/format))))

(def p (insta/parser (clojure.java.io/resource "parser.bnf")))
(defn e [v] (evaluate {:db (:db system) :user (dev-user)} v))

