Kube grep dates elisp

grepdates.el

(defun kubernetes-re-log ()
  (message "test")
  (set-buffer "*kubernetes logs*")
  (message "buffer name %s" (buffer-name))
  (goto-char (point-min))
  (save-current-buffer
    (set-buffer (get-buffer-create "*dump log*"))
    (erase-buffer))
  (while (re-search-forward "\\([0-9]+\-[0-9]+\-[0-9]+T[0-9]+:[0-9]+:[0-9]+ .*\\)" nil t)
    ;;(message "hello %s" (match-string 0))))
    (let (( match (match-string 0)))
      (save-current-buffer
	(set-buffer (get-buffer-create "*dump log*"))
	;;(erase-buffer)
	(insert (format "hello [%s]\n" match))))))

(run-with-timer 0 10 'kubernetes-re-log)