Improve whitespace around mode line spinner

Wilfred · Oct 27, 2024 · bb4b129 · bb4b129
1 parent 8d92139
commit bb4b129
Showing 1 changed file with 7 additions and 4 deletions.
diff --git a/deadgrep.el b/deadgrep.el
@@ -1626,10 +1626,13 @@ deadgrep is ready but not yet searching."
                (key-description restart-key))))))
 
 (defun deadgrep--mode-line ()
-  (let ((s (if deadgrep--result-count
-               (format "Deadgrep:%s" deadgrep--result-count)
-             "Deadgrep")))
-    (concat s (spinner-print deadgrep--spinner))))
+  (let* ((s (if deadgrep--result-count
+                (format "Deadgrep:%s" deadgrep--result-count)
+              "Deadgrep"))
+         (spinner-str (spinner-print deadgrep--spinner)))
+    (if spinner-str
+        (concat s " " spinner-str)
+      s)))
 
 (defun deadgrep--create-imenu-index ()
   "Create `imenu' index for matched files."