[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)
  ()
  ())

(define-display :in-description inline ((description t))		
		(call-next-method))
Commit	Line	Data
6de8d300	1	(in-package :lisp-on-lines)
	2
	3	(define-description inline ())
	4
	5	(define-description t ()
	6	((identity :label nil)
b7657b86	7	(active-attributes :value '(identity))
	8	(attribute-delimiter :value ", ")
	9	(label-formatter :value (curry #'format nil "~A: "))
	10	(value-formatter :value (curry #'format nil "~A")))
6de8d300	11	(:in-description inline))
6de8d300	12
b7657b86	13	(define-layered-class standard-attribute
	14	:in-layer #.(defining-description 'inline)
	15	()
	16	())
	17
	18	(define-display :in-description inline ((description t))
	19	(call-next-method))