(in-package :mewa) (defaction edit-instance ((self mewa)) (call-presentation (instance self) :type :editor)) ;;;one-line objects (defcomponent mewa-one-line-presentation (mewa one-line-presentation) () (:default-initargs :attributes-getter #'one-line-attributes-getter)) (defmethod one-line-attributes-getter ((self mewa)) (or (meta-model:list-keys (instance self)))) ;;;objects (defcomponent mewa-object-presentation (mewa ucw:object-presentation) ()) (defcomponent two-column-presentation (mewa-object-presentation) ()) (defmethod present ((pres two-column-presentation)) (<:table :class (css-class pres) (loop for slot on (slots pres) by #'cddr do (<:tr :class "presentation-slot-row" (<:td :class "presentation-slot-label" (<:as-html (label (first slot)))) (<:td :class "presentation-slot-value" (present-slot (first slot) (instance pres))) (when (second slot) (<:td :class "presentation-slot-label" (<:as-html (label (second slot)))) (<:td :class "presentation-slot-value" (present-slot (second slot) (instance pres)))))) (render-options pres (instance pres)))) ;;;lists (defcomponent mewa-list-presentation (mewa ucw:list-presentation) ((ucw::instances :accessor instances :initarg :instances :initform nil) (instance :accessor instance) (select-label :accessor select-label :initform "select" :initarg :select-label) (selectablep :accessor selectablep :initform t :initarg :selectablep))) (defaction select-from-listing ((listing mewa-list-presentation) object index) (answer object)) (defmethod render-list-row ((listing mewa-list-presentation) object index) (<:tr :class "item-row" (<:td :align "center" :valign "top" (when (ucw::editablep listing) (let ((object object)) ( (ucw::number-input self))) (def-search-expr ((self ucw::number-equal-to)) (meta-model:expr-= (ucw::number-input self))) (defcomponent mewa-presentation-search (ucw::presentation-search) ((display-results-p :accessor display-results-p :initarg :display-results-p :initform nil))) (defmethod instance ((self mewa:mewa-presentation-search)) (instance (ucw::search-presentation self))) (defmethod search-expr ((self mewa:mewa-presentation-search) instance) (apply #'meta-model:expr-and instance (mapcan (lambda (c) (let ((e (search-expr c instance))) (if (listp e) e (list e)))) (ucw::criteria self)))) (defmethod search-query ((self mewa:mewa-presentation-search)) (search-expr self (instance self))) (defmethod valid-instances ((self mewa:mewa-presentation-search)) (meta-model:select-instances (instance self) (search-query self))) (defmethod get-all-instances ((self mewa-presentation-search)) (meta-model:select-instances (instance self))) (defmethod ok ((self mewa-presentation-search) &optional arg) (declare (ignore arg)) (setf (ucw::instances (ucw::list-presentation self)) (valid-instances self)) (setf (display-results-p self) t)) (defmethod render-on ((res response) (self mewa-presentation-search)) (<:as-html (search-query self)) (ucw::render-criteria res self) (