From 8023cd3e677541411695fad109648de8e961a1fe Mon Sep 17 00:00:00 2001
From: zk_phi <zerokay_phi@yahoo.co.jp>
Date: Fri, 13 Jun 2014 01:33:35 +0900
Subject: [PATCH] make an individual face for ORPs
---
spray.el | 9 +++++++--
1 file changed, 7 insertions(+), 2 deletions(-)
diff --git a/spray.el b/spray.el
index 402bf0f..10b4441 100644
--- a/spray.el
+++ b/spray.el
@@ -1,7 +1,12 @@
;; custom
(defvar spray-wpm 400 "words/min")
(defvar spray-text-scale 5)
-(defvar spray-orp-face 'error)
+
+(make-face 'spray-orp-face)
+(set-face-attribute 'spray-orp-face nil
+ :foreground "red"
+ :underline (face-foreground 'default)
+ :overline (face-foreground 'default))
;; internal variables for spraying
(defvar spray--padding-overlay nil)
@@ -26,7 +31,7 @@
spray--saved-cursor-type cursor-type)
(setq cursor-type nil)
(text-scale-set spray-text-scale)
- (overlay-put spray--orp-overlay 'face spray-orp-face)
+ (overlay-put spray--orp-overlay 'face 'spray-orp-face)
(add-hook 'pre-command-hook 'turn-off-spray-mode)
;; disable incompatible minor-modes
(when (boundp 'global-hl-line-mode)
--
2.30.2