Skip to content
Browse files

Bound *header* for every page render

  • Loading branch information...
1 parent 71f3f21 commit b37fa93215a08e5333d342bb8d798283d1da21bb @vsedach committed Sep 9, 2012
Showing with 5 additions and 3 deletions.
  1. +5 −3 src/html-rendering.lisp
View
8 src/html-rendering.lisp
@@ -1,7 +1,7 @@
(in-package #:cliki2)
(in-readtable cliki2)
-(defvar *title*)
+(defvar *title* "")
(defvar *footer* "")
(defvar *header* "")
@@ -66,8 +66,10 @@
</body></html>])
(defmacro render-page (title &body body)
- `(let* ((*title* ,title)
- (*footer* "")
+ `(let* ((*header* *header*)
+ (*footer* *footer*)
+ (*title* *title*) ;; in case ,title does setf
+ (*title* ,title)
(body (with-output-to-string (*html-stream*)
,@body)))
(with-output-to-string (*html-stream*)

0 comments on commit b37fa93

Please sign in to comment.
Something went wrong with that request. Please try again.