[elpa] externals/pulsar 6258c511ee 1/2: Abstract pulsar-mode lighter

[ELPA Syncer]

branch: externals/pulsar
commit 6258c511ee4c27cc1f794224d16f95f396765ec8
Author: Protesilaos Stavrou <info@protesilaos.com>
Commit: Protesilaos Stavrou <info@protesilaos.com>

    Abstract pulsar-mode lighter
    
    Thanks to Rudolf Adamkovič for the feedback in issue:
    <https://gitlab.com/protesilaos/pulsar/-/issues/11>.
---
 pulsar.el | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/pulsar.el b/pulsar.el
index 0d09e1fe2c..66c745b113 100644
--- a/pulsar.el
+++ b/pulsar.el
@@ -295,11 +295,14 @@ default)."
 
 ;;;; Mode setup
 
+(defvar pulsar-lighter " -P-"
+  "Mode line lighter used by `pulsar-mode'.")
+
 (define-minor-mode pulsar-mode
   "Set up pulsar for each function in `pulsar-pulse-functions'.
 This is a buffer-local mode.  Also check `pulsar-global-mode'."
   :global nil
-  :lighter " -P-"
+  :lighter pulsar-lighter
   (if pulsar-mode
       (add-hook 'post-command-hook #'pulsar--post-command-pulse nil 'local)
     (remove-hook 'post-command-hook #'pulsar--post-command-pulse 'local)))