IFn implements runnable already

Weathercold · Jan 22, 2023 · 0f03a32 · 0f03a32
1 parent 871faf3
commit 0f03a32
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 12 deletions.
diff --git a/.idea/extra-logging.iml b/.idea/extra-logging.iml
diff --git a/src/clojure/logging/core/settings.clj b/src/clojure/logging/core/settings.clj
@@ -7,7 +7,7 @@
                           [log-handler :as log-h]
                           [setting :refer [set-setting]]
                           [translating :as transl])
-            (logging.util [lambdas :refer [cons1 runnable s-proc]]
+            (logging.util [lambdas :refer [cons1 s-proc]]
                           [log :as log]))
   (:import (arc Core Events)
            (arc.util Log Log$LogLevel)
@@ -76,4 +76,4 @@
            (cons1 (fn [_]
                     (doto (.-settings Vars/ui)
                       (.addCategory "@extra-logging.displayname" Icon/wrench (cons1 register))
-                      (.hidden (runnable refresh!))))))
+                      (.hidden refresh!)))))
diff --git a/src/clojure/logging/util/lambdas.clj b/src/clojure/logging/util/lambdas.clj
@@ -47,11 +47,6 @@
     (get [_ a] (f a))))
 
 ;; endregion
-
-(defn runnable ^Runnable [f]
-  (reify Runnable
-    (run [_] (f))))
-
 ;; region Consumers
 
 (defn cons1 ^Cons [f]
@@ -93,10 +88,6 @@
 ;; endregion
 
 ;; Experimental
-(defmacro defrunnable [& body]
-  `(reify Runnable
-     (run [_] ~@body)))
-
 (defmacro defcons [& body]
   `(reify Cons
      (get [a] ~@body)))