Skip to content

Commit 2617617

Browse files
committed
Fix checkdoc errors
1 parent d24228f commit 2617617

File tree

5 files changed

+30
-17
lines changed

5 files changed

+30
-17
lines changed

cider-client.el

Lines changed: 6 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -976,22 +976,25 @@ CONTEXT represents a completion context for compliment."
976976
eldoc)))
977977

978978
(defun cider-sync-request:spec-list (&optional filter-regex)
979-
"Get a list of the available specs in the registry."
979+
"Get a list of the available specs in the registry.
980+
981+
Optional argument FILTER-REGEX filters specs. By default, all specs are
982+
returned."
980983
(setq filter-regex (or filter-regex ""))
981984
(thread-first `("op" "spec-list"
982985
"filter-regex" ,filter-regex)
983986
(cider-nrepl-send-sync-request)
984987
(nrepl-dict-get "spec-list")))
985988

986989
(defun cider-sync-request:spec-form (spec)
987-
"Get spec form from registry"
990+
"Get SPEC's form from registry."
988991
(thread-first `("op" "spec-form"
989992
"spec-name" ,spec)
990993
(cider-nrepl-send-sync-request)
991994
(nrepl-dict-get "spec-form")))
992995

993996
(defun cider-sync-request:spec-example (spec)
994-
"Get a spec example"
997+
"Get an example for SPEC."
995998
(thread-first `("op" "spec-example"
996999
"spec-name" ,spec)
9971000
(cider-nrepl-send-sync-request)

cider-interaction.el

Lines changed: 5 additions & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -1068,8 +1068,8 @@ evaluation command. Honor `cider-auto-jump-to-error'."
10681068
(defun cider--prep-interactive-eval (form connection)
10691069
"Prepare the environment for an interactive eval of FORM in CONNECTION.
10701070
Ensure the current ns declaration has been evaluated (so that the ns
1071-
containing FORM exists). Cache ns-form in the current buffer unless FORM is
1072-
ns declaration itself. Clear any compilation highlights and kill the error
1071+
containing FORM exists). Cache ns-form in the current buffer unless FORM is
1072+
ns declaration itself. Clear any compilation highlights and kill the error
10731073
window."
10741074
(cider--clear-compilation-highlights)
10751075
(cider--quit-error-window)
@@ -1366,23 +1366,22 @@ If invoked with a prefix ARG eval the expression after inserting it."
13661366

13671367
(defun cider-enable-on-existing-clojure-buffers ()
13681368
"Enable CIDER's minor mode on existing Clojure buffers.
1369-
See `cider-mode'."
1369+
See command `cider-mode'."
13701370
(interactive)
13711371
(add-hook 'clojure-mode-hook #'cider-mode)
13721372
(dolist (buffer (cider-util--clojure-buffers))
13731373
(with-current-buffer buffer
13741374
(cider-mode +1))))
13751375

13761376
(defun cider-disable-on-existing-clojure-buffers ()
1377-
"Disable `cider-mode' on existing Clojure buffers.
1378-
See `cider-mode'."
1377+
"Disable command `cider-mode' on existing Clojure buffers."
13791378
(interactive)
13801379
(dolist (buffer (cider-util--clojure-buffers))
13811380
(with-current-buffer buffer
13821381
(cider-mode -1))))
13831382

13841383
(defun cider-possibly-disable-on-existing-clojure-buffers ()
1385-
"If not connected, disable `cider-mode' on existing Clojure buffers."
1384+
"If not connected, disable command `cider-mode' on existing Clojure buffers."
13861385
(unless (cider-connected-p)
13871386
(cider-disable-on-existing-clojure-buffers)))
13881387

cider-mode.el

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -122,7 +122,7 @@ that of the namespace in the Clojure source buffer."
122122

123123
(defun cider-switch-to-repl-buffer (&optional set-namespace)
124124
"Select the REPL buffer, when possible in an existing window.
125-
The buffer chosen is based on the file open in the current buffer. If
125+
The buffer chosen is based on the file open in the current buffer. If
126126
multiple REPL buffers are associated with current connection the most
127127
recent is used.
128128

cider-stacktrace.el

Lines changed: 14 additions & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -246,14 +246,19 @@ The error types are represented as strings."
246246

247247
(defvar cider-stacktrace--all-negative-filters
248248
'(clj tooling dup java repl)
249-
"Filters that remove stackframes")
249+
"Filters that remove stackframes.")
250250

251251
(defvar cider-stacktrace--all-positive-filters
252252
'(project)
253-
"Filters that ensure stackframes are shown")
253+
"Filters that ensure stackframes are shown.")
254254

255255
(defun cider-stacktrace--face-for-filter (filter neg-filters pos-filters)
256-
"Return whether we should mark the filter is active or not."
256+
"Return whether we should mark the FILTER is active or not.
257+
258+
NEG-FILTERS and POS-FILTERS are lists of filters to check FILTER's type.
259+
260+
NEG-FILTERS dictate which frames should be hidden while POS-FILTERS can
261+
override this and ensure that those frames are shown."
257262
(cond ((member filter cider-stacktrace--all-negative-filters)
258263
(if (member filter neg-filters)
259264
'cider-stacktrace-filter-active-face
@@ -273,7 +278,7 @@ The error types are represented as strings."
273278
Find buttons with a 'filter property; if filter is a member of FILTERS, or
274279
if filter is nil ('show all') and the argument list is non-nil, fontify the
275280
button as disabled. Upon finding text with a 'hidden-count property, stop
276-
searching and update the hidden count text. POS-FILTERS is the list of
281+
searching and update the hidden count text. POS-FILTERS is the list of
277282
positive filters to always include."
278283
(with-current-buffer cider-error-buffer
279284
(save-excursion
@@ -606,7 +611,10 @@ prompt and whether to use a new window. Similar to `cider-find-var'."
606611
(fill-region beg (point)))))
607612

608613
(defun cider-stacktrace-render-filters (buffer special-filters filters)
609-
"Emit into BUFFER toggle buttons for each of the FILTERS."
614+
"Emit into BUFFER toggle buttons for each of the FILTERS.
615+
616+
SPECIAL-FILTERS are filters that show stack certain stack frames, hiding
617+
others."
610618
(with-current-buffer buffer
611619
(insert " Show: ")
612620
(dolist (filter special-filters)
@@ -627,7 +635,7 @@ prompt and whether to use a new window. Similar to `cider-find-var'."
627635
'help-echo (format "Toggle %s stack frames"
628636
(car filter)))
629637
(insert " "))
630-
638+
631639
(let ((hidden "(0 frames hidden)"))
632640
(put-text-property 0 (length hidden) 'hidden-count t hidden)
633641
(insert " " hidden "\n"))))

cider-util.el

Lines changed: 4 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -475,7 +475,10 @@ the buffer."
475475

476476
;; Taken from: https://github.com/emacs-mirror/emacs/blob/65c8c7cb96c14f9c6accd03cc8851b5a3459049e/lisp/help-mode.el#L551-L565
477477
(defun cider--make-back-forward-xrefs (&optional buffer)
478-
"Insert special references `back' and `forward', as in `help-make-xrefs'"
478+
"Insert special references `back' and `forward', as in `help-make-xrefs'.
479+
480+
Optional argument BUFFER is the buffer in which to insert references.
481+
Default is current buffer."
479482
(with-current-buffer (or buffer (current-buffer))
480483
(insert "\n")
481484
(when (or help-xref-stack help-xref-forward-stack)

0 commit comments

Comments
 (0)