From a5632b9dc437cd76f4a28b84a35d0d143080d865 Mon Sep 17 00:00:00 2001 From: Lucas Sta Maria Date: Fri, 2 Feb 2024 17:44:16 -0500 Subject: [PATCH] fix(emacs): resolve bug when in dired window Signed-off-by: Lucas Sta Maria --- .emacs.d/include/misc.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/.emacs.d/include/misc.el b/.emacs.d/include/misc.el index c223af2..d433f46 100644 --- a/.emacs.d/include/misc.el +++ b/.emacs.d/include/misc.el @@ -189,7 +189,9 @@ (defun grade-file-format (num) "Format NUM to a file in the grading directory." - (let* ((dir (file-name-directory (buffer-file-name))) + (let* ((dir (if (eq 'dired-mode major-mode) + (dired-current-directory) + (file-name-directory (buffer-file-name)))) (dir-files (directory-files dir)) (extension ".rkt") (all-rkt-files (-filter (lambda (f) (string= (file-name-extension f) "rkt"))