print-links ( links verbose? -- )

Vocabulary

gopher.cli

Inputs

links	an object
verbose?	an object

Outputs

None

Definition

USING: arrays formatting kernel math sequences ;

IN: gopher.cli

: print-links ( links verbose? -- )
    LINKS delete-all over LINKS push-all [
        [
            1 + swap [
                dup array? [ first ] when URL ?first =
                [ drop "*" ] when
            ] keep
        ]
    ] dip [
        [ dup array? [ dup second empty? not ] [ f ] if ] [ f ]
        if
        [ first2 swap "[%s] %s (%s)\n" printf ] [
            dup array? [ first2 ] [ f ] if dup empty? -rot ?
            "[%s] %s\n" printf
        ] if
    ] curry compose each-index ;