HCoop
/
clinton
/
lisp-on-lines.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
API CHANGE: Removed the OBJECT arg from attribute-value
[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
57c8125
..
120d317
100644
(file)
--- a/
src/ucw/html-description.lisp
+++ b/
src/ucw/html-description.lisp
@@
-5,7
+5,6
@@
(define-description html-description ()
())
(define-description html-description ()
())
-
(define-description t ()
((css-class :value "lol-description" :activep nil)
(dom-id :function (lambda (x)
(define-description t ()
((css-class :value "lol-description" :activep nil)
(dom-id :function (lambda (x)
@@
-39,8
+38,9
@@
(:method (object attribute)
(<:span
:class "lol-attribute-value"
(:method (object attribute)
(<:span
:class "lol-attribute-value"
- (<:as-html (with-output-to-string (*display*)
- (display-attribute-value object attribute))))
+ (<:as-html
+ (with-output-to-string (*display*)
+ (display-attribute-value object attribute))))
))
(define-layered-function display-html-attribute (object attribute)
))
(define-layered-function display-html-attribute (object attribute)
@@
-127,7
+127,9
@@
clear: left;
)
(define-display
)
(define-display
- :in-description html-description ((description t) (display lol-ucw:component) object )
+ :in-description html-description ((description t)
+ (display lol-ucw:component)
+ object)
(display-html-description description display object))
(display-html-description description display object))