diff options
Diffstat (limited to 'cider-eldoc.el')
| -rw-r--r-- | cider-eldoc.el | 28 |
1 files changed, 14 insertions, 14 deletions
diff --git a/cider-eldoc.el b/cider-eldoc.el index 81926638..b055824d 100644 --- a/cider-eldoc.el +++ b/cider-eldoc.el @@ -1,7 +1,7 @@ ;;; cider-eldoc.el --- eldoc support for Clojure -*- lexical-binding: t -*- ;; Copyright © 2012-2013 Tim King, Phil Hagelberg, Bozhidar Batsov -;; Copyright © 2013-2017 Bozhidar Batsov, Artur Malabarba and CIDER contributors +;; Copyright © 2013-2018 Bozhidar Batsov, Artur Malabarba and CIDER contributors ;; ;; Author: Tim King <kingtim@gmail.com> ;; Phil Hagelberg <technomancy@gmail.com> @@ -439,19 +439,19 @@ Only useful for interop forms. Clojure forms would be returned unchanged." (defun cider--eldoc-add-datomic-query-inputs-to-arglists (arglists) "Add the expected inputs of the datomic query to the ARGLISTS." (if (cider-second-sexp-in-list) - (let* ((query (cider-second-sexp-in-list)) - (query-inputs (nrepl-dict-get - (cider-sync-request:eldoc-datomic-query query) - "inputs"))) - (if query-inputs - (thread-first - (thread-last arglists - (car) - (remove "&") - (remove "inputs")) - (append (car query-inputs)) - (list)) - arglists)) + (let* ((query (cider-second-sexp-in-list)) + (query-inputs (nrepl-dict-get + (cider-sync-request:eldoc-datomic-query query) + "inputs"))) + (if query-inputs + (thread-first + (thread-last arglists + (car) + (remove "&") + (remove "inputs")) + (append (car query-inputs)) + (list)) + arglists)) arglists)) (defun cider-eldoc () |