[nongnu] elpa/org-superstar 8fd1d05c6c 013/162: Added wrapper around org-list-in-valid-context-p for refinement purposes

[Stefan Kangas]

branch: elpa/org-superstar
commit 8fd1d05c6cb33ff7424ec98c4e40607aee0a337b
Author: D. Williams <d.williams@posteo.net>
Commit: D. Williams <d.williams@posteo.net>

    Added wrapper around org-list-in-valid-context-p for refinement purposes
---
 org-superstar.el | 18 +++++++++++-------
 1 file changed, 11 insertions(+), 7 deletions(-)

diff --git a/org-superstar.el b/org-superstar.el
index 998f121f47..37f73d89ee 100644
--- a/org-superstar.el
+++ b/org-superstar.el
@@ -60,7 +60,7 @@
     "◉"
     "○"
     "✸"
-    "✿")
+    "✿") ;; "◉" "🞛" "○" "▷"
     "List of bullets used in Org headings.
 It can contain any number of bullets, the Nth entry usually
 corresponding to the bullet used for level N.  The way this list
@@ -283,6 +283,10 @@ replaced by their corresponding entry in 
‘org-sstar-item-bullet-alist’."
 
 ;;; Fontification
 
+(defun org-sstar-in-valid-context-p ()
+  "Return t if the current match is in a meaningful context."
+  (org-list-in-valid-context-p))
+
 (defun org-sstar--prettify-ibullets ()
   "Prettify plain list bullets.
 
@@ -307,9 +311,9 @@ prettifying bullets in (for example) source blocks."
 (defun org-sstar--prettify-main-hbullet ()
   "Prettify the trailing star in a headline.
 
-This function uses ‘org-list-in-valid-context-p’ to avoid
+This function uses ‘org-sstar-in-valid-context-p’ to avoid
 prettifying bullets in (for example) source blocks."
-  (when (org-list-in-valid-context-p)
+  (when (org-sstar-in-valid-context-p)
     (let ((level (- (match-end 0) (match-beginning 0) 1)))
       (compose-region (match-beginning 1) (match-end 1)
                       (org-sstar--hbullet level))))
@@ -322,9 +326,9 @@ inline task, see ‘org-inlinetask-min-level’.  Otherwise, 
this
 block is formatted like the leading asterisks, see
 ‘org-sstar--prettify-leading-hbullets’.
 
-This function uses ‘org-list-in-valid-context-p’ to avoid
+This function uses ‘org-sstar-in-valid-context-p’ to avoid
 prettifying bullets in (for example) source blocks."
-  (when (org-list-in-valid-context-p)
+  (when (org-sstar-in-valid-context-p)
     (let* ((level (- (match-end 0) (match-beginning 0) 1))
            (is-inline-task
             (and (boundp 'org-inlinetask-min-level)
@@ -349,9 +353,9 @@ Unless ‘org-hide-leading-stars’ is non-nil, each leading 
star is
 visually replaced by ‘org-sstar-leading-bullet-char’ and inherits
 face properties from ‘org-sstar-leading’.
 
-This function uses ‘org-list-in-valid-context-p’ to avoid
+This function uses ‘org-sstar-in-valid-context-p’ to avoid
 prettifying bullets in (for example) source blocks."
-  (when (org-list-in-valid-context-p)
+  (when (org-sstar-in-valid-context-p)
     (unless org-hide-leading-stars
       (let ((star-beg (match-beginning 3))
             (lead-end (match-end 3)))