(ns guestbook.routes.home
  (:require [guestbook.layout :as layout]
            [ring.util.http-response :as response]
            [korma.db :as db]
            [korma.core :refer :all :rename {update sql-update}]
            [clojure.java.io :as io]
            [guestbook.db.core :as d]
            [ring.util.response :refer [redirect]]
            [compojure.core :refer [defroutes GET POST]]
            [struct.core :as st]))

(def debe
  (db/create-db
    (db/mysql {:db "ionut"
            :user "root"
            :password "whitecityromania"
            :host "172.17.0.2"
            :port "3306"})))

(db/default-connection debe)

(defentity BIGBOI)

(select BIGBOI)

(defn get-messages [] println "test")

(defn home-page [& [name message errors]]
  (layout/render
   "home.html"
   (merge {:name name
           :message message})))

(defn save-message [name message]
    (insert BIGBOI (values {:name name :message message}))
    (home-page))

(defn get-messages []
  (select BIGBOI
    (fields :name :message)))

(defn message-page []
   (selmer.parser/render-file "messages.html" {:messages (get-messages)})  )

(defroutes home-routes
   (GET "/" [] (home-page))
   (POST "/" [name message] (save-message name message))
   (GET "/messages" [] (message-page)))