Add edraw-opaque-p and edraw-transparent-p

misohena · Feb 16, 2025 · c917403 · c917403
1 parent 7d80ece
commit c917403
Showing 1 changed file with 10 additions and 0 deletions.
diff --git a/edraw-color.el b/edraw-color.el
@@ -363,6 +363,16 @@ or greater (returning a list of 3 elements of only RGB)."
 (defun edraw-color-equal-p (a b)
   (equal a b))
 
+(cl-defmethod edraw-opaque-p ((color edraw-color))
+  "Return t if COLOR is opaque.
+A color is considered opaque if its alpha component is 1 or greater."
+  (>= (oref color a) 1.0))
+
+(cl-defmethod edraw-transparent-p ((color edraw-color))
+  "Return t if COLOR is transparent.
+A color is considered transparent if its alpha component is 0 or less."
+  (<= (oref color a) 0.0))
+
 ;;;;; Retrieving attributes
 
 (cl-defmethod edraw-hue ((color edraw-color))