commit. ( commit -- )

Vocabulary

git

Inputs

commit

an object

Outputs

None

Definition

USING: accessors combinators io sequences splitting ;

IN: git

: commit. ( commit -- )
    {
        [ hash>> "commit " prepend print ]
        [
            author>> "Author: " prepend split-words 2 head*
            join-words print
        ]
        [
            author>> split-words git-date>string "Date:   "
            prepend print
        ]
        [
            message>> split-lines [ "    " prepend ] map
            join-lines nl print nl
        ]
    } cleave ;