felideon

(in-package #:ucw)

(defun make-orders-backend ()
  (make-backend :httpd :host "localhost" :port 8080))

(defclass orders-server (standard-server)
  ())

(defun make-orders-server ()
  (make-instance 'orders-server :backend (make-orders-backend)))

felideon

(defun startup-orders ()
  (startup-server *orders-ucw-server*))

(defun shutdown-orders ()
  (shutdown-server *orders-ucw-server*))

felideon

(defcomponent orders-window (standard-window-component)
  ()
  (:default-initargs
      :title "Book Order Form"))

felideon

(defclass example-message ()
  ((message :accessor message
	    :initarg :message
	    :initform "World!"))
  (:metaclass standard-component-class))

(defcomponent example-message ()
  ((message :accessor message
	    :initarg :message
	    :initform "World!")))

felideon

(defcomponent basic-window-component
    (basic-window-features-mixin window-component)
  ()
  (:documentation
   "A convenience class for writing window components."))

felideon

(defcomponent standard-window-component 
  (basic-window-component)
  ((body
    :initform nil
    :accessor window-body
    :component t
    :initarg :body)))

felideon

(defentry-point "index.ucw"
    (:application *orders-ucw-application*
		  :with-call/cc nil)
    ()
  (render (make-instance 'order-window)))

felideon

(defcomponent form-component ()
  ())

(defcomponent products-dropdown ()
  ())

felideon

(defmethod render ((form form-component))
  (<:form :method "post" :action "mailto:felideon+blog@gmail.com"
	  (<:as-html "Name: ") (<:text :name "Name") (<:br)
	  (<:as-html "Address: ") (<:text :name "Address") (<:br)
	  (<:as-html "Phone: ") (<:text :name "Phone") (<:br)
	  (<:p) (render (make-instance 'products-dropdown))
	  (<:p) (<:submit :value "Place Order")))

(defmethod render ((products products-dropdown))
  (<:select :name "Product"

felideon

"Same semantics as standard method combination but allows
\"wrapping\" methods. Ordering of methods:

 (wrap-around
   (around
     (before)
     (wrapping
       (primary))
     (after)))