Write or Die: Now on Emacs!
Just paste the following into your init.el, and when the time comes, M-x write-or-die. When you have accomplished your goal, M-x no-more-die, and you're set.
(let ( (write-or-die-time ())
(write-or-die-init ()) )
(defun write-or-die ()
(setf write-or-die-init (run-with-idle-timer 3 t 'w-or-die)))
(defun w-or-die ()
(kill-region (point-max) (- (point-max) 10))
(setf write-or-die-time (run-with-idle-timer
(defun no-more-die ()
Possible improvements --- flashing colors, like the web-version has, to warn you of the time limit; word-by-word deletion, rather than 10 characters at a time; variable time limit; etc. But those can wait. Right now I need to write another 10,000 words.
Well, I'm not really a Windows man either (go Tux!)...
...but I threw together a version in .NET cause I've been doing most of writing on a Vista (shudder) laptop. Check it out here.
Subscribe to Post Comments [Atom]
Links to this post: