データの集めかた - emacs

 (add-hook 'after-save-hook
          (lambda ()
            (call-process "__cia_report" nil t t "emacs-save"
                          (format "%s %d %s" (buffer-name) (buffer-size) (buffer-file-name)))))
 
 (add-hook 'find-file-hook
          (lambda ()
            (call-process "__cia_report" nil t t "emacs-find"
                          (format "%s %d %s" (buffer-name) (buffer-size) (buffer-file-name)))))
 
 (add-hook 'after-change-major-mode-hook
          (lambda ()
            (call-process "__cia_report" nil t t "emacs-mode" mode-name)))