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