From: Drew Crampsie <drewc@tech.coop>
Date: Thu, 12 Jan 2006 01:48:22 +0000 (-0800)
Subject: Started on the standard attributes by adding an image display.
X-Git-Url: https://git.hcoop.net/clinton/lisp-on-lines.git/commitdiff_plain/7733a777cbef74b8dbfbe1b306571a913b04f2ad?hp=a9355c10aba8ad5e2cdb20a0138dc294ad634f85

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