diff options
| -rw-r--r-- | pearl.el | 4 | ||||
| -rw-r--r-- | tests/test-pearl-accounts.el | 2 | ||||
| -rw-r--r-- | tests/test-pearl-modified.el | 4 |
3 files changed, 5 insertions, 5 deletions
@@ -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 () |