run-sql.lisp

(defun connection-settings (&optional (db :maindb))
  (cdr (assoc db (config :databases))))

(defun db (&optional (db :maindb))
  (apply #'cl-dbi:connect-cached (connection-settings db)))

(defmacro with-connection (conn &body body)
  `(let ((*connection* ,conn))
     ,@body))

(defun run-sql-script (script-name)
  "Run a script located within the sql directory."
  (format t "Running script ~a" script-name)
  (let* ((path (merge-pathnames socialflight.config:*sql-directory* script-name))
         (sql-string (uiop:read-file-string path)))
    (with-connection (db)
      (cl-dbi:do-sql *connection* sql-string))))