(ns my-blog.db
  (:require [clojure.java.io :as io]
            [clojure.string :as string]
            [environ.core :as environ]
            [yesql.core :as yesql]))

(defn jdbc-conn
  ([s]
   (let [conn (->> (re-seq #"\/\/(.+):(.+)?@(.+):(.+)\/(.+)" s)
                   (first)
                   (drop 1))
         [user pw host port db] conn]
     (str "jdbc:postgresql://" host ":" port "/" db "?user=" user "&password=" pw)))
  ([]
   (let [conn (environ/env :database-url)]
     (jdbc-conn conn))))

(defn yesql-conn []
  {:connection (jdbc-conn)})