Emacs file access report tracking

[Eerovil]

Courtesy of reddit user /u/pvkooten, here is a snippet for an emacs script for file access tracking. This is easily parsed and grouped in TrackLater (given that I'm able to get an example file generated)

(defun log-file-visits ()
  (when (and buffer-file-name (not (eq last-command "xah-close-current-buffer")))
      (f-append-text (concat (int-to-string (float-time)) "," buffer-file-name "\n") 'utf-8 "/home/pascal/log-file-visits.txt")))

(add-hook 'find-file-hook 'log-find-visits)