iankelling.org
/
git
/
spray
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
85cc75a
)
add comments and a known bug on repeated words
author
Ian Kelling
<ian@iankelling.org>
Wed, 2 Jul 2014 01:24:02 +0000
(18:24 -0700)
committer
Ian Kelling
<ian@iankelling.org>
Wed, 2 Jul 2014 01:24:02 +0000
(18:24 -0700)
spray.el
patch
|
blob
|
history
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)