diff-hl-show-hunk-inline: Enable customization of scroll indicators

Author: emreyolcu

diff-hl-show-hunk-inline.el

@@ -74,6 +74,13 @@ the hunk consist only on added lines, then
 `diff-hl-show-hunk--no-lines-removed-message' it is shown."
   :type 'boolean)
 
+(defcustom diff-hl-show-hunk-inline-scroll-indicators '(?⬆ . ?⬇)
+  "Characters used to indicate hidden inline popup content.
+The car is used for hidden content above the popup; the cdr is used for
+hidden content below it."
+  :type '(cons (character :tag "Above")
+               (character :tag "Below")))
+
 (defun diff-hl-show-hunk-inline--splice (list offset length)
   "Compute a sublist of LIST starting at OFFSET, of LENGTH."
   (butlast
@@ -108,7 +115,10 @@ Compute it from LINES starting at INDEX with a WINDOW-SIZE."
 (defun diff-hl-show-hunk-inline--compute-header (width &optional header)
   "Compute the header of the popup.
 Compute it from some WIDTH, and some optional HEADER text."
-  (let* ((scroll-indicator (if (eq diff-hl-show-hunk-inline--current-index 0) "   " " ⬆ "))
+  (let* ((scroll-indicator
+          (if (eq diff-hl-show-hunk-inline--current-index 0)
+              "   "
+            (string ?\s (car diff-hl-show-hunk-inline-scroll-indicators) ?\s)))
          (header (or header ""))
          (new-width (- width (length header) (length scroll-indicator)))
          (header (if (< new-width 0) "" header))
@@ -125,7 +135,7 @@ Compute it from some WIDTH, and some optional FOOTER text."
                                    (- (length diff-hl-show-hunk-inline--current-lines)
                                       diff-hl-show-hunk-inline--height))
                                "   "
-                             " ⬇ "))
+                             (string ?\s (cdr diff-hl-show-hunk-inline-scroll-indicators) ?\s)))
          (footer (or footer ""))
          (new-width (- width (length footer) (length scroll-indicator)))
          (footer (if (< new-width 0) "" footer))