+;;;; * Finally set up some defaults
+
+(setf (find-attribute t :viewer)
+ '(mewa-object-presentation :global-properties (:editablep nil))
+ (find-attribute t :editor)
+ '(mewa-object-presentation :global-properties (:editablep t))
+ (find-attribute t :creator)
+ '(mewa-object-presentation :global-properties (:editablep t))
+ (find-attribute t :one-line)
+ '(mewa-one-line-presentation)
+ (find-attribute t :listing)
+ '(mewa-list-presentation :global-properties (:editablep nil) :editablep t)
+ (find-attribute t :search-model)
+ '(mewa-object-presentation))
+
+
+
+