Reorganized codebase

1 files changed, 23 insertions, 0 deletions

diff --git a/src/render.lisp b/src/render.lisp
new file mode 100644
index 0000000..140e1ec
--- /dev/null
+++ b/src/render.lisp
@@ -0,0 +1,23 @@
+;;;; render.lisp -- render protocol and tools
+
+(in-package :dnd)
+
+(defgeneric render (view object &key)
+  (:documentation "Render OBJECT as VIEW. VIEW could be anything, but it is intended to
+be a keyword for usin in EQL method specializers."))
+
+(defmacro defrender (view (spec &rest kwargs) &body body)
+  "A helper macro for defining specializations of render."
+  (let ((viewvar (gensym)))
+    `(defmethod render  ((,viewvar ,(if (eq t view) t `(eql ,view))) ,spec &key ,@kwargs)
+       ,@body)))
+
+(defmacro with-page ((&key title) &body body)
+  "A helper macro fordefining some standard page boilerplate."
+  `(with-html-string
+     (:doctype)
+     (:html
+      (:head
+       (:title ,title))
+      (:body
+       ,@body))))