1 (in-package :lisp-on-lines
)
6 (defdisplay (:description
(buttons (eql 'image-editor-buttons
)))
7 (<ucw
:a
:action
(ok component object
)
8 (<:as-html
"select this image")))
10 (defdisplay (:description
(image image
))
12 :class
(or (getp :css-class
) "lol-image")
14 (or (getp :prefix
) "images/")
16 (attribute-value object image
)))))
18 (defdisplay (:description
(image image
)
21 :class
"lol-image-thumbnails"
23 (dolist* (i (or (getp :directory
)
24 (cl-fad:list-directory
(strcat *default-pathname-defaults
* "wwwroot/images/"))))
26 :style
"border: 1px solid black;width:100px;"
29 :src
(strcat (or (getp :prefix
) "images/")
31 (display-using-description 'image-editor-buttons component
(file-namestring i
) properties
))
32 (<:p
:style
"clear:both;"))))