Skip to content
Merged
Show file tree
Hide file tree
Changes from all commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
1 change: 1 addition & 0 deletions CHANGELOG.md
Original file line number Diff line number Diff line change
Expand Up @@ -2,6 +2,7 @@

## master (unreleased)

* Bump `orchard` to [0.35.0](https://github.com/clojure-emacs/orchard/blob/master/CHANGELOG.md#0350-2025-05-28).
* [#941](https://github.com/clojure-emacs/cider-nrepl/pull/941): Stop vendoring Fipp dependency.
* [#941](https://github.com/clojure-emacs/cider-nrepl/pull/941): Default to orchard.pp printer when Fipp/Puget/Zprint is selected but not found on classpath.
* [#943](https://github.com/clojure-emacs/cider-nrepl/pull/943): Debug: reduce insrumentation bytecode footprint.
Expand Down
2 changes: 1 addition & 1 deletion project.clj
Original file line number Diff line number Diff line change
Expand Up @@ -21,7 +21,7 @@
:url "http://www.eclipse.org/legal/epl-v10.html"}
:scm {:name "git" :url "https://github.com/clojure-emacs/cider-nrepl"}
:dependencies [[nrepl/nrepl "1.3.1" :exclusions [org.clojure/clojure]]
[cider/orchard "0.34.3" :exclusions [org.clojure/clojure]]
[cider/orchard "0.35.0" :exclusions [org.clojure/clojure]]
^:inline-dep [compliment "0.7.0"]
^:inline-dep [org.rksm/suitable "0.6.2" :exclusions [org.clojure/clojure
org.clojure/clojurescript]]
Expand Down
10 changes: 1 addition & 9 deletions src/cider/nrepl/middleware/inspect.clj
Original file line number Diff line number Diff line change
Expand Up @@ -85,16 +85,8 @@
(defn toggle-pretty-print-reply [msg]
(inspector-response msg (swap-inspector! msg #(-> (update % :pretty-print not) (inspect/inspect-render)))))

(defn- toggle-view-mode [{:keys [view-mode] :as inspector}]
;; The order in which view modes are cycled depends on the inspected object.
(let [toggle-order (if (inspect/supports-table-view-mode? inspector)
{:normal :table, :table :object, :object :normal}
{:normal :object, :object :normal})
next-view-mode (toggle-order view-mode :normal)]
(inspect/set-view-mode inspector next-view-mode)))

(defn toggle-view-mode-reply [msg]
(inspector-response msg (swap-inspector! msg toggle-view-mode)))
(inspector-response msg (swap-inspector! msg inspect/toggle-view-mode)))

(defn- display-analytics-reply [msg]
(inspector-response msg (swap-inspector! msg inspect/display-analytics)))
Expand Down
Loading