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

Fix regex.

Browse Source
This commit is contained in:
larstvei 2013-11-30 03:22:34 +01:00
parent 5432e3062e
commit a2b6751c73
1 changed files with 10 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
etype.el
View File

@ -40,9 +40,9 @@
(defun etype-fit-word (word)
(let* ((space (make-string (+ 1 (length word)) ? )))
(or (and (looking-at space) (point))
(search-backward space (point-at-bol) nil)
(search-forward space (point-at-eol) nil))))
(cond ((looking-at space) (point))
((search-backward space (point-at-bol) nil) (point))
((search-forward space (point-at-eol) nil) (- (point) (length space))))))
(defun etype-search-timers (point)
(first
@ -58,7 +58,6 @@
(let ((check-word (thing-at-point 'word)))
(goto-char point)
(unless (equal check-word (thing-at-point 'word))
(let* ((word (thing-at-point 'word))
(len (length word))
(timer (etype-search-timers point)))
@ -102,13 +101,13 @@
(message "Spawned word %s moves every %f second" word random))))))
(defun etype-loop ()
;; (push (run-at-time "5 sec" 3 'etype-drop) etype-timers)
(push (run-at-time "0 sec" 2 'etype-spawn-word) etype-timers))
(defun etype-search-word (key-etyped)
(setq etype-completing-word
(search-forward
(concat " " (single-key-description last-input-event)) nil t))
(search-forward-regexp
(concat
"\\<" (single-key-description last-input-event)) nil t))
(when etype-completing-word
(setq etype-overlay
(make-overlay (- etype-completing-word 1) etype-completing-word))
@ -126,7 +125,8 @@
(let* ((word (thing-at-point 'word))
(len (length word))
(space (make-string len ? )))
(delq word etype-words-in-play)
(setq etype-words-in-play
(remove word etype-words-in-play))
(add-to-list 'etype-unused-words word t)
(backward-word)
(delete-char len)
@ -163,5 +163,6 @@
(make-local-variable 'etype-unused-words)
(make-local-variable 'etype-words-in-play)
(make-local-variable 'etype-completing-word)
(define-key (current-local-map) [remap self-insert-command] 'etype-catch-input)
(define-key (current-local-map)
[remap self-insert-command] 'etype-catch-input)
(add-hook 'kill-buffer-hook 'etype-cleanup))