COMMANDS ( -- value )

Vocabulary

gopher.cli

Inputs

None

Outputs

value

an object

Definition

USING: command-loop kernel ;

IN: gopher.cli

CONSTANT: COMMANDS
    {
        T{ command
            { name "back" }
            { quot [ drop gopher-back ] }
            { help "Go back to the previous gopher URL." }
            { abbrevs { "b" } }
        }
        T{ command
            { name "forward" }
            { quot [ drop gopher-forward ] }
            { help "Go forward to the next gopher URL." }
            { abbrevs { "f" } }
        }
        T{ command
            { name "history" }
            { quot [ drop gopher-history ] }
            { help "Display recently viewed gopher URLs." }
            { abbrevs { "h" "hist" } }
        }
        T{ command
            { name "less" }
            { quot [ drop gopher-less ] }
            { help
                "View the most recent gopher URL in a pager."
            }
            { abbrevs { "l" } }
        }
        T{ command
            { name "ls" }
            { quot [ gopher-ls ] }
            { help "List the currently available links." }
        }
        T{ command
            { name "go" }
            { quot [ gopher-go ] }
            { help "Go to a gopher URL" }
            { abbrevs { "g" } }
        }
        T{ command
            { name "url" }
            { quot [ drop gopher-url ] }
            { help "Print the most recent gopher URL." }
        }
        T{ command
            { name "reload" }
            { quot [ drop gopher-reload ] }
            { help "Reload the most recent gopher URL." }
            { abbrevs { "r" } }
        }
        T{ command
            { name "root" }
            { quot [ drop gopher-root ] }
            { help
                "Navigate to the most recent gopher URL's root."
            }
        }
        T{ command
            { name "shell" }
            { quot [ gopher-shell ] }
            { help
                "'cat' the most recent gopher URL through a shell."
            }
            { abbrevs { "!" } }
        }
        T{ command
            { name "home" }
            { quot [ drop DEFAULT-URL gopher-go ] }
            { help "Go to the default gopher URL" }
        }
        T{ command
            { name "quit" }
            { quot [ drop gopher-quit ] }
            { help "Quit the program." }
            { abbrevs { "q" "exit" } }
        }
    } inline