update-key-caps-state ( -- )

Vocabulary

key-logger

Inputs

None

Outputs

None

Definition

USING: accessors bit-arrays calendar endian game.input io
io.encodings.binary io.files kernel math ;

IN: key-logger

: update-key-caps-state ( -- )
    read-keyboard keys>> path binary [
        [ now unix-1970 time- duration>nanoseconds >integer ]
        [ bit-array>integer ] bi* [ 8 >be write ] bi@ flush
    ] with-file-appender ;