(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 () ()) (defdisplay object (:description (buttons (eql 'image-editor-buttons))) (