From 2481a1770f5ea0882795ca87bf8a3752fbf47b7c Mon Sep 17 00:00:00 2001
From: eltrac <hi@eltr.ac>
Date: Thu, 5 Mar 2026 16:52:48 +0800
Subject: style(processor): simplify code with when-let

---
 src/weepinbell/processor.clj | 13 ++++++-------
 1 file changed, 6 insertions(+), 7 deletions(-)

(limited to 'src')

diff --git a/src/weepinbell/processor.clj b/src/weepinbell/processor.clj
index 95476b3..42e973f 100644
--- a/src/weepinbell/processor.clj
+++ b/src/weepinbell/processor.clj
@@ -48,13 +48,12 @@
   [wmc]
   (println "Processor started.")
   (go-loop []
-    (let [wm (<! wmc)]
+    (when-let [wm (<! wmc)]
       (println "Webmention found in queue.")
-      (if wm
-        (let [{:keys [s t]} wm]
-          (if (verify-mention s t)
-            (process-verified-webmention s t)
-            (println "Invalid mention")))
-        (println "Idling")))
+      (let [{:keys [s t]} wm]
+        (if (verify-mention s t)
+          (process-verified-webmention s t)
+          (println "Invalid mention")))
+      (println "Idling"))
     (recur)))
 
-- 
cgit v1.2.3