;;; -*- mode: Lisp; Syntax: Common-Lisp; -*-
;;;
;;; Copyright (c) 2012 by the authors.
;;;
;;; See LICENCE for details.

(in-package :hu.dwim.blog)

;;;;;;
;;; Constants

(def (constant e) +default-database-name+ "hu.dwim.blog")
(def (constant e) +default-database-user-name+ "hu.dwim.blog")
(def (constant e) +default-database-password+ "engedjbe")

;;;;;;
;;; Database

(def global-variable *blog-database* (make-instance 'hu.dwim.meta-model::postgresql/dwim
                                                    :generated-transaction-class-name 'transaction
                                                    :connection-specification '()))

(def with-macro with-transaction/blog ()
  (with-database *blog-database*
    (with-new-compiled-query-cache
      (with-transaction
        (-body-)))))