holiday-names ( timestamp/n singleton -- seq )

Vocabulary

calendar.holidays

Inputs

timestamp/n	an object
singleton	an object

Outputs

seq

an object

Definition

USING: assocs calendar kernel sequences words ;

IN: calendar.holidays

: holiday-names ( timestamp/n singleton -- seq )
    [
        [ clone ] dip [ holiday-assoc ] keepd
        '[ _ same-day? ] filter-keys values
    ] keep '[ _ swap "holiday" word-prop at ] map ;