From 9af22ce39633ff39d7ed05c4fb38a4f5c0f3b794 Mon Sep 17 00:00:00 2001
From: Drew Crampsie <drewc@tech.coop>
Date: Wed, 1 Feb 2006 22:59:02 -0800
Subject: [PATCH] adding string-attribute.

darcs-hash:20060202065902-5417e-9e0c385d740d37dcf0d0a7ed54de56ffc12dc9f3.gz
---
 src/standard-attributes.lisp | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

diff --git a/src/standard-attributes.lisp b/src/standard-attributes.lisp
index 1eb244f..492a06b 100644
--- a/src/standard-attributes.lisp
+++ b/src/standard-attributes.lisp
@@ -1,5 +1,20 @@
 (in-package :lisp-on-lines)
 
+;;;; Strings
+
+(defattribute string-attribute ()
+  ()
+  (:type-name string)
+  (:default-properties
+      :escape-html-p t))
+
+(defdisplay object (:description (string string-attribute))
+  (<:as-html "ASD")
+  (if (getp :escape-html-p)
+      (<:as-html (attribute-value object string))
+      (<:as-is (attribute-value object string))))
+
+
 (defattribute image ()
   ())
 
-- 
2.20.1