iankelling.org
/
git
/
spray
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
minor doc update
[spray]
/
spray.el
diff --git
a/spray.el
b/spray.el
index 8f25a9328fdd9209f1b3c5360181022987afc123..836cf07ff3137bbef25c568ab0244a492f325c2c 100644
(file)
--- a/
spray.el
+++ b/
spray.el
@@
-35,6
+35,10
@@
;;
;; For more informations, see Readme.org.
;;
;; For more informations, see Readme.org.
+;; Known bugs.
+;; repeated words are indistinguishable, for example
+;; "going, going, gone" reads like going, gone, with a slight delay.
+
;;; Change Log:
;; 0.0.0 test release
;; 0.0.1 add spray-set-margins
;;; Change Log:
;; 0.0.0 test release
;; 0.0.1 add spray-set-margins
@@
-49,7
+53,7
@@
(defvar spray-wpm 400 "words/min")
(defvar spray-height 400 "height of characters")
(defvar spray-margin-top 1 "character margin at top of buffer. Characters are as big as spray text characters.")
(defvar spray-wpm 400 "words/min")
(defvar spray-height 400 "height of characters")
(defvar spray-margin-top 1 "character margin at top of buffer. Characters are as big as spray text characters.")
-(defvar spray-margin-left
0
"character margin at left of buffer. Characters are as big as spray text characters.")
+(defvar spray-margin-left
1
"character margin at left of buffer. Characters are as big as spray text characters.")
(defvar spray-mode-map
(let ((km (make-sparse-keymap)))
(defvar spray-mode-map
(let ((km (make-sparse-keymap)))
@@
-165,6
+169,10
@@
((6 7 8 9) 3)
((10 11 12 13) 4)
(t 5)))))
((6 7 8 9) 3)
((10 11 12 13) 4)
(t 5)))))
+ ;; this fairly obfuscated, using magic numbers to store state
+ ;; it would be nice to sometime patch this so it is more readable.
+ ;; for greater than 9 length, we display for twice as long
+ ;; for some punctuation, we display a blank
(setq spray--delay (+ (if (> len 9) 1 0)
(if (looking-at "\n[\s\t\n]") 3 0)
(cl-case (char-before)
(setq spray--delay (+ (if (> len 9) 1 0)
(if (looking-at "\n[\s\t\n]") 3 0)
(cl-case (char-before)