(defmd page (html)
(xdefs (c? (fm-collect-if self
(lambda (k)
(not (eq (find-class 'text)
(class-of k))))))))
(xhtml (c? (with-output-to-string (s)
(with-html-output (s nil :prologue t :indent t)
(:html
(:head
(:title (str (^title)))
(:script :type "text/javascript"
:src "/js/jquery.js")
(:script :type "text/javascript"
:src "/js/openair.js")
(:script
:type "text/javascript"
(format t "defs = { ~{~a~} }; "
(loop for def in (^xdefs)
collect (format t "~s: ~s"
(md-name def)
(xhtml def)))))
(:style :type "text/css"
:href (^style)))
(:body
(:div :id "banner"
(:h1 (str (^title))))
(:div :id "content"
(str (apply #'concatenate 'string
(loop for k in (^kids)
collecting (without-c-dependency
(xhtml k)))))))))))))
Adding the xdefs rule above makes cells ask me to "see listener for
cell rule cycle diagnostics". What does this mean?
Is there another way of writing this rule to avoid this? I get the
same error if I wrap the rule in a without-c-dependancy but I'm not
sure what this means anyway.
Cheers,
Andy
--
----
Andy Chambers
Formedix Ltd
_______________________________________________
cells-devel site list
[email protected]
http://common-lisp.net/mailman/listinfo/cells-devel
