Started on the standard attributes by adding an image display.

darcs-hash:20060112014822-5417e-f52ee8a2592f456c68add891ff109b948f6ce2e5.gz

diff --git a/lisp-on-lines.asd b/lisp-on-lines.asd
index 598a1f7..ae3ef09 100644 (file)
--- a/lisp-on-lines.asd
+++ b/lisp-on-lines.asd
@@ -21,6 +21,7 @@
                                       (:file "slot-presentations")
                                       (:file "slot-presentations/date")
                                       (:file "standard-display")
+                                      (:file "standard-attributes")
                                       (:file "relational-attributes"))
                          :serial t)
                 (:module :components

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)))))
+
+
+
+
+
+