From 9e337363f6dc11ff560a618336f31d03e15aebf4 Mon Sep 17 00:00:00 2001 From: Brandon Webster Date: Sun, 12 Apr 2020 09:17:58 -0700 Subject: add helper fn to check cards without killing emacs --- robot/robot.el | 21 ++++++++++++++------- 1 file changed, 14 insertions(+), 7 deletions(-) (limited to 'robot') diff --git a/robot/robot.el b/robot/robot.el index f7053b8..3d965b0 100644 --- a/robot/robot.el +++ b/robot/robot.el @@ -55,18 +55,25 @@ (run-with-timer 1 1 #'robot-dump-messages) -(defun robot-check-cards-seen-and-die (n) +(defun robot-check-cards-seen (n) + "N is number of cards we expect to have seen this session. +Returns a number representing an exit status code" (if (= n org-drill-cards-in-this-emacs) (progn (princ (format "Succeeded: Saw %s cards as expected\n" n) 'external-debugging-output) - (kill-emacs 0)) - (princ - (format "Failed: Saw %s cards, expecting %s\n" - org-drill-cards-in-this-emacs n) - 'external-debugging-output) - (kill-emacs -1))) + 0) + (progn + (princ + (format "Failed: Saw %s cards, expecting %s\n" + org-drill-cards-in-this-emacs n) + 'external-debugging-output) + -1))) + +(defun robot-check-cards-seen-and-die (n) + "N is number of cards we expect to have seen this session." + (kill-emacs (robot-check-cards-seen n))) ;; Move the package-user-dir somewhere local (require 'package) -- cgit v1.2.3