get-issues-by-all-labels ( owner repo -- seq )

Vocabulary

github

Inputs

owner	an object
repo	an object

Outputs

seq

an object

Definition

USING: assocs assocs.extras kernel sequences ;

IN: github

: get-issues-by-all-labels ( owner repo -- seq )
    [ get-label-names [ V{ } clone ] H{ } map>assoc ]
    [ list-issues-for-repository ] 2bi
    [ "labels" of [ "name" of ] map ] collect-by-multi! ;