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
  19 (define-display :in-description inline ((description t))
  20                 (call-next-method))