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 [ drop ] [ holiday-assoc ] 2bi swap
        [ same-day? ] curry filter-keys values
    ] keep [ swap "holiday" word-prop at ] curry map ;