Final New Description patch!

[clinton/lisp-on-lines.git] / src / standard-descriptions / inline.lisp

(in-package :lisp-on-lines)

(define-description inline ())

(define-description t ()
  ((identity :label nil)
   (active-attributes :value '(identity))
   (attribute-delimiter :value ", ")
   (label-formatter :value (curry #'format nil "~A: "))
   (value-formatter :value (curry #'format nil "~A")))
  (:in-description inline))

(define-layered-class standard-attribute
  :in-layer #.(defining-description 'inline)
  ()
  ())

(defun display-inline (object &rest args)
  (with-active-descriptions (inline)
    (apply #'display *display* object args)))

(defun display-inline-attribute (attribute value)
  (if (ignore-errors (lol::attribute-active-attributes attribute))
      (handler-case (display-inline value :attributes (lol::attribute-active-attributes attribute))
	(error ()
	  (display-inline value)))
      (display-inline value)))