X-Git-Url: https://iankelling.org/git/?a=blobdiff_plain;f=spray.el;h=561ec0817399c77d29ffea99a6fda976b242a72e;hb=47b1fba73a235f222d9ce42b24313f3b135fd1c9;hp=77d1f40042930837ff7272e447883785c4d1bcf0;hpb=40785034a910cc92a3d0f13390e275b5478f6dab;p=spray

diff --git a/spray.el b/spray.el
index 77d1f40..561ec08 100644
--- a/spray.el
+++ b/spray.el
@@ -1,6 +1,8 @@
+(require 'face-remap)
+
 ;; custom
-(defvar spray-wpm 350 "words/min")
-(defvar spray-height 500 "height of characters")
+(defvar spray-wpm 400 "words/min")
+(defvar spray-height 400 "height of characters")
 
 (make-face 'spray-base-face)
 (set-face-attribute 'spray-base-face nil
@@ -52,8 +54,7 @@
 (defun spray-next ()
   (cond ((not (zerop spray--delay))
          (setq spray--delay (1- spray--delay))
-         (when (and (<= spray--delay 2)
-                    (= (char-before) ?.))
+         (when (= spray--delay 2)
            (narrow-to-region (point) (point))))
         (t
          (widen)
@@ -69,10 +70,12 @@
                                 ((6 7 8 9) 3)
                                 ((10 11 12 13) 4)
                                 (t 5)))))
-             (setq spray--delay (+ (if (> len 8) 1 0) (cl-case (char-before)
-                                                        ((?. ?! ?\? ?\;) 3)
-                                                        ((?, ?:) 1)
-                                                        (t 0))))
+             (setq spray--delay (+ (if (> len 9) 1 0)
+                                   (if (eql (char-after) ?\n) 3 0)
+                                   (cl-case (char-before)
+                                     ((?. ?! ?\? ?\;) 3)
+                                     ((?, ?:) 1)
+                                     (t 0))))
              (move-overlay spray--orp-overlay (1- orp) orp)
              (move-overlay spray--base-overlay beg end)
              (overlay-put spray--base-overlay