-
- (dolist* (i (or (.get :directory)
- (cl-fad:list-directory (strcat *default-pathname-defaults* "wwwroot/images/"))))
- (<:div
- :style "border: 1px solid black;width:100px;"
- (<:img
- :width "90px"
- :src (strcat (or (.get :prefix) "images/")
- (file-namestring i)))
- (display-using-description* 'image-editor-buttons (file-namestring i) (.properties)))
- (<:p :style "clear:both;"))))