10e314514d0eeeabf6ee2a5d4f1e603d5cb910cf
[clinton/lisp-on-lines.git] / src / standard-attributes.lisp
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