From 77a6871f121b7c50de57ee968989a8396a58576b Mon Sep 17 00:00:00 2001
From: "Howard M. Lewis Ship" <hlship@gmail.com>
Date: Thu, 20 Jul 2023 16:31:17 -0700
Subject: [PATCH] Use Namespace/find to see if nrepl is running

Fixes #93
---
 src/clj_commons/ansi.clj | 13 ++++++-------
 1 file changed, 6 insertions(+), 7 deletions(-)

diff --git a/src/clj_commons/ansi.clj b/src/clj_commons/ansi.clj
index 3db4bcb..094cb77 100644
--- a/src/clj_commons/ansi.clj
+++ b/src/clj_commons/ansi.clj
@@ -4,13 +4,12 @@
 
   Reference: [ANSI Escape Codes @ Wikipedia](https://en.wikipedia.org/wiki/ANSI_escape_code#SGR)."
   (:require [clojure.string :as str]
-            [clj-commons.pretty-impl :refer [csi padding]]))
+            [clj-commons.pretty-impl :refer [csi padding]])
+  (:import (clojure.lang Namespace)))
 
-(defn- is-ns-available? [sym]
-  (try
-    (require sym)
-    true
-    (catch Throwable _ false)))
+(defn- is-ns-loaded?
+  [sym]
+  (some? (Namespace/find sym)))
 
 (defn- to-boolean
   [s]
@@ -36,7 +35,7 @@
       (cond
         (some? flag) (to-boolean flag)
 
-        (is-ns-available? 'nrepl.core)
+        (is-ns-loaded? 'nrepl.core)
         true
 
         :else