diff options
author | Tianxiang Xiong <tianxiang.xiong@gmail.com> | 2017-07-21 21:52:50 -0700 |
---|---|---|
committer | Bozhidar Batsov <bozhidar.batsov@gmail.com> | 2017-07-23 08:28:21 +0300 |
commit | 7417bb6a9f4ad25f87da94551ff0ff6f3542b892 (patch) | |
tree | 4ae6405448eccdbf0cd895419a963a23100bf7e0 /cider-stacktrace.el | |
parent | 55fecc730bf0ba621cf6cfd27a1a66e62884f6c2 (diff) |
Fix `checkdoc` errors
Diffstat (limited to 'cider-stacktrace.el')
-rw-r--r-- | cider-stacktrace.el | 20 |
1 files changed, 14 insertions, 6 deletions
diff --git a/cider-stacktrace.el b/cider-stacktrace.el index db74b8bd..e82d4869 100644 --- a/cider-stacktrace.el +++ b/cider-stacktrace.el @@ -246,14 +246,19 @@ The error types are represented as strings." (defvar cider-stacktrace--all-negative-filters '(clj tooling dup java repl) - "Filters that remove stackframes") + "Filters that remove stackframes.") (defvar cider-stacktrace--all-positive-filters '(project) - "Filters that ensure stackframes are shown") + "Filters that ensure stackframes are shown.") (defun cider-stacktrace--face-for-filter (filter neg-filters pos-filters) - "Return whether we should mark the filter is active or not." + "Return whether we should mark the FILTER is active or not. + +NEG-FILTERS and POS-FILTERS are lists of filters to check FILTER's type. + +NEG-FILTERS dictate which frames should be hidden while POS-FILTERS can +override this and ensure that those frames are shown." (cond ((member filter cider-stacktrace--all-negative-filters) (if (member filter neg-filters) 'cider-stacktrace-filter-active-face @@ -273,7 +278,7 @@ The error types are represented as strings." Find buttons with a 'filter property; if filter is a member of FILTERS, or if filter is nil ('show all') and the argument list is non-nil, fontify the button as disabled. Upon finding text with a 'hidden-count property, stop -searching and update the hidden count text. POS-FILTERS is the list of +searching and update the hidden count text. POS-FILTERS is the list of positive filters to always include." (with-current-buffer cider-error-buffer (save-excursion @@ -606,7 +611,10 @@ prompt and whether to use a new window. Similar to `cider-find-var'." (fill-region beg (point))))) (defun cider-stacktrace-render-filters (buffer special-filters filters) - "Emit into BUFFER toggle buttons for each of the FILTERS." + "Emit into BUFFER toggle buttons for each of the FILTERS. + +SPECIAL-FILTERS are filters that show stack certain stack frames, hiding +others." (with-current-buffer buffer (insert " Show: ") (dolist (filter special-filters) @@ -627,7 +635,7 @@ prompt and whether to use a new window. Similar to `cider-find-var'." 'help-echo (format "Toggle %s stack frames" (car filter))) (insert " ")) - + (let ((hidden "(0 frames hidden)")) (put-text-property 0 (length hidden) 'hidden-count t hidden) (insert " " hidden "\n")))) |