Let me also note that it seems that the navigation does not work since
the following crashes on the navigation widget
(in-package :train)
;; Define callback function to initialize new sessions
(defun init-user-session (comp)
(setf (composite-widgets comp) (make-initial-page)))
(defun make-init-page ()
(make-instance 'composite :widgets
(list (make-instance 'flash :messages (list "Hello to my first
application" "hi there second element"))
(lambda ()
(with-html-to-string
(:div :style "text-align: center; margin-top: 25em;"
(:p :style "font-style: italic;"
"Roses are red," (:br)
"Violets are blue," (:br)
"Homage to you!" (:br))))))))
(defun make-initial-page ()
:documentation "just a test"
(make-navigation 'a-simple-menu
't1 (make-init-page)
'test1 (make-page "what you are doing")
'test2 (make-page "yow i am here")))
(defun make-page (text)
:documentation "a simple page showing a text"
(with-html-to-string
(:div :style "text-align: center; margin-top: 25em;"
(:p :style "font-style: italic;"
"Roses are red," (:br)
"Violets are blue," (:br)
(str text) (:br)
"Homage to you!" (:br)))))
(defmethod render-page-body :after ((app train) rendered-html)
(with-html
(:div :class "footer"
(:p :id "system-info"
"Running on "
(str (concatenate 'string (server-type) " " (server-version)))
" (" (str (concatenate 'string (lisp-implementation-type) " "
(lisp-implementation-version))) ")")
(:p :id "contact-info"
"Contact us with any questions or comments at the "
(:a :href "http://groups.google.com/group/weblocks"; "Weblocks
Google
Group") ".")
(:img :src "/pub/images/footer/valid-xhtml11.png" :alt "This site
has valid XHTML 1.1.")
(:img :src "/pub/images/footer/valid-css.png" :alt "This site has
valid CSS."))))
On Jun 26, 12:51 am, Mackram <[email protected]> wrote:
> Hey Guys,
>
> So after listening here for a while I figured I might as well look
> directly at the upcoming version but I hit a little snag. Starting the
> weblocks-demo starts and I can see the initial-page but when I click
> on Start Demo my sbcl crashes with a message stating that the memory
> is exhausted. I am running the latest version of sbcl (1.0.29.4)
>
> Are there any packages that I need to update with this version of
> weblocks.
--~--~---------~--~----~------------~-------~--~----~
You received this message because you are subscribed to the Google Groups
"weblocks" group.
To post to this group, send email to [email protected]
To unsubscribe from this group, send email to
[email protected]
For more options, visit this group at
http://groups.google.com/group/weblocks?hl=en
-~----------~----~----~----~------~----~------~--~---
