gemini-line. ( base-url line -- )

Vocabulary

gemini.private

Inputs

base-url	an object
line	an object

Outputs

None

Definition

USING: combinators io io.styles kernel namespaces splitting ;

IN: gemini.private

:: gemini-line. ( base-url line -- )
    line {
        { [ "```" ?head ] [ drop pre toggle ] }
        { [ pre get ] [ print ] }
        { [ "=>" ?head ] [ base-url gemini-link. ] }
        { [ "> " ?head ] [ gemini-quoted. ] }
        { [ "* " ?head ] [ "• " write gemini-text. ] }
        {
            [ "### " ?head ]
            [ h3-style [ gemini-text. ] with-style ]
        }
        {
            [ "## " ?head ]
            [ h2-style [ gemini-text. ] with-style ]
        }
        {
            [ "# " ?head ]
            [ h1-style [ gemini-text. ] with-style ]
        }
        [ text-style [ gemini-text. ] with-style ]
    } cond ;