gemini-server

Vocabulary

gemini.server

Definition

USING: io.servers strings ;

IN: gemini.server

TUPLE: gemini-server < threaded-server
    { serving-directory string initial: "" } ;

Methods

USING: accessors combinators gemini.server gemini.server.private
io io.files.info io.files.types io.servers kernel sequences ;

M: gemini-server handle-client*
    dup serving-directory>> read-gemini-path append
    dup file-info [ send-status ] 2keep type>> {
        { +directory+ [ send-directory ] }
        { +regular-file+ [ nip send-file ] }
        [ 3drop ]
    } case flush ;