         { help "Navigate to the most recent Gemini URL's root." }
         { abbrevs f } }
     T{ command
+        { name "shell" }
+        { quot [ gemini-shell ] }
+        { help "'cat' the most recent Gemini URL through a shell." }
+        { abbrevs { "!" } } }
+    T{ command
         { name "quit" }
         { quot [ drop gemini-quit ] }
         { help "Quit the program." }

: gemini-root ( -- )
    URL ?first [ >url "/" >>path gemini-go ] when* ;

CONSTANT: COMMANDS {
    T{ command
        { name "back" }

USING: accessors arrays combinators.short-circuit command-loop
formatting gemini gemini.private io io.directories
io.encodings.string io.encodings.utf8 io.files io.files.temp
io.launcher io.pipes kernel math math.parser namespaces present
sequences splitting system urls webbrowser ;

IN: gemini.cli

