Commit | Line | Data |
---|---|---|
1 | (in-package :lisp-on-lines) | |
2 | ||
3 | (defattribute image () | |
4 | ()) | |
5 | ||
6 | (defdisplay (:description (image image)) | |
7 | (<:img | |
8 | :class (or (getp :class) "lol-image") | |
9 | :src (arnesi:strcat | |
10 | (or (getp :prefix) "images/") | |
11 | (escape-as-uri | |
12 | (attribute-value object image))))) | |
13 | ||
14 | ||
15 | ||
16 | ||
17 | ||
18 |