X-Git-Url: https://code.delx.au/gnu-emacs-elpa/blobdiff_plain/a0561bff0dfcf267ee1796924f5aad904c377ee9..1f3fa31203c9830e3b621260ffc95c8ecabaaedf:/packages/swiper/colir.el

diff --git a/packages/swiper/colir.el b/packages/swiper/colir.el
index 7eacbbd12..e11ef7dd1 100644
--- a/packages/swiper/colir.el
+++ b/packages/swiper/colir.el
@@ -63,7 +63,10 @@
 C1 and C2 are triples of floats in [0.0 1.0] range."
   (apply #'color-rgb-to-hex
          (cl-mapcar
-          colir-compose-method
+          (if (eq (frame-parameter nil 'background-mode) 'dark)
+              ;; this method works nicely for dark themes
+              'colir-compose-soft-light
+            colir-compose-method)
           c1 c2)))
 
 (defun colir-blend-face-background (start end face &optional object)