;;;; conway-ff-api.asd
(asdf:defsystem "conway-ff-api"
	:description "Simple app for conway's class"
	:version "0.0.1"
	:depends-on ("hunchentoot" "easy-routes" "jonathan" "mito" "cl-pass")
	:components ((:file "packages")
							 (:file "db" :depends-on ("packages"))
							 (:file "server" :depends-on ("packages"))
							 (:file "main" :depends-on ("server"))))
---------------------------------------------
;;;; packages.lisp
(defpackage :server
	(:use :cl)
	(:export
   :start-server
   :stop-server))

(defpackage :db
	(:use :cl)
	(:export
	 :connect-db
	 :disconnect-db
	 :add-user
     :modify-user))
------------------------------------------------
;;;; server.lisp
(in-package :server)

;; create variable to store acceptor
(defvar *acceptor* nil)

;; start server
(defun start-server ()
  (stop-server)
  (hunchentoot:start (setf *acceptor*
               (make-instance 'easy-routes:easy-routes-acceptor
                              :port 5000))))

;; function to stop server
(defun stop-server ()
  (when *acceptor*
    (when (hunchentoot:started-p *acceptor*)
      (hunchentoot:stop *acceptor*))))

;; then some routes defined using hunchentoot with easy-routes

--------------- PROBLEMS BEGIN HERE --------------------
;;;; db.lisp
(in-package :db)

(defun connect-db ()
  "Connect to the database"
  (mito:connect-toplevel :mysql
                         :database-name "something"
                         :host "blah"
                         :port 3306
                         :username "yup"
                         :password "nope"))

(defun disconnect-db ()
  (mito:disconnect-toplevel))

;; Database setup
(mito:deftable users ()
  ((name :col-type (:varchar 128))
   (password :col-type (:varchar 255))
   (team-name :col-type (:varchar 255)))
  (:conc-name my-))

;; migration functions

(defun create-users-table ()
  (mapc #'mito:execute-sql (mito:table-definition 'users)))