gemini-less ( -- )

Vocabulary

gemini.cli

Inputs

None

Outputs

None

Definition

USING: accessors environment io io.encodings.utf8 io.files
io.files.temp io.launcher kernel namespaces ;

IN: gemini.cli

: gemini-less ( -- )
    "gemini.txt" temp-file [
        utf8 [
            <process> "PAGER" os-env [ "less" ] unless*
            >>command input-stream get >>stdin try-process
        ] with-file-reader
    ] when-file-exists ;