git-string>assoc ( string -- assoc )

Vocabulary

git

Inputs

string

an object

Outputs

assoc

an object

Definition

USING: arrays kernel sequences splitting splitting.monotonic ;

IN: git

: git-string>assoc ( string -- assoc )
    "\n\n" split1 [
        split-lines [ nip first 32 = ] monotonic-split [
            dup length 1 =
            [ first " " split1 2array ] [
                [ first " " split1 ] [ rest [ rest ] map ] bi
                swap prefix join-lines 2array
            ] if
        ] map
    ] [ "message" swap 2array ] bi* suffix ;