-(in-package :mewa)
+(declaim (optimize (speed 0) (space 3) (safety 0)))
+(in-package :lisp-on-lines)
-
- (defun split-list (n list)
- (loop for cons on list
- by #'(lambda (x) (nthcdr n x))
- if (< 0 n)
- collect (loop for atom in cons
- repeat n
- collect atom)
- else return nil))
+(defmethod render ((self mewa))
+ (lol::present self))
(defaction edit-instance ((self mewa))
(call-presentation (instance self) :type :editor))
;;;one-line objects
-(defcomponent mewa-one-line-presentation (mewa one-line-presentation)
+(defcomponent mewa-one-line-presentation (mewa lol::one-line-presentation)
()
(:default-initargs
:attributes-getter #'one-line-attributes-getter
(meta-model::list-keys (instance self))))
;;;objects
-(defcomponent mewa-object-presentation (mewa object-presentation)
+(defcomponent mewa-object-presentation (mewa lol::object-presentation)
((instance :accessor instance :initarg :instance :initform nil)))
(defcomponent mewa-viewer (mewa-object-presentation)
(dolist (slot (slots pres))
(<:tr :class "presentation-slot-row"
(present-slot-as-row pres slot))))
- (render-options pres (instance pres)))
+ (render-options pres (instance pres)))
(defmethod present-slot-as-row ((pres mewa-object-presentation) (slot slot-presentation))
(<:td :class "presentation-slot-label" (<:as-html (label slot)))
:value "view"))))
(dolist (slot (slots listing))
(<:td :class "data-cell" (present-slot slot object)))
- (<:td :class "index-number-cell")
- ))
+ (<:td :class "index-number-cell")))
(defmethod get-all-instances ((self mewa-list-presentation))
(instances self))
(defgeneric search-expr (criteria instance)
(:documentation "Return ready to apply criteria.
- What to do with it is backend dependent."))
+ to do with What it is backend dependent."))
(defmacro def-search-expr (((self criteria-type)) (model-expr &body body))
`(defmethod search-expr ((,self ,criteria-type) instance)
(defmethod find-default-criteria (c mewa-string-slot-presentation)
'string-contains)
-
-
(defmethod render-criteria ((res response) (s mewa-presentation-search))
(setf (criteria-input s) "")
(<:ul