visual-sleep-sort.el

(defun visual-sleep-sort (lst)
  (save-window-excursion
    (let (r)
      (with-temp-buffer
        (switch-to-buffer (current-buffer))
        (dolist (i lst)
          (princ (format "%s%d\n" (make-string i ?\ ) i) (current-buffer)) )
        (while (> (buffer-size) 0)
          (beginning-of-buffer)
          (while (not (eobp))
            (if (not (looking-at "^[0-9]")) (forward-line)
              (push (read (current-buffer)) r)
              (kill-word -1) (delete-char 1) ))
          (beginning-of-buffer)
          (while (not (eobp))
            (when (looking-at " ") (delete-char 1))
            (forward-line) )
          (redisplay)
          (sleep-for 1) ))
      (reverse r) )))