From a9f4b53155c9f904180ada7d75b08212b444293f Mon Sep 17 00:00:00 2001 From: John Bintz Date: Fri, 22 Jan 2016 11:18:47 -0500 Subject: [PATCH] try for clojure and clojurescript stacktraces --- autoload/fireplace/nrepl.vim | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/autoload/fireplace/nrepl.vim b/autoload/fireplace/nrepl.vim index 8569523..0f7707d 100644 --- a/autoload/fireplace/nrepl.vim +++ b/autoload/fireplace/nrepl.vim @@ -192,7 +192,8 @@ function! s:extract_last_stacktrace(nrepl, session) abort return map(stacktrace, 'v:val.class.".".v:val.method."(".v:val.file.":".v:val.line.")"') endif endif - let format_st = '(symbol (str "\n\b" (apply str (interleave (repeat "\n") (map str (.getStackTrace *e)))) "\n\b\n"))' + let try_for_stacktrace = '(map #(str % "\n") (try (.getStackTrace *e) (catch :default je (try (aget *e "stack") (catch :default jse [])) [])))' + let format_st = '(symbol (str "\n\b" (apply str '.try_for_stacktrace.') "\n\b\n"))' let response = a:nrepl.process({'op': 'eval', 'code': '['.format_st.' *3 *2 *1]', 'ns': 'user', 'session': a:session}) try let stacktrace = split(get(split(response.value[0], "\n\b\n"), 1, ""), "\n")