cgit

Vocabulary

websites.concatenative

Definition

USING: http.server.static ;

IN: websites.concatenative

TUPLE: cgit < file-responder ;

Methods

USING: accessors generic http.server http.server.static io.files
kernel namespaces sequences urls websites.concatenative ;

M: cgit call-responder*
    dup file-responder set over
    [ f ] [ "/" join serving-path file-exists? ] if-empty [
        url get rot "/" join "url" set-query-param
        "cgit.cgi" >>path drop { "cgit.cgi" } swap
    ] unless M\ cgit call-responder* (call-next-method) ;