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