blob: 1469fef4bb0a873ca446501ee910a965e28effc2 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
|
;; Shutup
(setq make-backup-files nil)
(setq auto-save-default nil)
(setq top-dir default-directory)
;; Clean up
(delete-file (concat top-dir "robot/failure.txt"))
(delete-file (concat top-dir "robot/messages.txt"))
(set-frame-name "emacs-bot")
(setq debug-on-error t)
(setq debug-on-quit t)
(defun die ()
(interactive)
(kill-emacs)
)
(defun dump-buffer (buffer file)
(save-excursion
(when (get-buffer buffer)
(set-buffer buffer)
(write-region (point-min) (point-max)
(concat top-dir "robot/" file)
nil 'dont-display-wrote-file-message
))))
(add-hook 'debugger-mode-hook
'org-drill-launcher-dump-in-a-bit)
(defun org-drill-launcher-dump-in-a-bit ()
(run-with-timer 1 nil #'org-drill-launcher-dump))
(defun org-drill-dump-messages ()
(dump-buffer "*Messages*" "messages.txt"))
(run-with-timer 1 1 #'org-drill-dump-messages)
(defun org-drill-launcher-dump ()
(dump-buffer "*Backtrace*" "failure.txt")
(dump-buffer "*Messages*" "messages.txt")
(kill-emacs -1)
)
(load-file "org-drill.el")
(defun org-drill-do-drill ()
(copy-file "robot/main-test.org" "robot/main-test-copy.org" t)
(find-file "robot/main-test-copy.org")
(org-drill)
(set-buffer-modified-p nil)
(kill-buffer))
(org-drill-do-drill)
(message "First drill complete")
(setq org-drill-presentation-prompt-with-typing t)
(org-drill-do-drill)
|
