Appease linter gods

Author: alexander-yakushev

cider-client.el

@@ -249,15 +249,15 @@ Assuming this is the Clojure map you want to use as `cljfmt' options:
 
 you need to encode it as the following plist:
 
-  '((\"indents\" ((\"org.me/foo\" ((\"inner\" 0))))) (\"alias-map\" ((\"me\" \"org.me\"))))"
+  \\='((\"indents\" ((\"org.me/foo\" ((\"inner\" 0))))) (\"alias-map\" ((\"me\" \"org.me\"))))"
   :type 'list
   :group 'cider
   :package-version '(cider . "1.1.0"))
 
 (defun cider--nrepl-format-code-request-map (&optional format-options)
   "Map to merge into requests that require code formatting.
 If non-nil, FORMAT-OPTIONS specifies the options cljfmt will use to format
-the code.  See `cider-format-code-options` for details."
+the code.  See `cider-format-code-options' for details."
   (when format-options
     (let* ((indents-dict (when (assoc "indents" format-options)
                            (thread-last
@@ -320,7 +320,7 @@ nil."
   "A map of options that will be passed to `cider-print-fn'.
 Here's an example for `pprint':
 
-  '((\"length\" 50) (\"right-margin\" 70))"
+  \\='((\"length\" 50) (\"right-margin\" 70))"
   :type 'list
   :group 'cider
   :package-version '(cider . "0.21.0"))

cider-connection.el

@@ -264,7 +264,7 @@ We look only at the major and minor components.  When the major
 version is 0, only check that the minor versions match.  When the major version
 is > 0, first check that the major version matches, then that the minor
 version is >= the required minor version.
-VER the 'installed' version,
+VER the `installed' version,
 REQUIRED-VER the version required by cider."
   (let ((ver* (cider--strip-version-patch ver))
         (required-ver* (cider--strip-version-patch required-ver)))
@@ -785,7 +785,7 @@ Session name can be customized with `cider-session-name-template'."
 ;;; REPL Buffer Init
 
 (defvar-local cider-cljs-repl-type nil
-  "The type of the ClojureScript runtime ('browser, 'node, 'figwheel, etc.).")
+  "The type of the ClojureScript runtime (\\='browser, \\='node, \\='figwheel, etc.).")
 
 (defvar-local cider-repl-type nil
   "The type of this REPL buffer, usually either clj or cljs.")

cider-selector.el

@@ -104,6 +104,7 @@ selects a buffer.
 BODY is a series of forms which are evaluated when the selector
 is chosen.  The returned buffer is selected with
 `switch-to-buffer'."
+  (declare (indent 1))
   (let ((method `(lambda ()
                    (let ((buffer (progn ,@body)))
                      (cond ((not (and buffer (get-buffer buffer)))
@@ -135,41 +136,33 @@ is chosen.  The returned buffer is selected with
 (cl-pushnew (list ?4 "Select in other window" (lambda () (cider-selector t)))
             cider-selector-methods :key #'car)
 
-(def-cider-selector-method ?c
-  "Most recently visited clojure-mode buffer."
+(def-cider-selector-method ?c "Most recently visited clojure-mode buffer."
   (cider-selector--recently-visited-buffer '(clojure-mode clojure-ts-mode)))
 
-(def-cider-selector-method ?e
-  "Most recently visited emacs-lisp-mode buffer."
+(def-cider-selector-method ?e "Most recently visited emacs-lisp-mode buffer."
   (cider-selector--recently-visited-buffer 'emacs-lisp-mode))
 
 (def-cider-selector-method ?q "Abort."
   (top-level))
 
-(def-cider-selector-method ?r
-  "Current REPL buffer or as a fallback, the most recently
+(def-cider-selector-method ?r "Current REPL buffer or as a fallback, the most recently
 visited cider-repl-mode buffer."
   (or (cider-current-repl)
       (cider-selector--recently-visited-buffer 'cider-repl-mode)))
 
-(def-cider-selector-method ?m
-  "Current connection's *nrepl-messages* buffer."
+(def-cider-selector-method ?m "Current connection's *nrepl-messages* buffer."
   (nrepl-messages-buffer (cider-current-repl)))
 
-(def-cider-selector-method ?x
-  "*cider-error* buffer."
+(def-cider-selector-method ?x "*cider-error* buffer."
   cider-error-buffer)
 
-(def-cider-selector-method ?p
-  "*cider-profile* buffer."
+(def-cider-selector-method ?p "*cider-profile* buffer."
   cider-profile-buffer)
 
-(def-cider-selector-method ?d
-  "*cider-doc* buffer."
+(def-cider-selector-method ?d "*cider-doc* buffer."
   cider-doc-buffer)
 
-(def-cider-selector-method ?s
-  "*cider-scratch* buffer."
+(def-cider-selector-method ?s "*cider-scratch* buffer."
   (cider-scratch-find-or-create-buffer))
 
 (provide 'cider-selector)

nrepl-client.el

@@ -833,13 +833,13 @@ to the REPL."
                                            truncated-handler)
   "Make a response handler for connection BUFFER.
 A handler is a function that takes one argument - response received from
-the server process.  The response is an alist that contains at least 'id'
-and 'session' keys.  Other standard response keys are 'value', 'out', 'err',
-and 'status'.
+the server process.  The response is an alist that contains at least `id'
+and `session' keys.  Other standard response keys are `value', `out', `err',
+and `status'.
 
 The presence of a particular key determines the type of the response.  For
-example, if 'value' key is present, the response is of type 'value', if
-'out' key is present the response is 'stdout' etc.
+example, if `value' key is present, the response is of type `value', if
+`out' key is present the response is `stdout' etc.
 
 Depending on the type, the handler dispatches the appropriate value to one
 of the supplied handlers: VALUE-HANDLER, STDOUT-HANDLER, STDERR-HANDLER,
@@ -1219,7 +1219,7 @@ up."
 (defun nrepl-server-sentinel (process event)
   "Handle nREPL server PROCESS EVENT.
 If the nREPL PROCESS failed to initiate and encountered a fatal EVENT
-signal, raise an 'error'.  Additionally, if the EVENT signal is SIGHUP,
+signal, raise an `error'.  Additionally, if the EVENT signal is SIGHUP,
 close any existing client connections."
   ;; only interested on fatal signals.
   (when (not (process-live-p process))