robot/org-drill-in-running.el


1
2
3
4
5
6
7
8
9

(setq top-dir default-directory)

(defun org-drill-bot ()
  (interactive)
  (copy-file (concat top-dir "main-test.org")
             (concat top-dir "main-test-interactive-copy.org") t)
  (find-file (concat top-dir "main-test-interactive-copy.org"))
  (org-drill)
  (set-buffer-modified-p))