Commit 5b28c3e113ffee99dd9f8201304ebad5925e5665
- Date: Fri Mar 28 21:19:23 +0000 2008
- Committer: Andy Chambers (Andy Chambers achambers.home@gmail.com)
- Author: Andy Chambers (Andy Chambers achambers.home@gmail.com)
- Commit SHA1: 5b28c3e113ffee99dd9f8201304ebad5925e5665
- Tree SHA1: 125dfc72365790320dfd504eb25cc1709a53abf3
refactor examples a little
Commit diff
| | |
| 37 | 37 | (mk-text "Describe")) |
| 38 | 38 | (mk-textarea (:name "d" :id "d")))))))) |
| 39 | 39 | |
| 40 | (defun test-page (path root) |
| 41 | (lambda (request) |
| 42 | (cells-reset) |
| 43 | (reset-sessions) |
| 44 | (let ((app (mk-web-app (:prefix path |
| 45 | :request request) |
| 46 | (make-instance |
| 47 | root |
| 48 | :fm-parent *parent*)))) |
| 49 | (handler app)))) |
| 50 | |
| 51 | (defun reload () |
| 52 | (setf *catch-errors-p* nil |
| 53 | *dispatch-table* (list (test-page "/apropos" 'web-apropos)))) |
| 40 | 54 | |
| 41 | 55 | |
| toggle raw diff |
--- a/example.lisp
+++ b/example.lisp
@@ -37,5 +37,19 @@ See the Lisp Lesser GNU Public License for more details.
(mk-text "Describe"))
(mk-textarea (:name "d" :id "d"))))))))
+(defun test-page (path root)
+ (lambda (request)
+ (cells-reset)
+ (reset-sessions)
+ (let ((app (mk-web-app (:prefix path
+ :request request)
+ (make-instance
+ root
+ :fm-parent *parent*))))
+ (handler app))))
+
+(defun reload ()
+ (setf *catch-errors-p* nil
+ *dispatch-table* (list (test-page "/apropos" 'web-apropos))))
|
| | |
| 61 | 61 | :fm-parent nil |
| 62 | 62 | :resource (c? (the-kids ,@body)))) |
| 63 | 63 | |
| 64 | | (defvar *web-app* nil) |
| 65 | | (defvar *web-apropos* nil) |
| 66 | | |
| 67 | | (setf *catch-errors-p* nil |
| 68 | | *dispatch-table* |
| 69 | | (list (lambda (request) |
| 70 | | (cells-reset) |
| 71 | | (reset-sessions) |
| 72 | | (let ((app |
| 73 | | (setf *web-app* (mk-web-app (:prefix "/apropos" |
| 74 | | :request request) |
| 75 | | (setf *web-apropos* |
| 76 | | (make-instance |
| 77 | | 'web-apropos |
| 78 | | :fm-parent *parent*)))))) |
| 79 | | (handler app))))) |
| 80 | | |
| 81 | | ;; (defun run-page (root-class) |
| 82 | | ;; (reset-sessions) |
| 83 | | ;; (cells-reset) |
| 84 | | |
| 85 | | ;; (let ((handler (lambda (request) |
| 86 | | ;; (start-session) |
| 87 | | ;; (let ((self (make-instance |
| 88 | | ;; root-class |
| 89 | | ;; :request (c-in request)))) |
| 90 | | |
| 91 | | ;; (let ((root (if (null (session-value 'root)) |
| 92 | | ;; (make-instance root-class |
| 93 | | ;; :request (c-in request)) |
| 94 | | ;; (session-value 'root)))) |
| 95 | | ;; (setf (session-value 'root) root) |
| 96 | | ;; (with-accessors ((req request)) root |
| 97 | | ;; (setf req request)) |
| 98 | | |
| 99 | | ;; (lambda () |
| 100 | | ;; (xhtml (car (kids self)))))))) |
| 101 | | ;; (setf *catch-errors-p* nil |
| 102 | | ;; *dispatch-table* (list handler)))) |
| 103 | | |
| 104 | | |
| 105 | | |
| 106 | | |
| 107 | | |
| 108 | | ;; (run-page 'web-apropos) |
| 109 | | |
| 110 | | ;; ;; (xhtml (page *app*)) |
| 111 | | |
| 112 | 64 | ;; (start-server :port 8080) |
| 113 | 65 | |
| 114 | 66 | |
| toggle raw diff |
--- a/request.lisp
+++ b/request.lisp
@@ -61,54 +61,6 @@ See the Lisp Lesser GNU Public License for more details.
:fm-parent nil
:resource (c? (the-kids ,@body))))
-(defvar *web-app* nil)
-(defvar *web-apropos* nil)
-
-(setf *catch-errors-p* nil
- *dispatch-table*
- (list (lambda (request)
- (cells-reset)
- (reset-sessions)
- (let ((app
- (setf *web-app* (mk-web-app (:prefix "/apropos"
- :request request)
- (setf *web-apropos*
- (make-instance
- 'web-apropos
- :fm-parent *parent*))))))
- (handler app)))))
-
-;; (defun run-page (root-class)
-;; (reset-sessions)
-;; (cells-reset)
-
-;; (let ((handler (lambda (request)
-;; (start-session)
-;; (let ((self (make-instance
-;; root-class
-;; :request (c-in request))))
-
-;; (let ((root (if (null (session-value 'root))
-;; (make-instance root-class
-;; :request (c-in request))
-;; (session-value 'root))))
-;; (setf (session-value 'root) root)
-;; (with-accessors ((req request)) root
-;; (setf req request))
-
-;; (lambda ()
-;; (xhtml (car (kids self))))))))
-;; (setf *catch-errors-p* nil
-;; *dispatch-table* (list handler))))
-
-
-
-
-
-;; (run-page 'web-apropos)
-
-;; ;; (xhtml (page *app*))
-
;; (start-server :port 8080)
|
