<pastebin> ( -- responder )

Vocabulary

webapps.pastebin

Inputs

None

Outputs

responder

an object

Definition

USING: accessors furnace.boilerplate http.server.dispatchers ;

IN: webapps.pastebin

: <pastebin> ( -- responder )
    pastebin new-dispatcher <pastebin-action> "" add-responder
    <pastebin-feed-action> "list.atom" add-responder
    <paste-action> "paste" add-responder
    <raw-paste-action> "paste.txt" add-responder
    <paste-feed-action> "paste.atom" add-responder
    <new-paste-action> "new-paste" add-responder
    <delete-paste-action> "delete-paste" add-responder
    <new-annotation-action> "new-annotation" add-responder
    <raw-annotation-action> "annotation.txt" add-responder
    <delete-annotation-action> "delete-annotation" add-responder
    <boilerplate> { pastebin "pastebin-common" } >>template ;