added dont-show-unset-slots mixin, should work with any mewa-presentation

[clinton/lisp-on-lines.git] / src / mewa / presentations.lisp

diff --git a/src/mewa/presentations.lisp b/src/mewa/presentations.lisp
index f10d1cb..9cf4fcb 100644 (file)
--- a/src/mewa/presentations.lisp
+++ b/src/mewa/presentations.lisp
@@ -93,4 +93,13 @@
            (slot-value listing 'ucw::place) (slot-value self 'ucw::place)
            (slot-value listing 'ucw::continuation) (slot-value self 'ucw::continuation))
     
-      (render-on res listing))))
\ No newline at end of file
+      (render-on res listing))))
+
+
+;;;;
+(defcomponent dont-show-unset-slots ()())
+
+(defmethod slots :around ((self dont-show-unset-slots))
+  (remove-if-not #'(lambda (s) (let ((s (presentation-slot-value s (instance self))))
+                                (and s (not (equal "" s)))))
+                (call-next-method)))
\ No newline at end of file