From dc4bcb4d5f0daacae9144d1f2d2b5befd7fcbdfd Mon Sep 17 00:00:00 2001 From: Lucas Sta Maria Date: Fri, 2 Feb 2024 17:34:09 -0500 Subject: [PATCH] feat(emacs): add concrete `grade-prev` interactive function Signed-off-by: Lucas Sta Maria --- .emacs.d/include/misc.el | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/.emacs.d/include/misc.el b/.emacs.d/include/misc.el index fcb3a94..c223af2 100644 --- a/.emacs.d/include/misc.el +++ b/.emacs.d/include/misc.el @@ -222,11 +222,17 @@ (find-file target-filepath) (message (format "next grading file doesn't exist!"))))))) +(defun grade-prev (&optional dec) + "Go to the previous homework by DEC to grade." + (interactive) + (let ((dec (or dec 1))) + (grade-next (- dec)))) + (defun grade-start (&optional start) "Start grading in the current directory with homework START." (interactive) (keymap-global-set "C-c f" #'grade-next) - (keymap-global-set "C-c b" (lambda () (interactive) (grade-next -1))) + (keymap-global-set "C-c b" #'grade-prev) (let* ((start (or start 1)) (dir (if (eq major-mode 'dired-mode)