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)) |
12 | |
b7657b86 |
13 | (define-layered-class standard-attribute |
14 | :in-layer #.(defining-description 'inline) |
15 | () |
16 | ()) |
17 | |
3ca0fb81 |
18 | |
b7657b86 |
19 | (define-display :in-description inline ((description t)) |
20 | (call-next-method)) |