Wispy Lisp

View 

Define View 

Rendering 

Template 

(deftag :template (template-name &other-keys others &body body) 
  ;; the choice of which template to use is static.
  ;; I can't think of a good way to make this dynamic.
  (if (keywordp template-name)
      (apply (get-template-fn template-name) (append others body))
      (error "No dynamic templating... sorry.")))
(def/rkr/macro deftemplate (template-name fnlist &rest body) 
  `(save-template-fn ',template-name
		     (rkr/fn ,fnlist ,@body)))