From fe903c535211bdbeeb703e06db0da3f7c8c19b4b Mon Sep 17 00:00:00 2001
From: LLLL Colonq <llll@colonq>
Date: Tue, 16 Sep 2025 01:33:43 -0400
Subject: Update

---
 src/gizmo/wasp-flymake.el | 63 +++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 63 insertions(+)
 create mode 100644 src/gizmo/wasp-flymake.el

(limited to 'src/gizmo/wasp-flymake.el')

diff --git a/src/gizmo/wasp-flymake.el b/src/gizmo/wasp-flymake.el
new file mode 100644
index 00000000..42c085b4
--- /dev/null
+++ b/src/gizmo/wasp-flymake.el
@@ -0,0 +1,63 @@
+;;; wasp-flymake --- Flymake backend -*- lexical-binding: t; -*-
+;;; Commentary:
+;;; Code:
+(require 'dash)
+(require 'ht)
+(require 's)
+(require 'flymake)
+
+(defvar w/flymake-errors (ht-create))
+
+(defun w/flymake-thing-bounds (pos)
+  "Return the bounds of the thing to highlight at POS."
+  (save-excursion
+    (goto-char pos)
+    (or
+      (bounds-of-thing-at-point 'symbol)
+      (bounds-of-thing-at-point 'sexp)
+      (bounds-of-thing-at-point 'line))))
+
+(defun w/flymake-thing (pos)
+  "Return the thing highlighted at POS."
+  (-let [(begin . end) (w/flymake-thing-bounds pos)]
+    (buffer-substring-no-properties begin end)))
+
+(defun w/flymake-error (user msg)
+  "Create a new Flymake error at the cursor from USER saying MSG."
+  (when (and flymake-mode (buffer-file-name))
+    (push (list (point) (w/flymake-thing (point)) user msg)
+      (ht-get w/flymake-errors (buffer-file-name)))
+    (flymake-start)))
+
+(defun w/flymake-prune ()
+  "Remove invalidated Flymake errors."
+  (let*
+    ( (errs (ht-get w/flymake-errors (buffer-file-name)))
+      (pruned
+        (--filter
+          (when-let* ((sym (w/flymake-thing (car it))))
+            (s-equals? sym (cadr it)))
+          errs)))
+    (ht-set! w/flymake-errors (buffer-file-name) pruned)))
+
+(defun w/flymake-backend (report-fn &rest _)
+  "Flymake backend for stream errors. Calls REPORT-FN."
+  (w/flymake-prune)
+  (-let [errs (ht-get w/flymake-errors (buffer-file-name))]
+    (funcall report-fn
+      (--map
+        (-let [(begin . end) (w/flymake-thing-bounds (car it))]
+          (flymake-make-diagnostic
+            (current-buffer)
+            begin end
+            :note
+            (format "%s: %s" (caddr it) (cadddr it))))
+        errs))))
+
+(defun w/flymake-setup ()
+  "Setup stream Flymake errors."
+  (add-hook 'flymake-diagnostic-functions #'w/flymake-backend nil t))
+(add-hook 'prog-mode-hook #'w/flymake-setup)
+
+(provide 'wasp-flymake)
+;;; wasp-flymake.el ends here
-- 
cgit v1.2.3