make magit check uncommited changes when opening a file

Question

Sometimes I am interrupted while coding and forget to commit. I would like to be warned about this next time I open a file with uncommited changes.

I tried

(defun my/magit-check-file-and-popup (file)
  "If the file is version controlled with git and has uncommitted
changes, open the magit status popup."
  (require 'magit-core)
  (when (and file (magit-anything-modified-p t file))
    (magit-status)))

(add-hook 'after-load-functions 'my/magit-check-file-and-popup)

which worked for a while, but after recent package updates it goes into recursive require, so I guess it is not the right approach. Using Emacs 25.2.2 if that matters, and latest magit from MELPA.

Answer 1

It turns out that due to a recent change in magit, I now need to (require 'magit-git), not 'magit-core. Also, find-file-hook avoids the recursion problem. The following works:

(defun tkpapp/magit-check-file-and-popup ()
  "If the file is version controlled with git and has uncommitted
changes, open the magit status popup."
  (let ((file (buffer-file-name)))
    (when (and file (magit-anything-modified-p t file))
      (magit-status))))

(require 'magit)
(require 'magit-git)
(add-hook 'find-file-hook 'tkpapp/magit-check-file-and-popup)