Properties are special now!

[clinton/lisp-on-lines.git] / src / ucw / html-description.lisp

diff --git a/src/ucw/html-description.lisp b/src/ucw/html-description.lisp
index a77c24a..57c8125 100644 (file)
--- a/src/ucw/html-description.lisp
+++ b/src/ucw/html-description.lisp
@@ -7,11 +7,12 @@
 
 
 (define-description t ()
 
 
 (define-description t ()

-  ((css-class  :value "lol-description")
+  ((css-class  :value "lol-description" :activep nil)

    (dom-id :function (lambda (x)
                       (declare (ignore x))
                       (symbol-name 
    (dom-id :function (lambda (x)
                       (declare (ignore x))
                       (symbol-name 

-                       (gensym "DOM-ID-")))))
+                       (gensym "DOM-ID-")))
+          :activep nil))

   (:in-description html-description))
 
 (define-layered-class html-attribute ()
   (:in-description html-description))
 
 (define-layered-class html-attribute ()


@@ -24,50 +25,110 @@
  (html-attribute)
  ())
 
  (html-attribute)
  ())
 

-(define-display 
-  :in-description html-description ((description t))
- (with-attributes (css-class dom-id) description
-   (<:style
-    (<:as-html "
+(define-layered-function display-html-attribute-label (object attribute)
+  (:method (object attribute)
+    (let ((label (attribute-label attribute)))
+          (<:label 
+           :class "lol-attribute-label"
+           (when label 
+             (<:as-html 
+              (with-output-to-string (*display*)
+                (display-attribute-label object attribute))))))))
+
+(define-layered-function display-html-attribute-value (object attribute)
+  (:method (object attribute)
+    (<:span 
+       :class "lol-attribute-value"
+       (<:as-html   (with-output-to-string (*display*)
+                (display-attribute-value object attribute))))
+))
+
+(define-layered-function display-html-attribute (object attribute)
+  (:method (object attribute)
+ (<:div 
+       :class (attribute-css-class attribute)
+       (when (attribute-dom-id attribute) 
+        :id (attribute-dom-id attribute))
+       (display-html-attribute-label object attribute)
+       (display-html-attribute-value object attribute)
+       (<:br)))
+  (:method :in-layer #.(defining-description 'inline) 
+          (object attribute)
+ (<:span 
+       :class (attribute-css-class attribute)
+       (when (attribute-dom-id attribute) 
+        :id (attribute-dom-id attribute))
+       (display-html-attribute-label object attribute)
+       (<:as-html " ")
+       (display-html-attribute-value object attribute)
+       (<:as-html " "))))
+
+(define-layered-method display-html-attribute-value 
+  :in-layer #.(defining-description 'editable) (object attribute)
+
+    (<:span 
+       :class "lol-attribute-value"
+    (if (attribute-editp object attribute)     
+    (<lol:input :reader (attribute-value object attribute)
+               :writer (lambda (val)
+                         (setf (attribute-value object attribute) val)))
+    (call-next-method))
+))             
+
+(define-layered-function display-html-description (description display object)
+  (:method (description display object)
+    (<:style
+     (<:as-html "

 
 

-.lol-attribute-label, .lol-attribute-value {
+div.lol-description .lol-attribute-label, 
+div.lol-description .lol-attribute-value {

       display: block;
       display: block;

-      width: 70%;
+      width: 69%;

       float: left;
       float: left;

-      margin-bottom: 10px;
+      margin-bottom: 1em;

 
 }
 
 }

+div.lol-description 

 .lol-attribute-label {
      text-align: right;
      width: 24%;
      padding-right: 20px;
 }
 
 .lol-attribute-label {
      text-align: right;
      width: 24%;
      padding-right: 20px;
 }
 

-.lol-attribute-value {
-  
-  }

 
 

+div.lol-description 

 br {
 clear: left;
 }"))
 br {
 clear: left;
 }"))

+                      
+    (with-attributes (css-class dom-id) description
+   

 
 

-   (<:div 
-    :class (list (attribute-value* css-class) "lol-description")
-    :id    (attribute-value* dom-id)
-    (dolist (attribute (attributes description))

       (<:div 
       (<:div 

-       :class (attribute-css-class attribute)
-       (when (attribute-dom-id attribute) 
-        :id (attribute-dom-id attribute))
-       (let ((label (attribute-label attribute)))
-        (when label
-          (<:label 
-           :class "lol-attribute-label"
-           (<:as-html label))))
-       (<:span 
-       :class "lol-attribute-value"
-       (<:as-html (format nil "~A" (attribute-value* attribute))))
-       (<:br))))))
+       :class (list (attribute-value* css-class) "lol-description" "t")
+       :id    (attribute-value* dom-id)
+       (unless *object* (error "Object is nil .. why?"))
+       (dolist (attribute (attributes description))
+        (display-html-attribute *object* attribute))))))
+                      
+
+(define-layered-method display-html-description 
+  :in-layer #.(defining-description 'inline) (description display object)
+  
+  (with-attributes (css-class dom-id) description
+   
+
+    (<:span
+     :class (list (attribute-value* css-class) "lol-description")
+     :id    (attribute-value* dom-id)
+     (unless *object* (error "Object is nil .. why?"))
+     (dolist (attribute (attributes description))
+       (display-html-attribute *object* attribute))))
+  )
+
+(define-display 
+  :in-description html-description ((description t) (display lol-ucw:component) object )
+  (display-html-description description display object))