summaryrefslogtreecommitdiff
path: root/cider-util.el
diff options
context:
space:
mode:
authortijsmallaerts <tijs.mallaerts@gmail.com>2017-03-22 09:49:40 +0100
committerBozhidar Batsov <bozhidar.batsov@gmail.com>2017-03-22 09:55:21 +0100
commit0816372ff483dd92eb8775c76929835b0955ae70 (patch)
tree914130c3468fc8f939b24047bf44aa8724c5e6f6 /cider-util.el
parentd528100ecb1441933b0c9ef1920d147cf6c9a40b (diff)
[Fix #1832] Add eldoc info for datomic query input parameters
Diffstat (limited to 'cider-util.el')
-rw-r--r--cider-util.el9
1 files changed, 9 insertions, 0 deletions
diff --git a/cider-util.el b/cider-util.el
index 056d6a8d..91b94f63 100644
--- a/cider-util.el
+++ b/cider-util.el
@@ -165,6 +165,15 @@ Can only error if SKIP is non-nil."
(forward-sexp 1)
(cider-start-of-next-sexp))))
+(defun cider-second-sexp-in-list ()
+ "Return the second sexp in the list at point."
+ (condition-case nil
+ (save-excursion
+ (backward-up-list)
+ (forward-char)
+ (forward-sexp 2)
+ (cider-sexp-at-point))
+ (error nil)))
;;; Text properties