Started on the standard attributes by adding an image display.

[clinton/lisp-on-lines.git] / src / standard-attributes.lisp

diff --git a/src/standard-attributes.lisp b/src/standard-attributes.lisp
new file mode 100644 (file)
index 0000000..10e3145
--- /dev/null
+++ b/src/standard-attributes.lisp
@@ -0,0 +1,18 @@
+(in-package :lisp-on-lines)
+
+(defattribute image ()
+  ())
+
+(defdisplay (:description (image image))
+  (<:img
+   :class (or (getp :class) "lol-image") 
+   :src (arnesi:strcat
+        (or (getp :prefix) "images/")
+        (escape-as-uri
+         (attribute-value object image)))))
+
+
+
+
+
+