Fix code formatting of dape--mode-line-format

svaante · Oct 6, 2024 · cd20e1e · cd20e1e
1 parent 541ca79
commit cd20e1e
Showing 1 changed file with 10 additions and 10 deletions.
diff --git a/dape.el b/dape.el
@@ -5319,14 +5319,14 @@ See `eldoc-documentation-functions', for more information."
   (let ((conn (or (dape--live-connection 'last t)
                   dape--connection)))
     (setq dape--mode-line-format
-          `((:propertize "dape"
-                         face font-lock-constant-face
-                         mouse-face mode-line-highlight
-                         help-echo "Dape: Debug Adapter Protocol for Emacs\n\
+          `(( :propertize "dape"
+              face font-lock-constant-face
+              mouse-face mode-line-highlight
+              help-echo "Dape: Debug Adapter Protocol for Emacs\n\
 mouse-1: Display minor mode menu"
-                         keymap ,(let ((map (make-sparse-keymap)))
-                                   (define-key map [mode-line down-mouse-1] dape-menu)
-                                   map))
+              keymap ,(let ((map (make-sparse-keymap)))
+                        (define-key map [mode-line down-mouse-1] dape-menu)
+                        map))
             ":"
             (:propertize ,(format "%s" (or (and conn (dape--state conn))
                                            'unknown))
@@ -5337,9 +5337,9 @@ mouse-1: Display minor mode menu"
                           (nof-conns
                            (length (cl-remove-if-not 'dape--threads conns)))
                           ((> nof-conns 1)))
-                `((:propertize ,(format "(%s)" nof-conns)
-                               face shadow
-                               help-echo "Active child connections")))))))
+                `(( :propertize ,(format "(%s)" nof-conns)
+                    face shadow
+                    help-echo "Active child connections")))))))
 
 (add-to-list 'mode-line-misc-info
              `(dape-active-mode ("[" dape--mode-line-format "]")))