;; blame-parse.el

;; towards version control buffer diagrams


(defconst number-regexp
  "-?\\([0-9]+\\.?\\|\\.\\)[0-9]*\\(e[0-9]+\\)?"
  "Regular expression for recognizing numbers.")


(defun blame-parse ()
  (interactive)
  (goto-char (point-min))
  (while    (re-search-forward "^     " nil t)
    (setq charnum (read (current-buffer)))
    (setq x 0)
    (while (< x charnum)
      (insert "___")
      (setq x (+ x 1)))
    (insert ">")))

(defun testerr ()
  (interactive)
  (re-search-forward "^     [0-9]" nil t)
  (goto-char (match-beginning 1)))