emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/cider 4081ea73b6 1/2: Fix broken indentation


From: ELPA Syncer
Subject: [nongnu] elpa/cider 4081ea73b6 1/2: Fix broken indentation
Date: Sat, 18 Feb 2023 04:58:47 -0500 (EST)

branch: elpa/cider
commit 4081ea73b628dbea2f08ac290efe499af8f64db1
Author: Bozhidar Batsov <bozhidar@batsov.dev>
Commit: Bozhidar Batsov <bozhidar@batsov.dev>

    Fix broken indentation
---
 cider.el | 72 ++++++++++++++++++++++++++++++++--------------------------------
 1 file changed, 36 insertions(+), 36 deletions(-)

diff --git a/cider.el b/cider.el
index 3f586eba88..e3dcb8b8f6 100644
--- a/cider.el
+++ b/cider.el
@@ -1511,42 +1511,42 @@ PARAMS is a plist with the following keys 
(non-exhaustive list)
    ((plist-get params :jack-in-cmd) params)
    (cider-jack-in-cmd (plist-put params :jack-in-cmd cider-jack-in-cmd))
    (t (let* ((params (cider--update-do-prompt params))
-           (project-dir (plist-get params :project-dir))
-           (params-project-type (plist-get params :project-type))
-           (project-type (or params-project-type
-                             (cider-project-type project-dir)))
-           (command (cider-jack-in-command project-type))
-           (command-resolved (cider-jack-in-resolve-command project-type))
-           (command-global-opts (cider-jack-in-global-options project-type))
-           (command-params (cider-jack-in-params project-type)))
-      (if command-resolved
-          (with-current-buffer (or (plist-get params :--context-buffer)
-                                   (current-buffer))
-            (let* ((command-params (if (plist-get params :do-prompt)
-                                       (read-string "nREPL server command: "
-                                                    command-params
-                                                    
'cider--jack-in-nrepl-params-history)
-                                     command-params))
-                   (cmd-params (if cider-inject-dependencies-at-jack-in
-                                   (cider-inject-jack-in-dependencies 
command-global-opts command-params project-type)
-                                 command-params)))
-              (if (or project-dir cider-allow-jack-in-without-project)
-                  (when (or project-dir
-                            (eq cider-allow-jack-in-without-project t)
-                            (and (null project-dir)
-                                 (eq cider-allow-jack-in-without-project 'warn)
-                                 (or params-project-type
-                                     (y-or-n-p "Are you sure you want to run 
`cider-jack-in' without a Clojure project? "))))
-                    (let ((cmd (format "%s %s" command-resolved (if (or 
(string-equal command "powershell")
-                                                                        
(string-equal command "pwsh"))
-                                                                    
(cider--powershell-encode-command cmd-params)
-                                                                  
cmd-params))))
-                      (plist-put params :jack-in-cmd (if (or 
cider-edit-jack-in-command
-                                                             (plist-get params 
:edit-jack-in-command))
-                                                         (read-string "jack-in 
command: " cmd 'cider--jack-in-cmd-history)
-                                                       cmd))))
-                (user-error "`cider-jack-in' is not allowed without a Clojure 
project"))))
-        (user-error "The %s executable isn't on your `exec-path'" command))))))
+             (project-dir (plist-get params :project-dir))
+             (params-project-type (plist-get params :project-type))
+             (project-type (or params-project-type
+                               (cider-project-type project-dir)))
+             (command (cider-jack-in-command project-type))
+             (command-resolved (cider-jack-in-resolve-command project-type))
+             (command-global-opts (cider-jack-in-global-options project-type))
+             (command-params (cider-jack-in-params project-type)))
+        (if command-resolved
+            (with-current-buffer (or (plist-get params :--context-buffer)
+                                     (current-buffer))
+              (let* ((command-params (if (plist-get params :do-prompt)
+                                         (read-string "nREPL server command: "
+                                                      command-params
+                                                      
'cider--jack-in-nrepl-params-history)
+                                       command-params))
+                     (cmd-params (if cider-inject-dependencies-at-jack-in
+                                     (cider-inject-jack-in-dependencies 
command-global-opts command-params project-type)
+                                   command-params)))
+                (if (or project-dir cider-allow-jack-in-without-project)
+                    (when (or project-dir
+                              (eq cider-allow-jack-in-without-project t)
+                              (and (null project-dir)
+                                   (eq cider-allow-jack-in-without-project 
'warn)
+                                   (or params-project-type
+                                       (y-or-n-p "Are you sure you want to run 
`cider-jack-in' without a Clojure project? "))))
+                      (let ((cmd (format "%s %s" command-resolved (if (or 
(string-equal command "powershell")
+                                                                          
(string-equal command "pwsh"))
+                                                                      
(cider--powershell-encode-command cmd-params)
+                                                                    
cmd-params))))
+                        (plist-put params :jack-in-cmd (if (or 
cider-edit-jack-in-command
+                                                               (plist-get 
params :edit-jack-in-command))
+                                                           (read-string 
"jack-in command: " cmd 'cider--jack-in-cmd-history)
+                                                         cmd))))
+                  (user-error "`cider-jack-in' is not allowed without a 
Clojure project"))))
+          (user-error "The %s executable isn't on your `exec-path'" 
command))))))
 
 (defun cider--update-host-port (params)
   "Update :host and :port; or :socket-file in PARAMS."



reply via email to

[Prev in Thread] Current Thread [Next in Thread]