From 7733a777cbef74b8dbfbe1b306571a913b04f2ad Mon Sep 17 00:00:00 2001
From: Drew Crampsie <drewc@tech.coop>
Date: Wed, 11 Jan 2006 17:48:22 -0800
Subject: [PATCH] Started on the standard attributes by adding an image
 display.

darcs-hash:20060112014822-5417e-f52ee8a2592f456c68add891ff109b948f6ce2e5.gz
---
 lisp-on-lines.asd            |  1 +
 src/standard-attributes.lisp | 18 ++++++++++++++++++
 2 files changed, 19 insertions(+)
 create mode 100644 src/standard-attributes.lisp

diff --git a/lisp-on-lines.asd b/lisp-on-lines.asd
index 598a1f7..ae3ef09 100644
--- 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
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)))))
+
+
+
+
+
+
-- 
2.20.1