         { help "View the most recent Gemini URL in a pager." }
         { abbrevs { "l" } } }
     T{ command
+        { name "ls" }
+        { quot [ drop gemini-ls ] }
+        { help "List the currently available links." }
+        { abbrevs f } }
+    T{ command
         { name "go" }
         { quot [ gemini-go ] }
         { help "Go to a Gemini URL" }

    URL ?first [
        >url f >>query f >>anchor
        [ "/" ?tail drop "/" split1-last drop "/" append ] change-path
        present gemini-go
    ] when* ;

: gemini-less ( -- )

    ] if ;

: gemini-go ( args -- )
    present [ DEFAULT-URL ] when-empty
    { [ "://" over subseq? ] [ "gemini://" head? ] } 1||
    [ "gemini://" prepend ] unless
    dup "gemini://" head? [
