diff options
| author | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2009-02-19 12:17:10 +0100 |
|---|---|---|
| committer | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2009-02-19 12:17:10 +0100 |
| commit | a35b9044a5bf26152f30bc4abe981bb7dd985e7b (patch) | |
| tree | d828e24aeaafee9e1e64c833a175eafe3a39d1f1 /cljssss-g.clj | |
| parent | 2380054696fb2fd01c7b296042a2188cb73cc077 (diff) | |
Depend on SQLiteJDBC.
Diffstat (limited to 'cljssss-g.clj')
| -rw-r--r-- | cljssss-g.clj | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/cljssss-g.clj b/cljssss-g.clj index 435c6c5..c99a0df 100644 --- a/cljssss-g.clj +++ b/cljssss-g.clj @@ -1,9 +1,12 @@ (ns cljssss-g (require [clojure.xml :as xml] + [clojure.contrib.sql :as sql] compojure) (import (org.antlr.stringtemplate StringTemplateGroup)) (use compojure)) +(Class/forName "org.sqlite.JDBC") + (def templates (new StringTemplateGroup "")) (defservlet cljssss-g @@ -15,5 +18,12 @@ (ANY "*" (page-not-found))) +(defmacro with-db [& body] + `(sql/with-connection {:classname "org.sqlite.JDBC" + :subprotocol "sqlite" + :subname "cljssss-g.sqlite3"} + (sql/transaction + ~@body))) + (run-server {:port 8080} "/*" cljssss-g) |