[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master b51ac73 36/50: use separate face for "line" style highligh
From: |
Michael Heerdegen |
Subject: |
[elpa] master b51ac73 36/50: use separate face for "line" style highlighting |
Date: |
Mon, 09 Nov 2015 03:35:52 +0000 |
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."
- [elpa] master 8256496 25/50: use a more modest gray for on-screen-narrow-line face, (continued)
- [elpa] master 8256496 25/50: use a more modest gray for on-screen-narrow-line face, Michael Heerdegen, 2015/11/08
- [elpa] master b1c1f7e 32/50: new option: on-screen-drawing-threshold, Michael Heerdegen, 2015/11/08
- [elpa] master 259440a 26/50: add Package-Requires header, Michael Heerdegen, 2015/11/08
- [elpa] master 098325c 29/50: set default value of on-screen-treat-cut-lines to t, Michael Heerdegen, 2015/11/08
- [elpa] master 23cf5db 30/50: use lexical binding, Michael Heerdegen, 2015/11/08
- [elpa] master 787fe34 31/50: bump version to 1.1, Michael Heerdegen, 2015/11/08
- [elpa] master bef0f6d 37/50: silence compiler when hexrgb.el is not installed, Michael Heerdegen, 2015/11/08
- [elpa] master ef81e20 35/50: change default of on-screen-treat-cut-lines back to nil, Michael Heerdegen, 2015/11/08
- [elpa] master 7012d04 41/50: bump version to 1.3, Michael Heerdegen, 2015/11/08
- [elpa] master c03f4b0 33/50: new user variable: on-screen-inhibit-highlighting, Michael Heerdegen, 2015/11/08
- [elpa] master b51ac73 36/50: use separate face for "line" style highlighting,
Michael Heerdegen <=
- [elpa] master 4014e32 38/50: make comments respect conventions, Michael Heerdegen, 2015/11/08
- [elpa] master 49d5546 42/50: fix whitespace, no code change, Michael Heerdegen, 2015/11/08
- [elpa] master 7bb7f0d 46/50: add .gitignore, Michael Heerdegen, 2015/11/08
- [elpa] master 009d1a4 44/50: wrap (require 'cl-lib) in eval-when-compile, Michael Heerdegen, 2015/11/08
- [elpa] master 387cb55 40/50: add on-screen-unload-function, Michael Heerdegen, 2015/11/08
- [elpa] master 1570a0d 49/50: add "on-screen" to externals-list, Michael Heerdegen, 2015/11/08
- [elpa] master d08c167 48/50: on-screen: merge from remote repo, Michael Heerdegen, 2015/11/08
- [elpa] master 8e3c53d 34/50: bump version to 1.2, Michael Heerdegen, 2015/11/08
- [elpa] master 13bf083 39/50: handle on-screen-treat-cut-lines -> t nicely, Michael Heerdegen, 2015/11/08
- [elpa] master e023bf8 45/50: bump version, Michael Heerdegen, 2015/11/08