[elpa] externals/pulsar ebdcf1de14 4/7: Add pulsar-region-face which defaults to pulsar-face

[ELPA Syncer]

branch: externals/pulsar
commit ebdcf1de1458a1b62d8d9935ffecad07f632dee1
Author: shipmints <shipmints@gmail.com>
Commit: shipmints <shipmints@gmail.com>

    Add pulsar-region-face which defaults to pulsar-face
    
    Marked as of version 1.2.0.
---
 pulsar.el | 58 ++++++++++++++++++++++++++++++++++++++--------------------
 1 file changed, 38 insertions(+), 20 deletions(-)

diff --git a/pulsar.el b/pulsar.el
index f0de194aaf..2eddb78abc 100644
--- a/pulsar.el
+++ b/pulsar.el
@@ -66,6 +66,10 @@
 ;; the `pulsar-highlight-line' command.  By default, this variable is
 ;; the same as `pulsar-face'.
 ;;
+;; The user option `pulsar-region-face' controls the presentation of
+;; the `pulsar-pulse-region' command.  By default, this variable is
+;; the same as `pulsar-face'.
+;;
 ;; Pulsar depends on the built-in `pulse.el' library.
 ;;
 ;; Why the name "pulsar"?  It sounds like "pulse" and is a recognisable
@@ -220,6 +224,20 @@ background attribute."
   :package-version '(pulsar . "0.3.0")
   :group 'pulsar)
 
+(defcustom pulsar-region-face 'pulsar-face
+  "Face used in `pulsar-pulse-region'."
+  :type '(choice (variable pulsar-face)
+                 (radio (face :tag "Generic pulse.el face" pulsar-generic)
+                        (face :tag "Red style" pulsar-red)
+                        (face :tag "Green style" pulsar-green)
+                        (face :tag "Yellow style" pulsar-yellow)
+                        (face :tag "Blue style" pulsar-blue)
+                        (face :tag "Magenta style" pulsar-magenta)
+                        (face :tag "Cyan style" pulsar-cyan)
+                        (face :tag "Other face (must have a background)")))
+  :package-version '(pulsar . "1.2.0")
+  :group 'pulsar)
+
 (defcustom pulsar-pulse t
   "When non-nil enable pulsing.
 Otherwise the highlight stays on the current line until another
@@ -391,28 +409,28 @@ pulse effect."
   (if (region-active-p)
       (let ((beg (region-beginning))
             (end (region-end)))
-      ;; FIXME 2024-08-29: Finding the lines and columns therein
-      ;; does not work because consecutive pulses cancel each
-      ;; other out, leaving only the last one active.
-      ;;
-      ;; (let* ((columns (rectangle--pos-cols beg end))
-      ;;        (begcol (car columns))
-      ;;        (endcol (cdr columns)))
-      ;;    (lines (list
-      ;;            (line-number-at-pos beg)
-      ;;            (line-number-at-pos end))))
-      ;; (dolist (line lines)
-      ;;   (save-excursion
-      ;;     (goto-char (point-min))
-      ;;     (forward-line (1- line))
-      ;;     (setq beg (progn (move-to-column begcol) (point))
-      ;;           end (progn (move-to-column endcol) (point))))
-      ;;   (pulsar--pulse nil nil beg end)))
-        (pulsar--pulse nil nil beg end))
+        ;; FIXME 2024-08-29: Finding the lines and columns therein
+        ;; does not work because consecutive pulses cancel each
+        ;; other out, leaving only the last one active.
+        ;;
+        ;; (let* ((columns (rectangle--pos-cols beg end))
+        ;;        (begcol (car columns))
+        ;;        (endcol (cdr columns)))
+        ;;    (lines (list
+        ;;            (line-number-at-pos beg)
+        ;;            (line-number-at-pos end))))
+        ;; (dolist (line lines)
+        ;;   (save-excursion
+        ;;     (goto-char (point-min))
+        ;;     (forward-line (1- line))
+        ;;     (setq beg (progn (move-to-column begcol) (point))
+        ;;           end (progn (move-to-column endcol) (point))))
+        ;;   (pulsar--pulse nil nil beg end)))
+        (pulsar--pulse nil pulsar-region-face beg end))
     (when (mark)
       (let ((beg (mark))
             (end (point)))
-        (pulsar--pulse nil nil beg end)))))
+        (pulsar--pulse nil pulsar-region-face beg end)))))
 
 ;;;###autoload
 (defun pulsar-highlight-line ()
@@ -551,7 +569,7 @@ Also check `pulsar-global-mode'."
       (pulsar-pulse-line))
      ((or (memq this-command pulsar-pulse-region-functions)
           (memq real-this-command pulsar-pulse-region-functions))
-      (pulsar--pulse nil nil (mark) (point))))))
+      (pulsar-pulse-region)))))
 
 (make-obsolete 'pulsar-setup nil "0.3.0")