lucas/dotfiles
1
0
Fork 0
Code Activity

fix(emacs): don't require dired-mode for grade-file-format

Browse source 
Signed-off-by: Lucas Sta Maria <lucas@priime.dev>
This commit is contained in:
Lucas Sta Maria 2024-02-02 17:33:48 -05:00
parent afb4172ae5
commit 405b26b256
No known key found for this signature in database
GPG key ID: F07FB16A826E3B47
1 changed files with 1 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

4
.emacs.d/include/misc.el
View file

@ -189,9 +189,7 @@
(defun grade-file-format (num) (defun grade-file-format (num)
"Format NUM to a file in the grading directory." "Format NUM to a file in the grading directory."
(unless (eq major-mode 'dired-mode) (let* ((dir (file-name-directory (buffer-file-name)))
(error "Must be in Dired directory"))
(let* ((dir (dired-current-directory))
(dir-files (directory-files dir)) (dir-files (directory-files dir))
(extension ".rkt") (extension ".rkt")
(all-rkt-files (-filter (lambda (f) (string= (file-name-extension f) "rkt")) (all-rkt-files (-filter (lambda (f) (string= (file-name-extension f) "rkt"))