iankelling.org
/
git
/
spray
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
add comments and a known bug on repeated words
[spray]
/
spray.el
diff --git
a/spray.el
b/spray.el
index 8f25a9328fdd9209f1b3c5360181022987afc123..4d55fbce9dec1cd791c52e5ce3d32cca0bd8e780 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
@@
-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)