@@ -214,15 +214,15 @@ Otherwise, only the docstring is returned."
214
214
215
215
THING is the variable name. ELDOC-INFO is a p-list containing the eldoc
216
216
information."
217
- (let* ((ns (lax -plist-get eldoc-info " ns" ))
218
- (symbol (lax -plist-get eldoc-info " symbol" ))
217
+ (let* ((ns (cider -plist-get eldoc-info " ns" ))
218
+ (symbol (cider -plist-get eldoc-info " symbol" ))
219
219
(docstring (or (cider--render-docstring-first-sentence eldoc-info)
220
220
(cider--render-docstring eldoc-info)
221
- (when-let (docstring (lax -plist-get eldoc-info " docstring" ))
221
+ (when-let (docstring (cider -plist-get eldoc-info " docstring" ))
222
222
(cider-docstring--trim
223
223
(cider-docstring--format docstring)))))
224
224
; ; if it's a single class (and not multiple class candidates), that's it
225
- (maybe-class (car (lax -plist-get eldoc-info " class" )))
225
+ (maybe-class (car (cider -plist-get eldoc-info " class" )))
226
226
(formatted-var (or (when maybe-class
227
227
(cider-propertize maybe-class 'var ))
228
228
(cider-eldoc-format-thing ns symbol thing 'var ))))
@@ -233,9 +233,9 @@ information."
233
233
" Return the formatted eldoc string for a function.
234
234
THING is the function name. POS is the argument-index of the functions
235
235
arglists. ELDOC-INFO is a p-list containing the eldoc information."
236
- (let ((ns (lax -plist-get eldoc-info " ns" ))
237
- (symbol (lax -plist-get eldoc-info " symbol" ))
238
- (arglists (lax -plist-get eldoc-info " arglists" )))
236
+ (let ((ns (cider -plist-get eldoc-info " ns" ))
237
+ (symbol (cider -plist-get eldoc-info " symbol" ))
238
+ (arglists (cider -plist-get eldoc-info " arglists" )))
239
239
(format " %s : %s "
240
240
(cider-eldoc-format-thing ns symbol thing 'fn )
241
241
(cider-eldoc-format-arglist arglists pos))))
@@ -245,13 +245,13 @@ arglists. ELDOC-INFO is a p-list containing the eldoc information."
245
245
THING is the special form's name. POS is the argument index of the
246
246
special-form's arglists. ELDOC-INFO is a p-list containing the eldoc
247
247
information."
248
- (let* ((ns (lax -plist-get eldoc-info " ns" ))
249
- (special-form-symbol (lax -plist-get eldoc-info " symbol" ))
248
+ (let* ((ns (cider -plist-get eldoc-info " ns" ))
249
+ (special-form-symbol (cider -plist-get eldoc-info " symbol" ))
250
250
(arglists (mapcar (lambda (arglist )
251
251
(if (equal (car arglist) special-form-symbol)
252
252
(cdr arglist)
253
253
arglist))
254
- (lax -plist-get eldoc-info " arglists" ))))
254
+ (cider -plist-get eldoc-info " arglists" ))))
255
255
(format " %s : %s "
256
256
(cider-eldoc-format-thing ns special-form-symbol thing 'fn )
257
257
(cider-eldoc-format-arglist arglists pos))))
@@ -333,7 +333,7 @@ if the maximum number of sexps to skip is exceeded."
333
333
(defun cider-eldoc-thing-type (eldoc-info )
334
334
" Return the type of the ELDOC-INFO being displayed by eldoc.
335
335
It can be a function or var now."
336
- (or (pcase (lax -plist-get eldoc-info " type" )
336
+ (or (pcase (cider -plist-get eldoc-info " type" )
337
337
(" function" 'fn )
338
338
(" special-form" 'special-form )
339
339
(" macro" 'macro )
@@ -453,8 +453,8 @@ This includes the arglist and ns and symbol name (if available)."
453
453
; ; add inputs of datomic query
454
454
((and (equal ns-or-class " datomic.api" )
455
455
(equal name-or-member " q" ))
456
- (let ((arglists (lax -plist-get eldoc-plist " arglists" )))
457
- (lax -plist-put eldoc-plist " arglists"
456
+ (let ((arglists (cider -plist-get eldoc-plist " arglists" )))
457
+ (cider -plist-put eldoc-plist " arglists"
458
458
(cider--eldoc-add-datomic-query-inputs-to-arglists arglists))))
459
459
; ; if none of the clauses is successful, do cache the eldoc
460
460
(t (setq cider-eldoc-last-symbol (list thing eldoc-plist))))
@@ -499,9 +499,9 @@ Only useful for interop forms. Clojure forms would be returned unchanged."
499
499
; ; don't try to provide eldoc in EDN buffers
500
500
(not (cider--eldoc-edn-file-p buffer-file-name)))
501
501
(let* ((sexp-eldoc-info (cider-eldoc-info-in-current-sexp))
502
- (eldoc-info (lax -plist-get sexp-eldoc-info " eldoc-info" ))
503
- (pos (lax -plist-get sexp-eldoc-info " pos" ))
504
- (thing (lax -plist-get sexp-eldoc-info " thing" )))
502
+ (eldoc-info (cider -plist-get sexp-eldoc-info " eldoc-info" ))
503
+ (pos (cider -plist-get sexp-eldoc-info " pos" ))
504
+ (thing (cider -plist-get sexp-eldoc-info " thing" )))
505
505
(when eldoc-info
506
506
(cond
507
507
((eq (cider-eldoc-thing-type eldoc-info) 'var )
0 commit comments