<cgit> ( root -- responder )

Vocabulary

websites.concatenative

Inputs

root

an object

Outputs

responder

an object

Definition

USING: accessors http.server.cgi http.server.static kernel ;

IN: websites.concatenative

: <cgit> ( root -- responder )
    cgit new swap >>root [ (serve-static) ] >>hook
    H{ } clone >>special enable-cgi ;