Andy,
I have tried to get this to work:
--- BEGIN OF FILE ---
(in-package #:openair)
(defvar *web-app*)
(defparameter *server* nil)
(defun ht-monitor-page (path resource-class)
(lambda (request)
(start-session)
(let ((root (or (session-value 'root)
(mk-web-app (:prefix path
:request (c-in request))
(make-instance resource-class
:fm-parent *parent*)))))
(setf *web-app* root)
(setf (session-value 'root) root)
(setf (request root) request)
(handler root))))
(defmd ht-monitor (page)
name
ip-address
term
:title ":: HUNCHENTOOT MONITOR ::"
:style "/css/ht-monitor.css"
:name (c? (server-name *server*))
:ip-address (c_? (server-address *server*))
:term (c-in "")
:kids (c? (the-kids
(mk-div ()
(mk-text (c? (conc$ "Name: " (name (u^ ht-monitor)))))
(mk-div ()
(mk-text (c? (conc$ "IP Address: " (ip-address (u^ ht-
monitor)))))))
(mk-form (:action "get")
(mk-label (:for "i")
(mk-text "Input: "))
(mk-input (:name "i" :id "i"
:-type "text"
:value (c? (reverse (term (u^ ht-
monitor)))))))
(mk-div ()
(mk-text (c? (conc$ "Reversed: " (reverse (term (u^
ht-monitor)))))))
)))
(defun start-ht-monitor ()
(cells-reset)
(reset-sessions)
(setf *catch-errors-p* nil)
(setf *print-circle* nil)
(setf *dispatch-table*
(list
(ht-monitor-page "/ht-monitor" 'ht-monitor)
(create-static-file-dispatcher-and-handler
"/index.html"
"/Users/frgo/projects/gt/app/ht-monitor/index.html")
(create-folder-dispatcher-and-handler
"/css/"
"/Users/frgo/projects/gt/app/ht-monitor/css/")
(create-folder-dispatcher-and-handler
"/js/"
"/opt/common-lisp/openair/js/")))
(when *server*
(hunchentoot:stop-server *server*))
(setq *server* (hunchentoot:start-server
:name "frgo's HT MONITOR"
:port 4242
:dispatch-table *dispatch-table* )))
(export! start-ht-monitor)
--- END OF FILE ---
Symptoms:
1. No updates received from Web browser
2. When trying to update a slot on a page model I do not get any
update of the Web page ...
Is the git repo somehow in an "intermediate state" ? - I seem to
remember you saying so in some email.
Appreciate your feedback.
Best,
Frank
_______________________________________________
cells-devel site list
cells-devel@common-lisp.net
http://common-lisp.net/mailman/listinfo/cells-devel
