COMMANDS ( -- value )

Vocabulary

gemini.cli

Inputs

None

Outputs

value

an object

Definition

USING: command-loop kernel ;

IN: gemini.cli

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