[nongnu] elpa/flymake-popon cdc94fe283 2/3: Automatically update popon when diagnostics change

[ELPA Syncer]

branch: elpa/flymake-popon
commit cdc94fe283a0c030b364a343e67f6dd1eacd983d
Author: Akib Azmain Turja <akib@disroot.org>
Commit: Akib Azmain Turja <akib@disroot.org>

    Automatically update popon when diagnostics change
---
 flymake-popon.el | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/flymake-popon.el b/flymake-popon.el
index 8f6a9f1403..7fd88840e3 100644
--- a/flymake-popon.el
+++ b/flymake-popon.el
@@ -200,6 +200,11 @@ The value should be in seconds."
         (run-with-timer flymake-popon-delay nil
                         #'flymake-popon--show)))
 
+(defun flymake-popon--update-if-shown (&rest _)
+  "Update popon if it is shown."
+  (when (and flymake-popon-mode flymake-popon--popup)
+    (flymake-popon--show)))
+
 ;;;###autoload
 (define-minor-mode flymake-popon-mode
   "Toggle show Flymake diagnostics on cursor hover."
@@ -209,7 +214,9 @@ The value should be in seconds."
       (progn
         (add-hook 'pre-command-hook #'flymake-popon--hide nil t)
         (add-hook 'post-command-hook #'flymake-popon--post-command
-                  nil t))
+                  nil t)
+        (advice-add #'flymake--handle-report :after
+                    #'flymake-popon--update-if-shown))
     (remove-hook 'pre-command-hook #'flymake-popon--hide t)
     (remove-hook 'post-command-hook #'flymake-popon--post-command t)))