diff --git a/source_recorder/source-recorder.el b/source_recorder/source-recorder.el index 0de12ba..026cf7e 100644 --- a/source_recorder/source-recorder.el +++ b/source_recorder/source-recorder.el @@ -1,6 +1,6 @@ (defun buffer-changes-recorder (change-beg change-end prev-len) - (append-to-file - ;(message + ;(append-to-file + (message (format "%s;%s;%s\n" (buffer-file-name) (format-time-string "%s") @@ -13,8 +13,22 @@ (buffer-substring change-beg change-end)) ) ) - nil "~/test.log" +; nil "~/test.log" ) ) (add-hook 'after-change-functions 'buffer-changes-recorder) + +(defun buffer-switchs-recorder () + ;(append-to-file + (message + (format "%s;%s;%s\n" + (buffer-file-name) + (format-time-string "%s") + (format "S;%s;%s" (selected-window) (buffer-name)) + ) +; nil "~/test.log" + ) + ) + +(add-hook 'buffer-list-update-hook 'buffer-switchs-recorder)