gistfile1.clj

(defn insert
  "Insert user registration invitation."
  [to_email]
  (let [invite-id (make-random)]
  	(db/insert :invites
  	   {:id invite-id
       :to_email to_email
		   :created_at (to-sql-date (now))
		   :users_id (app.session/get :id)})
    (.toString invite-id)))

; db/insert call to the function below

(defn insert [table & [record]]
  "insert that assumes all tables have ids"
	(let [record (filter-existent-columns table record)
		  record (assoc record :id (or (:id record) (app.session/get :id)))]
		(korma.core/insert table
  			(values record))))