[elpa] master b51ac73 36/50: use separate face for "line" style highlighting

[Michael Heerdegen]

branch: master
commit b51ac737fac5a844415308f6b4a586fbccd29c56
Author: Michael Heerdegen <address@hidden>
Commit: Michael Heerdegen <address@hidden>

    use separate face for "line" style highlighting
---
 on-screen.el |   20 ++++++++++++++------
 1 files changed, 14 insertions(+), 6 deletions(-)

diff --git a/on-screen.el b/on-screen.el
index 1c49fed..b0b7779 100644
--- a/on-screen.el
+++ b/on-screen.el
@@ -175,6 +175,12 @@ Ignored if highlighting doesn't use the fringe."
   "Face used for displaying a transparent overlay."
   :group 'on-screen)
 
+(defface on-screen-hl-line
+  '((((background light)) :background "#ffa0a0")
+    (((background dark))  :background "#300000"))
+  "Face used for displaying the \"line\" style overlay."
+  :group 'on-screen)
+
 (defcustom on-screen-highlighting-to-background-delta .05
   "How much shadow and line highlighting should differ from background.
 This should be a positive floating point number less than 1.
@@ -401,12 +407,14 @@ remember nil for the timer."
 
 (defun on-screen-get-shadow-face (win)
   "Return face for the transparent overlay in WIN."
-  (or (and on-screen-highlighting-to-background-delta
-           (let ((bg-col (apply #'on-screen-derive-from-frame-bg win
-                                (mapcar (lambda (x) (* x 
on-screen-highlighting-to-background-delta))
-                                        (list 1 -1 1)))))
-             (and bg-col `((t (:background ,bg-col))))))
-      'on-screen-shadow))
+  (if (eq on-screen-highlight-method 'shadow)
+      (or (and on-screen-highlighting-to-background-delta
+               (let ((bg-col (apply #'on-screen-derive-from-frame-bg win
+                                    (mapcar (lambda (x) (* x 
on-screen-highlighting-to-background-delta))
+                                            (list 1 -1 1)))))
+                 (and bg-col `((t (:background ,bg-col))))))
+          'on-screen-shadow)
+    'on-screen-hl-line))
 
 (defun on-screen-make-fringe-overlays (pos topp &optional inversep)
   "Create and return list of fringe overlays."