From 6651679d9ed67b35617f0a2d9c8dbc95222c42ef Mon Sep 17 00:00:00 2001
From: "Robert C. Martin" <unclebob@cleancoder.com>
Date: Thu, 9 Mar 2023 08:21:49 -0600
Subject: [PATCH] We don't need to right click on relay read and write to bring
 up the menu.

---
 src/more_speech/ui/swing/relay_manager.clj | 32 ++++++++++------------
 1 file changed, 15 insertions(+), 17 deletions(-)

diff --git a/src/more_speech/ui/swing/relay_manager.clj b/src/more_speech/ui/swing/relay_manager.clj
index d56cb09..b73d356 100644
--- a/src/more_speech/ui/swing/relay_manager.clj
+++ b/src/more_speech/ui/swing/relay_manager.clj
@@ -229,23 +229,21 @@
     (config! relays-menu :enabled? true)))
 
 (defn read-click [url e]
-  (when (.isPopupTrigger e)
-    (let [x (.x (.getPoint e))
-          y (.y (.getPoint e))
-          label (.getComponent e)
-          p (popup :items [(action :name "none" :handler (partial set-relay-read label url :read-none))
-                           (action :name "all" :handler (partial set-relay-read label url :read-all))
-                           (action :name "trusted" :handler (partial set-relay-read label url :read-trusted))
-                           (action :name "web of trust" :handler (partial set-relay-read label url :read-web-of-trust))])]
-      (.show p (to-widget e) x y))))
+  (let [x (.x (.getPoint e))
+        y (.y (.getPoint e))
+        label (.getComponent e)
+        p (popup :items [(action :name "none" :handler (partial set-relay-read label url :read-none))
+                         (action :name "all" :handler (partial set-relay-read label url :read-all))
+                         (action :name "trusted" :handler (partial set-relay-read label url :read-trusted))
+                         (action :name "web of trust" :handler (partial set-relay-read label url :read-web-of-trust))])]
+    (.show p (to-widget e) x y)))
 
 (defn write-click [url e]
-  (when (.isPopupTrigger e)
-    (let [x (.x (.getPoint e))
-          y (.y (.getPoint e))
-          label (.getComponent e)
-          p (popup :items [(action :name "true" :handler (partial set-relay-write label url true))
-                           (action :name "false" :handler (partial set-relay-write label url false))
-                           ])]
-      (.show p (to-widget e) x y))))
+  (let [x (.x (.getPoint e))
+        y (.y (.getPoint e))
+        label (.getComponent e)
+        p (popup :items [(action :name "true" :handler (partial set-relay-write label url true))
+                         (action :name "false" :handler (partial set-relay-write label url false))
+                         ])]
+    (.show p (to-widget e) x y)))