[inspector] Remove eval-and-inspect

Since I introduced it back in 2019 (see #38), it never got a cider-nrepl op
counterpart and nobody seemed to miss it (and apparently neither did I, lol).

Author: alexander-yakushev

src/orchard/inspect.clj

@@ -254,19 +254,6 @@
   {:pre [(integer? max-nested-depth)]}
   (inspect-render (assoc inspector :max-nested-depth max-nested-depth)))
 
-(defn eval-and-inspect
-  "Evaluate the given expression where `v` is bound to the currently inspected
-  value. Open the evaluation result in the inspector."
-  [inspector expr]
-  (let [{:keys [current-page value]} inspector
-        eval-fn `(fn [~'v] ~(read-string expr))
-        result ((eval eval-fn) value)]
-    (-> (update inspector :stack conj value)
-        (update :pages-stack conj current-page)
-        (assoc :current-page 0)
-        (update :path conj '<unknown>)
-        (inspect-render result))))
-
 (defn def-current-value
   "Define the currently inspected value as a var with the given name in the
   provided namespace."

test/orchard/inspect_test.clj

@@ -365,25 +365,6 @@
         (is (= 2 (:current-page ins)))
         (is (= 4 (:current-page (inspect/up ins))))))))
 
-(deftest eval-and-inspect-test
-  (testing "evaluate expr in the context of currently inspected value"
-    (is (match? (list "Class"
-                      ": " (list :value "java.lang.String" number?)
-                      '(:newline)
-                      "Value: " "\"1001\""
-                      '(:newline)
-                      '(:newline)
-                      "--- Print:"
-                      '(:newline)
-                      "  " "1001"
-                      '(:newline))
-                (-> eval-result
-                    inspect
-                    (inspect/down 2)
-                    (inspect/down 2)
-                    (inspect/eval-and-inspect "(str (+ v 1000))")
-                    render)))))
-
 (deftest def-value-test
   (testing "define var with the currently inspected value"
     (-> eval-result