larstvei/etype
1
0
Fork 0
mirror of https://github.com/larstvei/etype.git synced 2024-11-26 02:08:30 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Random words are falling.

Browse Source
This commit is contained in:
larstvei 2013-11-24 01:13:48 +01:00
parent 5b579856dc
commit 8cc5bb5630
1 changed files with 24 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
type.el
View File

@ -2,6 +2,8 @@
(defvar type-timers nil)
(defvar banned-initials nil)
(defun init-game ()
;; Shuffle the vector of words and turn it in to a list.
(setq words (mapcar 'eval (shuffle-vector words)))
@ -20,18 +22,32 @@
(if (< (point-max) (+ point len))
(- len (- (+ point len) (point-max)))
len)))
(delete-char bytes-to-delete)
(insert word)))
(when (type-fit-word word)
(delete-char bytes-to-delete)
(insert word))))
(defun type-fit-word (word)
(let ((space (make-string (length word) ? )))
(or (looking-at (concat space "|[^ ]+$"))
(search-backward space nil nil)
(search-forward space nil nil))))
(defun type-spawn-word ()
(when (string= "Type" (buffer-name (current-buffer)))
(let* ((word (pop words))
(point (random (- fill-column (length word)))))
(message "word: %s, point: %d" word point)
(type-insert-overwrite point word))))
(save-excursion
(when (string= "Type" (buffer-name (current-buffer)))
(let* ((word (pop words))
(point (random (- fill-column (length word)))))
(type-insert-overwrite point (concat " " word " "))))))
(defun type-open-line ()
(save-excursion
(goto-char 1)
(open-line 1)
(insert (make-string fill-column ? ))))
(defun type-loop ()
(push (run-at-time "0 sec" 2 'type-spawn-word) type-timers))
(push (run-at-time "5 sec" 3 'type-open-line) type-timers)
(push (run-at-time "0 sec" 1.5 'type-spawn-word) type-timers))
(defun type ()
(interactive)