Expanded support for Configurable editing.
[clinton/lisp-on-lines.git] / src / standard-descriptions / inline.lisp
1 (in-package :lisp-on-lines)
2
3 (define-description inline ())
4
5 (define-description t ()
6 ((identity :label nil)
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")))
11 (:in-description inline))
12
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))