tldr. ( name -- )

Vocabulary

tldr

Inputs

name

an object

Outputs

None

Definition

USING: io kernel regexp sequences splitting wrap.strings ;

IN: tldr

: tldr. ( name -- )
    tldr [
        { "`" "    " } [ ?head ] any? [
            "`" ?tail drop R/ \{\{[^}]+\}\}/
            [ 2 tail 2 head* ] re-replace-with
            76 "  " wrap-indented-string
        ] [
            { "# " "= " "> " "- " } [ ?head ] any? drop
            76 wrap-string
        ] if print
    ] each ;