append-history ( history -- )

Vocabulary

ui.tools.listener.history

Inputs

history

an object

Outputs

None

Definition

USING: accessors io io.encodings.utf8 io.files kernel namespaces
prettyprint.backend prettyprint.config sequences ;

IN: ui.tools.listener.history

: append-history ( history -- )
    history-file file-exists? [
        [
            history-file utf8 [
                f string-limit? [
                    [ elements>> ] [ start>> ] bi
                    [ string>> f f unparse-string print ] swap
                    each-from
                ] with-variable
            ] with-file-appender
        ] [ [ index>> ] keep start<< ] bi
    ] [ drop ] if ;