branch: elpa/cider
commit 0477ca056f2ff3ae9253f2ab1fb047959708120c
Author: vemv <v...@users.noreply.github.com>
Commit: Bozhidar Batsov <bozhi...@batsov.dev>
Improve the reliability of `cider--shadow-get-builds`
---
cider.el | 12 +++++++++---
1 file changed, 9 insertions(+), 3 deletions(-)
diff --git a/cider.el b/cider.el
index 06502d7ae7..6d6ea5c4a8 100644
--- a/cider.el
+++ b/cider.el
@@ -1043,11 +1043,17 @@ The default options of `browser-repl' and `node-repl'
are also included."
(defun cider--shadow-get-builds ()
"Extract build names from the shadow-cljs.edn config file in the project
root."
(let ((shadow-edn (concat (clojure-project-dir) "shadow-cljs.edn")))
- (when (file-exists-p shadow-edn)
+ (when (file-readable-p shadow-edn)
(with-temp-buffer
(insert-file-contents shadow-edn)
- (let ((hash (car (parseedn-read '((shadow/env . identity))))))
- (cider--shadow-parse-builds hash))))))
+ (condition-case err
+ (let ((hash (car (parseedn-read '((shadow/env . identity)
+ (env . identity))))))
+ (cider--shadow-parse-builds hash))
+ (error
+ (user-error "Found an error while reading %s with message: %s"
+ shadow-edn
+ (error-message-string err))))))))
(defun cider-shadow-select-cljs-init-form ()
"Generate the init form for a shadow-cljs select-only REPL.
