X-Git-Url: https://iankelling.org/git/?a=blobdiff_plain;f=spray.el;h=bb0ea2c0d68677286b7e59c38b8a6c173b47fbe4;hb=76adfb3070f567e973903d922594b720314c30b9;hp=76e4e36159ea55a6aa8538455adb8a16136f87ed;hpb=75f317ce2611178f4532e535638294c3f48cc552;p=spray diff --git a/spray.el b/spray.el index 76e4e36..bb0ea2c 100644 --- a/spray.el +++ b/spray.el @@ -1,4 +1,4 @@ -;;; cedit.el --- a speed reading mode +;;; spray.el --- a speed reading mode ;; Copyright (C) 2014 zk_phi @@ -19,7 +19,7 @@ ;; Author: zk_phi ;; URL: http://hins11.yu-yake.com/ ;; Author: Ian Kelling -;; Version: 0.0.1 +;; Version: 0.0.2 ;;; Commentary: @@ -38,6 +38,7 @@ ;;; Change Log: ;; 0.0.0 test release ;; 0.0.1 add spray-set-margins +;; 0.0.2 margin options, speed control, better quit ;;; Code: @@ -71,8 +72,8 @@ :foreground (face-foreground 'default) :slant 'normal) -(make-face 'spray-orp-face) -(set-face-attribute 'spray-orp-face nil +(make-face 'spray-accent-face) +(set-face-attribute 'spray-accent-face nil :foreground "red" :overline (face-foreground 'default) :underline (face-foreground 'default) @@ -120,7 +121,7 @@ (overlay-put spray--base-overlay 'priority 100) (overlay-put spray--base-overlay 'face 'spray-base-face) (overlay-put spray--orp-overlay 'priority 101) - (overlay-put spray--orp-overlay 'face 'spray-orp-face) + (overlay-put spray--orp-overlay 'face 'spray-accent-face) (spray-start)) (t (setq cursor-type spray--saved-cursor-type)