block

Vocabulary

prettyprint.sections

Class description

A block is a section containing child sections. Blocks are introduced by calling <block and block>.

Definition

IN: prettyprint.sections

TUPLE: block < section sections ;

Methods

USING: accessors kernel prettyprint.sections sequences ;

M: block long-section
    [
        sections>> chop-break group-flow [
            dup ?break-group [
                dup line-break?
                [ do-break ]
                [ [ advance ] [ pprint-section ] bi ] if
            ] each
        ] each
    ] unless-empty-block ;


USING: generic kernel prettyprint.sections ;

M: block section-fits?
    line-limit?
    [ drop t ] [ M\ block section-fits? (call-next-method) ] if
    ;


USING: prettyprint.sections ;

M: block short-section [ advance ] pprint-sections ;