Merge commit 'e264139e7fafbd1bbb68f9cef6d1c50b8e6cf1f3' from swiper

[gnu-emacs-elpa] / packages / swiper / colir.el

diff --git a/packages/swiper/colir.el b/packages/swiper/colir.el
index 7eacbbd12b5f8a913eb486ff414a7abbd60b7af3..e11ef7dd17d13e9811fdde41997c197076a44182 100644 (file)
--- 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)