1 (in-package :lisp-on-lines
)
5 (defattribute string-attribute
()
11 (defdisplay object
(:description
(string string-attribute
))
13 (if (getp :escape-html-p
)
14 (<:as-html
(attribute-value object string
))
15 (<:as-is
(attribute-value object string
))))
18 (defattribute image
()
21 (defdisplay object
(:description
(buttons (eql 'image-editor-buttons
)))
22 (<ucw
:a
:action
(ok component object
)
23 (<:as-html
"select this image")))
25 (defdisplay object
(:description
(image image
))
27 :class
(or (getp :css-class
) "lol-image")
29 (or (getp :prefix
) "images/")
31 (attribute-value object image
)))))
33 (defdisplay object
(:description
(image image
)
36 :class
"lol-image-thumbnails"
38 (dolist* (i (or (getp :directory
)
39 (cl-fad:list-directory
(strcat *default-pathname-defaults
* "wwwroot/images/"))))
41 :style
"border: 1px solid black;width:100px;"
44 :src
(strcat (or (getp :prefix
) "images/")
46 (display-using-description 'image-editor-buttons component
(file-namestring i
) properties
))
47 (<:p
:style
"clear:both;"))))