iankelling.org
/
git
/
spray
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
ab71fea
)
make an individual face for ORPs
author
zk_phi
<zerokay_phi@yahoo.co.jp>
Thu, 12 Jun 2014 16:33:35 +0000
(
01:33
+0900)
committer
zk_phi
<zerokay_phi@yahoo.co.jp>
Thu, 12 Jun 2014 16:33:35 +0000
(
01:33
+0900)
spray.el
patch
|
blob
|
history
diff --git
a/spray.el
b/spray.el
index 402bf0fa0ccdd4d5b5980dfe05e239449ac66dd4..10b44416706aade28d08720c460e9b1ec47a3e58 100644
(file)
--- a/
spray.el
+++ b/
spray.el
@@
-1,7
+1,12
@@
;; custom
(defvar spray-wpm 400 "words/min")
(defvar spray-text-scale 5)
;; 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)
;; 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)
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)
(add-hook 'pre-command-hook 'turn-off-spray-mode)
;; disable incompatible minor-modes
(when (boundp 'global-hl-line-mode)