style(render): space the account name from Pearl in the lighter

3 files changed, 5 insertions, 5 deletions

diff --git a/pearl.el b/pearl.el
index 205374b..522af9a 100644
--- a/pearl.el
+++ b/pearl.el
@@ -683,11 +683,11 @@ Refreshed by the redecorate pass (`pearl--refresh-modified-count'); read by
 
 (defun pearl--mode-line-lighter ()
   "Return the `pearl-mode' mode-line lighter, naming the active account.
-\" Pearl[work]\" when accounts are configured and one is active, plain
+\" Pearl [work]\" when accounts are configured and one is active, plain
 \" Pearl\" in legacy single-account mode, with \" N <glyph> changed\" appended
 when the buffer holds unsaved tickets and `pearl-show-modified-indicator' is on."
   (let ((base (if (and pearl-accounts pearl-active-account)
-                  (format " Pearl[%s]" pearl-active-account)
+                  (format " Pearl [%s]" pearl-active-account)
                 " Pearl")))
     (if (and pearl-show-modified-indicator (> pearl--modified-count 0))
         (concat base (format pearl-modified-mode-line-format
diff --git a/tests/test-pearl-accounts.el b/tests/test-pearl-accounts.el
index 2a4cb69..7994905 100644
--- a/tests/test-pearl-accounts.el
+++ b/tests/test-pearl-accounts.el
@@ -393,7 +393,7 @@ fetching the active account's issues into it would cross workspaces."
   "The lighter names the active account when accounts are configured."
   (let ((pearl-accounts '(("work" :api-key-source (:literal "kw") :org-file "/tmp/w.org")))
         (pearl-active-account "work"))
-    (should (string-equal " Pearl[work]" (pearl--mode-line-lighter)))))
+    (should (string-equal " Pearl [work]" (pearl--mode-line-lighter)))))
 
 (ert-deftest test-pearl-mode-line-lighter-plain-in-legacy ()
   "Without accounts the lighter is the plain \" Pearl\"."
diff --git a/tests/test-pearl-modified.el b/tests/test-pearl-modified.el
index 8529b07..e951260 100644
--- a/tests/test-pearl-modified.el
+++ b/tests/test-pearl-modified.el
@@ -68,7 +68,7 @@
         (pearl-ticket-glyph "🎫")
         (pearl--modified-count 3))
     (let ((s (pearl--mode-line-lighter)))
-      (should (string-match-p "Pearl\\[work\\]" s))
+      (should (string-match-p "Pearl \\[work\\]" s))
       (should (string-match-p "3" s))
       (should (string-match-p "🎫" s))
       (should (string-match-p "changed" s)))))
@@ -89,7 +89,7 @@
         (pearl-show-modified-indicator t)
         (pearl--modified-count 0))
     (let ((s (pearl--mode-line-lighter)))
-      (should (string-match-p "Pearl\\[work\\]" s))
+      (should (string-match-p "Pearl \\[work\\]" s))
       (should-not (string-match-p "changed" s)))))
 
 (ert-deftest test-pearl-mode-line-indicator-off-suppresses-count ()